Changeset 1238 for trunk/LMDZ.MARS/libf/phymars/vdif_cd.F

Timestamp:

May 7, 2014, 12:35:26 PM (11 years ago)

Author:

emillour

Message:

Mars GCM and common dynamics:

Common dynamics:

• correction in inidissip (only matters in Martian case)
• added correction in addfi on theta to account for surface pressure change.

Mars GCM:
Some fixes and updates:

• addfi (dyn3d): Add correction on theta when surface pressure changes
• vdif_cd (phymars): Correction for coefficients in stable nighttime case
• jthermcalc (aeronomars): Fix for some pathological cases (further investigations on the origin of these is needed)

EM

File:

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

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

@@ -195 +195 @@
          else
 c For Ri>Ric, we consider Ri->Infinity => no turbulent mixing at surface
-            fm(ig)=0.
-            fh(ig)=0.
+!            fm(ig)=0.
+!            fh(ig)=0.
+            fm(ig)=1.
+            fh(ig)=1.
          endif
 c Unstable case :