Changeset 2557 for trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90

Timestamp:

Aug 31, 2021, 8:21:11 AM (3 years ago)

Author:

emillour

Message:

Generic GCM:
Fix in phyetat0, only call soil_settings if flag callsoil is true.
GM

File:

• trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90 (modified) (2 diffs)

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

@@ -21 +21 @@
                      inquire_dimension, inquire_dimension_length
   use slab_ice_h, only: noceanmx
-  use callkeys_mod, only: CLFvarying,surfalbedo,surfemis
+  use callkeys_mod, only: CLFvarying,surfalbedo,surfemis, callsoil
   use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, &
                                 east_gwstress, west_gwstress
@@ -388 +388 @@
   ! Call to soil_settings, in order to read soil temperatures,
   ! as well as thermal inertia and volumetric heat capacity
-  call soil_settings(nid_start,ngrid,nsoil,tsurf,tsoil,indextime)
+  if (callsoil) then
+    call soil_settings(nid_start,ngrid,nsoil,tsurf,tsoil,indextime)
+  endif
 endif ! of if (startphy_file)