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

Timestamp:

Jun 5, 2025, 5:16:44 PM (3 weeks ago)

Author:

jbclement

Message:

Mars PCM:
Handle correctly more variables with different types/shapes/dimensions.
JBC

File:

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

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

@@ -878 +878 @@
         if (abs(latitude(ngrid) - (-pi/2.)) < 1.e-5) perennial_co2ice(ngrid,:) = 10*1.6e3 ! 10m which is convert to kg/m^2
     endif ! not found
-  else ! no startfiphyle
+  else ! no startphy_file
     h2o_ice_depth = -1.
     lag_co2_ice = -1.