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

Timestamp:

Dec 16, 2024, 5:57:50 PM (6 days ago)

Author:

jbclement

Message:

PEM:
Follow-up of previous commit (r3553).
JBC

File:

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

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

@@ -119 +119 @@
         call put_field("tsoil_PEM_slope"//num,"Soil temperature by slope type",tsoil_slope_PEM(:,:,islope),Year)
         call put_field("TI_PEM_slope"//num,"Soil Thermal Inertia by slope type",inertiesoil_slope_PEM(:,:,islope),Year)
-        call put_field("mco2_reg_ads_slope"//num, "Mass of co2 adsorbded in the regolith",m_co2_regolith(:,:,islope),Year)
-        call put_field("mh2o_reg_ads_slope"//num, "Mass of h2o adsorbded in the regolith",m_h2o_regolith(:,:,islope),Year)
+        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)
     enddo
     call put_field("icetable_depth","Depth of ice table",icetable_depth,Year)