Changed name of temporary dt_atmos variable.

NOAA-EMC · Dec 4, 2024 · 20be439 · 20be439
1 parent 8bfdc05
commit 20be439
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/atmos_model.F90 b/atmos_model.F90
@@ -975,7 +975,7 @@ subroutine update_atmos_model_state (Atmos, rc)
 !--- local variables
   integer :: i, localrc, sec_lastfhzerofh
   integer :: isec, seconds, isec_fhzero
-  integer :: datm_temp
+  integer :: dtatm_temp
   logical :: tmpflag_fhzero
   real(kind=GFS_kind_phys) :: time_int, time_intfull
 !
@@ -1022,10 +1022,10 @@ subroutine update_atmos_model_state (Atmos, rc)
       endif
       if (mpp_pe() == mpp_root_pe()) write(6,*) ' gfs diags time since last bucket empty: ',time_int/3600.,'hrs'
       call atmosphere_nggps_diag(Atmos%Time)
-      call get_time ( Atmos%Time_step, datm_temp)
+      call get_time ( Atmos%Time_step, dtatm_temp)
       call fv3atm_diag_output(Atmos%Time, GFS_Diag, Atm_block, GFS_control%nx, GFS_control%ny, &
                             GFS_control%levs, 1, 1, 1.0_GFS_kind_phys, time_int, time_intfull, &
-                            GFS_control%fhswr, GFS_control%fhlwr, datm_temp)
+                            GFS_control%fhswr, GFS_control%fhlwr, dtatm_temp)
     endif
     !---  find current fhzero
     if( GFS_Control%fhzero_array(1) > 0. ) then