Changeset 481 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Dec 19, 2011, 6:54:32 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected a bug with dust outputs through MESOINI in new physics. added mars=12 for scavenging runs (see r76).

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

@@ -649 +649 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-SELECT CASE (MARS_MODE) !! ONLY ALLOW FOR MODES DEFINED IN Registry.EM
-   CASE(4-10,12-19,22-41,43:)      !! -- CHANGE THIS if YOU ADDED CASES in REGISTRY.EM
-   PRINT *, 'NOT SUPPORTED, to be done'
-   STOP
-END SELECT
+!SELECT CASE (MARS_MODE) !! ONLY ALLOW FOR MODES DEFINED IN Registry.EM
+!   CASE(4-10,13-19,22-41,43:)      !! -- CHANGE THIS if YOU ADDED CASES in REGISTRY.EM
+!   PRINT *, 'NOT SUPPORTED, to be done'
+!   STOP
+!END SELECT
 !!!!!!!!!!!!!!!!!!! FOR REFERENCE ; FROM REGISTRY.EM
 !package   default      mars==0                      -              -
@@ -685 +685 @@
       wtnom(3)  = 'dust_mass'
       wtnom(4)  = 'dust_number'
+    CASE(12)
+      wtnom(1)  = 'h2o_vap'
+      wtnom(2)  = 'h2o_ice'
+      wtnom(3)  = 'dust_mass'
+      wtnom(4)  = 'dust_number'
+      wtnom(5)  = 'ccn_mass'
+      wtnom(6)  = 'ccn_number'
     CASE(20) 
       wtnom(1) = 'qtrac1'
@@ -920 +927 @@
     CASE(3)
     qsurf_val(:)=0.                !!! temporaire, a definir            
-    CASE(11) 
+    CASE(11-12) 
     qsurf_val(1)=0.
     qsurf_val(2)=MARS_WICE(i,j)    !! logique avec wtnom(2) = 'h2o_ice' defini ci-dessus