Changeset 63 for trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2

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_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F (modified) (5 diffs)

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