Changeset 4174 for trunk/LMDZ.COMMON/libf/evolution/layered_deposits.F90

Timestamp:

Apr 8, 2026, 11:36:16 AM (4 days ago)

Author:

jbclement

Message:

PEM:
Refactor of H2O flux balancing:

• centralizes flux balancing logic;
• removes intermediate variables, especially related to of H2O mass bookkeeping;
• adds new stopping criterion when H2O flux balance fails8 (sanity check);
• introduces configurable weighting strategies for H2O flux balancing.

JBC

File:

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

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

@@ -1255 +1255 @@
 ! ARGUMENTS
 ! ---------
-type(layering),         intent(inout) ::  this
-type(stratum), pointer, intent(inout) ::  current
-real(dp),               intent(inout) ::  d_co2ice, d_h2oice
-logical(k4),            intent(inout) ::  new_str, new_lag
-real(dp),               intent(out)   ::  zshift_surf, zlag
+real(dp),               intent(in)    :: d_co2ice, d_h2oice
+type(layering),         intent(inout) :: this
+type(stratum), pointer, intent(inout) :: current
+logical(k4),            intent(inout) :: new_str, new_lag
+real(dp),               intent(out)   :: zshift_surf, zlag
 
 ! LOCAL VARIABLES