Changeset 3591 for trunk/LMDZ.COMMON/libf/evolution/pemredem.F90

Timestamp:

Jan 21, 2025, 3:53:18 PM (12 days ago)

Author:

jbclement

Message:

PEM:

• Making allocation/deallocation systematically and more efficient in the main program.
• Some cleanings (variables deletion, more adapted type/dimension, etc).

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/pemredem.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/pemredem.F90

@@ -121 +121 @@
         call put_field("mco2_reg_ads_slope"//num, "Mass of CO2 adsorbed in the regolith",m_co2_regolith(:,:,islope),Year)
         call put_field("mh2o_reg_ads_slope"//num, "Mass of H2O adsorbed in the regolith",m_h2o_regolith(:,:,islope),Year)
+        call put_field("ice_porefilling"//num,"Subsurface ice pore filling",ice_porefilling(:,:,islope),Year)
     enddo
     call put_field("icetable_depth","Depth of ice table",icetable_depth,Year)
     call put_field("icetable_thickness","Depth of ice table",icetable_thickness,Year)
-    call put_field("ice_porefilling","Subsurface ice pore filling",ice_porefilling,Year)
     call put_field("inertiedat_PEM","Thermal inertie of PEM ",inertiedat_PEM,Year)
 endif ! soil_pem