Changeset 2557

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

Location:

trunk/LMDZ.GENERIC

Files:

• README (modified) (1 diff)
• libf/phystd/phyetat0_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/README

@@ -1683 +1683 @@
 Chemistry: one input file instead of three for the chemical network
 Automatic detection of mono/bi-molecular or quadratic reactions
+
+== 31/08/2021 == GM
+Fix in phyetat0, only call soil_settings if flag callsoil is true.

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)