Changeset 63

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

Location:

trunk/mesoscale

Files:

• LMD_LES_MARS/modif_mars/module_initialize_les.F (modified) (1 diff)
• LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F (modified) (5 diffs)

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

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F

@@ -551 +551 @@
 flag_soilhgt=1
 flag_metgrid=1
-!!**** TODO: trouver quand même pourquoi ça donne 0 :)
+!!**** TODO: trouver quand même pourquoi donne 0 :)
 pa=999999.
 !!****MARS
@@ -1088 +1088 @@
 DEALLOCATE(sig)
 DEALLOCATE(bp)
+
+!!****MARS who knows...
+grid%em_rh_gc(:,:,:)=0.
 
 
@@ -4271 +4274 @@
 
       INTEGER :: i , j , k 
-!****MARS 
-      REAL , PARAMETER :: Rd = 192.
-      REAL , PARAMETER :: Cp = 844.6
+!****MARS warning warning hardcoded !!!!
+!      REAL , PARAMETER :: Rd = 192.
+!      REAL , PARAMETER :: Cp = 844.6
+   REAL    , PARAMETER :: Rd          = 191.
+   REAL    , PARAMETER :: Cp           = 744.5
 !****MARS
       
@@ -5067 +5072 @@
       IMPLICIT NONE
 
-!****MARS
+!****MARS: ok not used
       REAL , PARAMETER :: Rd = 192.
       REAL , PARAMETER :: Cp = 844.6
@@ -5371 +5376 @@
       IMPLICIT NONE
 
-!****MARS
-      REAL , PARAMETER :: Rd = 192.
+!****MARS: beware, hardcoded !!!
+!      REAL , PARAMETER :: Rd = 192.
+      REAL, PARAMETER    :: Rd = 191.
       REAL, PARAMETER    :: g = 3.72
 !****MARS