Changeset 63 for trunk/mesoscale/LMD_LES_MARS/modif_mars

Timestamp:

Feb 15, 2011, 1:25:16 AM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS and LMD_LES_MARS : correction de R et cp dans module_initialize_les.F et module_initialize_real.F

File:

• trunk/mesoscale/LMD_LES_MARS/modif_mars/module_initialize_les.F (modified) (1 diff)

trunk/mesoscale/LMD_LES_MARS/modif_mars/module_initialize_les.F

@@ -806 +806 @@
       real p1000mb,cv,cp,r,cvpm,g
 !      parameter (p1000mb = 1.e+05, r = 287, cp = 1003., cv = cp-r, cvpm = -cv/cp, g=9.81 )
-      parameter (p1000mb = 610., r = 192., cp = 844.6, cv = cp-r, cvpm = -cv/cp, g=3.72)
+!      parameter (p1000mb = 610., r = 192., cp = 844.6, cv = cp-r, cvpm = -cv/cp, g=3.72)
+      parameter (p1000mb = 610., r = 191., cp = 744.5, cv = cp-r, cvpm = -cv/cp, g=3.72)
       integer k, it, nl
       real qvf, qvf1, dz