Changeset 1729 for trunk/MESOSCALE/LMD_MM_MARS/SRC/LES

Timestamp:

Jul 23, 2017, 9:52:26 PM (8 years ago)

Author:

aslmd

Message:

MESOSCALE VENUS. commented cp=f(T) to easily find where changes are. removed obsolete commented tests or prints.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_big_step_utilities_em.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_big_step_utilities_em.F

@@ -14 +14 @@
 
    USE module_domain, ONLY : domain
-   USE module_configure
    USE module_model_constants
    USE module_state_description
@@ -4476 +4475 @@
       p_phy(i,k,j) = p(i,k,j) + pb(i,k,j)
       pi_phy(i,k,j) = (p_phy(i,k,j)/p1000mb)**rcp
+      !! TAKE INTO ACCOUNT cp=f(T) on Venus
       IF (planet.eq. "venus" ) THEN 
-      !call tpot2t(1,th_phy(i,k,j), t_phy(i,k,j), pi_phy(i,k,j))
+        !call tpot2t(1,th_phy(i,k,j), t_phy(i,k,j), pi_phy(i,k,j))
         t_phy(i,k,j)= (th_phy(i,k,j)**nu - nu*(TT00**nu)*log((p1000mb/p_phy(i,k,j))**rcp))**(1/nu)
       ELSE