run stocks only when do_flux=.T.

NOAA-GFDL · Aug 9, 2024 · 201f17a · 201f17a
1 parent 665a9e8
commit 201f17a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
@@ -404,7 +404,7 @@ program coupler_main
 !-----------------------------------------------------------------------
 !> ocean/slow-ice integration loop
 
-  if (check_stocks >= 0) call coupler_flux_init_finish_stocks(Time, Atm, Land, Ice, Ocean_state, &
+  if (check_stocks >= 0 .and. do_flux) call coupler_flux_init_finish_stocks(Time, Atm, Land, Ice, Ocean_state, &
                                                               coupler_clocks, init_stocks=.True.)
 
   !> ocean/slow-ice integration loop
@@ -436,7 +436,7 @@ program coupler_main
     end if
 
     ! needs to sit here rather than at the end of the coupler loop.
-    if (check_stocks > 0) call coupler_flux_check_stocks(nc, Time, Atm, Land, Ice, Ocean_state, coupler_clocks)
+    if (check_stocks > 0 .and. do_flux) call coupler_flux_check_stocks(nc, Time, Atm, Land, Ice, Ocean_state, coupler_clocks)
 
     if (do_ice .and. Ice%pe) then
       if (Ice%slow_ice_pe) call coupler_unpack_ocean_ice_boundary(nc, Time_flux_ocean_to_ice, Ice, Ocean_ice_boundary,&
@@ -671,7 +671,7 @@ program coupler_main
   enddo coupled_timestep_loop
 
   !-----------------------------------------------------------------------
-  if( check_stocks >=0 ) call coupler_flux_init_finish_stocks(Time, Atm, Land, Ice, Ocean_state, &
+  if(check_stocks >=0 .and. do_flux) call coupler_flux_init_finish_stocks(Time, Atm, Land, Ice, Ocean_state, &
                                                               coupler_clocks, finish_stocks=.True.)
 
   call fms_mpp_set_current_pelist()