Changeset 3120 for trunk/LMDZ.MARS/libf

Timestamp:

Nov 9, 2023, 2:44:46 PM (16 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

File:

• trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F (modified) (1 diff)

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)+