Changeset 2946 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 26, 2023, 11:01:44 AM (21 months ago)

Author:

romain.vande

Message:

MARS PCM: Following r2942, small modification to output inertiesoil as a subslope variable in the startfi.nc

File:

• trunk/LMDZ.MARS/libf/phymars/iostart.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/iostart.F90

@@ -860 +860 @@
           endif
           ! Write the variable
-          if(field_name.eq. "tsoil") then
+          if(field_name.eq. "tsoil" .or. field_name.eq. "inertiesoil") then
 
           field_glo_reshape=RESHAPE(field_glo, (/klon_glo, nsoilmx, nslope, timeindex/))