Changeset 3429

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

Location:

trunk/LMDZ.GENERIC

Files:

• changelog.txt (modified) (1 diff)
• libf/phystd/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/changelog.txt

@@ -1973 +1973 @@
 == 02/09/2024 == SB
 Including variable "tice" in startarchive and newstart
+
+== 18/09/2024 == EM
+Minor fix following last updates, only fetch slab ocean variables to put
+in the restart file if using the slab ocean.

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, &