Changeset 2218 for trunk/LMDZ.MARS/libf/phymars/vdifc_mod.F

Timestamp:

Jan 16, 2020, 10:44:19 AM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Change "latentheat" flag to a more descriptive "latentheat_surfwater" and
set its default value to .true.
EM

File:

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

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

@@ -867 +867 @@
 !              pdtsrf(ig) = (tsrf_lw(ig)-ptsrf(ig))/ptimestep
 c             Take into account the H2O latent heat impact on the surface temperature
-              if (latentheat) then
+              if (latentheat_surfwater) then
                 tsrf_lh(ig) = ptsrf(ig) + pdtsrf(ig) *ptimestep
                 lh=(2834.3-0.28*(tsrf_lh(ig)-To)-