Changeset 1238 for trunk/LMDZ.COMMON/libf/dyn3d/addfi.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.COMMON/libf/dyn3d/addfi.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/addfi.F

@@ -103 +103 @@
        ENDDO
       ENDDO
-c
+!***********************
+! Correction on teta due to surface pressure changes
+      DO k = 1,llm
+        DO j = 1,ip1jmp1
+           pteta(j,k)= pteta(j,k)*(1+pdpfi(j)*pdt/pps(j))**kappa
+        ENDDO
+      ENDDO
+!***********************
 
       DO k = 1,llm