From f9bbb4f12e032378050cef4b7e5ac4b65a16bb70 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Thu, 9 Apr 2020 20:14:24 -0600 Subject: [PATCH] Bugfix for GNU compiler in model/fv_regional_bc.F90, reduce verbosity in driver/fvGFS/atmosphere.F90 --- driver/fvGFS/atmosphere.F90 | 4 ++-- model/fv_regional_bc.F90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/driver/fvGFS/atmosphere.F90 b/driver/fvGFS/atmosphere.F90 index d1ed7e005..6cbd71756 100644 --- a/driver/fvGFS/atmosphere.F90 +++ b/driver/fvGFS/atmosphere.F90 @@ -112,7 +112,7 @@ module atmosphere_mod ! ! mpp_mod ! mpp_error, stdout, FATAL, NOTE, input_nml_file, mpp_root_pe, -! mpp_npes, mpp_pe, mpp_chksum,mpp_get_current_pelist, +! mpp_npes, mpp_pe, mpp_chksum,mpp_get_current_pelist, ! mpp_set_current_pelist ! ! @@ -1269,7 +1269,7 @@ subroutine atmosphere_get_bottom_layer (Atm_block, DYCORE_Data) rrg = rdgas / grav if (first_time) then - print *, 'calculating slp kr value' + if (mpp_pe() == mpp_root_pe()) print *, 'calculating slp kr value' ! determine 0.8 sigma reference level sigtop = Atm(mytile)%ak(1)/pstd_mks+Atm(mytile)%bk(1) do k = 1, npz diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90 index f73ee8909..9bd8e2b8a 100644 --- a/model/fv_regional_bc.F90 +++ b/model/fv_regional_bc.F90 @@ -5539,14 +5539,14 @@ subroutine create_restart_with_bcs(Atm) ,'yaxis_1' & ,'yaxis_2' & ,'zaxis_1' & - ,'Time' & + ,'Time ' & /) ! character(len=9),dimension(ndims_tracers) :: dim_names_tracers=(/ & 'xaxis_1' & ,'yaxis_1' & ,'zaxis_1' & - ,'Time' & + ,'Time ' & /) ! !-----------------------------------------------------------------------