Changeset 3120

Timestamp:

Nov 9, 2023, 2:44:46 PM (14 months ago)

Author:

jbclement

Message:

Mars PCM:
Correction of a bug introduced in r3059: in case of 'watercaptag=.true.', 'watercap' was prevented to evolve as it should be because of 'zqsurf' in "vdifc_mod.F90" which was forced to be 0 if negative.
JBC + EV

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/vdifc_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4322 +4322 @@
 in phyredem1 and phyetat0, i.e., adding qsoil and nqsoil in the arguments of
 the subroutine
+
+== 09/11/2023 == JBC + EV
+Correction of a bug introduced in r3059: in case of 'watercaptag=.true.', 'watercap' was prevented to evolve as it should be because of 'zqsurf' in "vdifc_mod.F90" which was forced to be 0 if negative.

trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

@@ -1203 +1203 @@
               zqsurf(ig)= zqsurf(ig)+(
      &                       zdqsdif_tot(ig))*subtimestep
-              if (zqsurf(ig)<0) then 
-                      zqsurf(ig)=0
-              endif
 c             Monitoring instantaneous latent heat flux in W.m-2 :
               zsurf_h2o_lh(ig,islope) = zsurf_h2o_lh(ig,islope)+