fix: change variable name used in coupler_clock_type calls (#121)

NOAA-GFDL · Jun 6, 2024 · 2b59f6d · 2b59f6d
1 parent eda97dd
commit 2b59f6d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
@@ -567,9 +567,9 @@ program coupler_main
 
           !      ---- SERIAL atmosphere radiation ----
           if (.not.do_concurrent_radiation) then
-            call fms_mpp_clock_begin(coupler_clocks%concurrent_radiation)
+            call fms_mpp_clock_begin(coupler_clocks%serial_radiation)
             call update_atmos_model_radiation( Land_ice_atmos_boundary, Atm )
-            call fms_mpp_clock_end(coupler_clocks%concurrent_radiation)
+            call fms_mpp_clock_end(coupler_clocks%serial_radiation)
           endif
           if (do_chksum) call atmos_ice_land_chksum('update_atmos_model_radiation(ser)', (nc-1)*num_atmos_calls+na, &
                  Atm, Land, Ice, Land_ice_atmos_boundary, Atmos_ice_boundary, Atmos_land_boundary)