Changeset 77 for trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

Timestamp:

Feb 24, 2011, 4:14:33 PM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS: nuages et poussiere radiativement actifs

--> tests concluants
VERSION DE REFERENCE pour NOUVELLE PHYSIQUE
-- il reste le nest a implementer (cf. lignes trop longues)

M 76 mars/libf/phymars/dimradmars.h
M 76 mars/libf/phymars/callradite.F
M 76 mesoscale/LMDZ.MARS.new/myGCM/callphys.def
M 76 mesoscale/TESTS/newphys_tracers/namelist.input
reglages pour nuages et poussiere radiativement actifs

M 76 mesoscale/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM
M 76 mars/libf/phymars/meso_physiq.F
correction pour bien sortir les depots de glace d'eau au sol [QSURFICE]
correction pour que pd_scalar soit egal a .true. par defaut

M 76 mars/libf/phymars/vdifc.F
M 76 mesoscale/NOTES.txt
M 76 mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
commentaires et notes

File:

• trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (2 diffs)

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

@@ -832 +832 @@
                                    !! ----- [H2O ice is tracer nqmx in qsurf in LMD physics]
     CASE(2)  
-    qsurf_val(1)=10000.            !! infinite amount of dust, basically
+    qsurf_val(1)=0.                !! not coupled with lifting for the moment [non remobilise]
 #ifdef NEWPHYS
     CASE(3)
@@ -839 +839 @@
     qsurf_val(1)=0.
     qsurf_val(2)=MARS_WICE(i,j)    !! logique avec wtnom(2) = 'h2o_ice' defini ci-dessus
-    !!!! petit probleme... alors QSURF sorti dans wrfout n'est pas h2o_ice !
-    qsurf_val(3)=10000.            !! infinite amount of dust, basically
+    qsurf_val(3)=0.                !! not coupled with lifting for the moment [non remobilise]
 #else
     CASE(3:)