Changeset 4074 for trunk/LMDZ.COMMON/libf/evolution/planet.F90

Timestamp:

Feb 17, 2026, 2:45:53 PM (13 days ago)

Author:

jbclement

Message:

PEM:

• Correct management of H2O ice tendency in 1D when there is not enough ice anymore.
• Clean initialization of allocatable module arrays (especially needed when no slope)
• One more renaming for consistency + few small updates thoughout the code.

JBC

File:

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

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

@@ -28 +28 @@
 real(dp), parameter :: m_co2 = 44.01e-3_dp               ! CO2 molecular mass [kg/mol]
 real(dp), parameter :: m_noco2 = 33.37e-3_dp             ! Non condensible mol mass [kg/mol]
-real(dp), parameter :: m_h2o = 18.01528e-3_dp            ! Molecular weight of h2o [kg/mol]
+real(dp), parameter :: m_h2o = 18.01528e-3_dp            ! Molecular weight of H2O [kg/mol]
 real(dp), parameter :: A = (1._dp/m_co2 - 1._dp/m_noco2) ! Intermediate parameter for computation
 real(dp), parameter :: B = 1._dp/m_noco2                 ! Intermediate parameter for computation