Changeset 3707 for trunk/LMDZ.COMMON/libf/evolution/recomp_tend_mod.F90

Timestamp:

Apr 2, 2025, 9:23:10 AM (4 months ago)

Author:

evos

Message:

Updating h2o ice recomp tendency to reduce the ice table loss rate due increase of depth and a decrease in the humidity around the ice.

File:

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

trunk/LMDZ.COMMON/libf/evolution/recomp_tend_mod.F90 ¶

@@ -106 +106 @@
 
 ! Flux correction (decrease)
-d_h2oice = d_h2oice*R_dec*hum_dec
+d_h2oice = d_h2oice/R_dec/hum_dec
 
 END SUBROUTINE recomp_tend_h2o