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

Timestamp:

Feb 17, 2026, 2:45:53 PM (11 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/tendencies.F90 (modified) (1 diff)

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

@@ -178 +178 @@
 real(dp)            :: Rz_old, Rz_new, R_dec, hum_dec, psv_max_old, psv_max_new
 integer(di)         :: iday
-real(dp), parameter :: coef_diff = 4.e-4 ! Diffusion coefficient
-real(dp), parameter :: zcdv = 0.0325     ! Drag coefficient
+real(dp), parameter :: coef_diff = 4.e-4_dp ! Diffusion coefficient
+real(dp), parameter :: zcdv = 0.0325_dp     ! Drag coefficient
 
 ! CODE