Changeset 3429 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Sep 18, 2024, 9:01:24 AM (2 months ago)

Author:

emillour

Message:

Generic PCM:
Minor fix following last updates, only fetch slab ocean variables to put
in the restart file if using the slab ocean.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -2394 +2394 @@
             write(*,*)'PHYSIQ: for physdem ztime_fin =',ztime_fin
             
-            ! fetch "ocean variables" to ensure they are stored
-            call ocean_slab_get_vars(ngrid, tslab, tice, sea_ice, flux_g, &
-                                     dt_hdiff, dt_ekman, dt_gm)
+            if (ok_slab_ocean) then
+              ! fetch "ocean variables" to ensure they are stored
+              call ocean_slab_get_vars(ngrid, tslab, tice, sea_ice, flux_g, &
+                                       dt_hdiff, dt_ekman, dt_gm)
+            endif
 
             call physdem1("restartfi.nc",nsoilmx,ngrid,nlayer,nq, &