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

… in driver/fvGFS/atmosphere.F90
climbfuji · 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   '  &
                                                                       /)
 !
 !-----------------------------------------------------------------------