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

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

Location:

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2

Files:

• Registry/Registry.EM (modified) (2 diffs)
• phys/module_lmd_driver.F (modified) (2 diffs)

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM

@@ -92 +92 @@
 state  real  MTOT      ij   misc  1  -  rhd  "MTOT"      "TOTAL MASS WATER VAPOR"          "kg m-2"  #SAVEMARS2 mtot
 state  real  ICETOT    ij   misc  1  -  rhd  "ICETOT"    "TOTAL MASS WATER ICE"            "kg m-2"  #SAVEMARS2 icetot
-state  real  RAVE      ij   misc  1  -  rhd  "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
-state  real  RICE      ikj  misc  1  -  rd   "RICE"      "ICE RADIUS"                      "m"       #SAVEMARS3 rice
+state  real  RAVE      ij   misc  1  -  rd   "RAVE"      "MEAN ICE RADIUS"                 "m"       #SAVEMARS2 rave
+state  real  RICE      ikj  misc  1  -  rhd  "RICE"      "ICE RADIUS"                      "m"       #SAVEMARS3 rice
 state  real  HR_SW     ikj  misc  1  -  rd   "HR_SW"     "HEATING RATE SW"                 "K/s"     #SAVEMARS3 zdtsw
 state  real  HR_LW     ikj  misc  1  -  rd   "HR_LW"     "HEATING RATE LW"                 "K/s"     #SAVEMARS3 zdtlw
 state  real  HR_SH     ikj  misc  1  -  rd   "HR_SH"     "HEATING RATE sens. heat"         "K/s"     #SAVEMARS3 zdtdif
-state  real  QSURF     ij   misc  1  -  rhd  "QSURF"     "TRACER AT SURFACE"               "kg m-2"  #SAVEMARS2 qsurflast
+state  real  QSURFICE  ij   misc  1  -  rhd  "QSURFICE"  "WATER ICE AT SURFACE"            "kg m-2"  #SAVEMARS2 qsurfice
+state  real  RDUST     ikj  misc  1  -  rhd  "RDUST"     "DUST RADIUS"                     "m"       #SAVEMARS3 rdust
+state  real  HR_NIR    ikj  misc  1  -  rd   "HR_NIR"    "HEATING RATE nirco2"             "K/s"     #SAVEMARS3 zdtnirco2
+state  real  HR_NLTE   ikj  misc  1  -  rd   "HR_NLTE"   "HEATING RATE nlte"               "K/s"     #SAVEMARS3 zdtnlte
 ####
 ####
@@ -1237 +1240 @@
 rconfig   logical     pd_moist            namelist,dynamics     max_domains    .false.  rh    "pd_moist"         "positive-definite RK3 transport switch"      ""
 rconfig   logical     pd_chem             namelist,dynamics     max_domains    .false. rh    "pd_chem"          "positive-definite RK3 transport switch"      ""
-#rconfig   logical     pd_scalar           namelist,dynamics    max_domains    .true.  rh    "pd_scalar"        "positive-definite RK3 transport switch"      ""
-rconfig   logical     pd_scalar           namelist,dynamics     max_domains    .false. rh    "pd_scalar"        "positive-definite RK3 transport switch"      ""
+rconfig   logical     pd_scalar           namelist,dynamics     max_domains    .true.  rh    "pd_scalar"        "positive-definite RK3 transport switch"      ""
+#rconfig   logical     pd_scalar           namelist,dynamics     max_domains    .false. rh    "pd_scalar"        "positive-definite RK3 transport switch"      ""
 rconfig   logical     pd_tke              namelist,dynamics     max_domains    .false. rh    "pd_tke"           "positive-definite RK3 transport switch"      ""
 rconfig   logical top_radiation           namelist,dynamics     max_domains    .false. rh    "top_radiation"         ""      ""

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:)