Bugfix for GNU compiler in model/fv_regional_bc.F90, reduce verbosity…

… in driver/fvGFS/atmosphere.F90
NOAA-EMC · Apr 10, 2020 · f9bbb4f · f9bbb4f
1 parent ecca997
commit f9bbb4f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/driver/fvGFS/atmosphere.F90 b/driver/fvGFS/atmosphere.F90
@@ -112,7 +112,7 @@ module atmosphere_mod
 ! <tr>
 ! <td>mpp_mod</td>
 ! <td>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</td>
 ! </tr>
 ! <tr>
@@ -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
@@ -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 ' &
  /)
 !
 !-----------------------------------------------------------------------