Changeset 3635 for trunk/LMDZ.PLUTO/libf/phypluto

Timestamp:

Feb 20, 2025, 10:31:38 AM (11 months ago)

Author:

tbertrand

Message:

Pluto: small fix to correctly read the soil thermal inertia from the starts
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/phyetat0_mod.F90 (modified) (3 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/phyetat0_mod.F90

@@ -23 +23 @@
   use write_field_phy, only: Writefield_phy
 !!
-  use comsoil_h, only: nsoilmx
+  use comsoil_h, only: nsoilmx,inertiedat
   use tabfi_mod, only: tabfi
   USE tracer_h, ONLY: noms
@@ -273 +273 @@
     call soil_settings(nid_start,ngrid,nsoil,tsurf,tsoil,indextime)
   endif
+  therm_inertia(:,:) = inertiedat(:,:)
 else
   thermal_inertia_if_no_startfi=400 ! default value
@@ -279 +280 @@
     !AF24
 endif ! of if (startphy_file)
-
 !
 ! close file: