Changeset 503 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jan 24, 2012, 6:31:51 PM (13 years ago)

Author:

acolaitis

Message:

Mesoscale/Les?. Added improvments to mode 21. Corrected variable names for new subgrid gustiness definitions.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Files:

• Registry/Registry.EM (modified) (1 diff)
• phys/module_lmd_driver.F (modified) (1 diff)

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

@@ -107 +107 @@
 state  real  TAU_ICE   ij   misc  1  -  rd   "TAU_ICE"   "CLOUD OD at 825 cm-1 TES"        ""        #SAVEMARS2 tauTES
 state  real  PDTZ      ikj  misc  1  -  rd   "PDT"       "TEMP TENDENCY"                   "K s-1"   #SAVEMARS3 pdt
-state  real  LMAX_TH   ij   misc  1  -  rd   "LMAX_TH"   "MAXIMUM LEVEL REACHED IN TH"     ""        #SAVEMARS2 lmax_th_out
-state  real  HFMAX_TH  ij   misc  1  -  rd   "HFMAX_TH"  "MAXIMUM TH HEAT FLUX"            "m.K/s"   #SAVEMARS2 hfmax_th
-state  real  WMAX_TH   ij   misc  1  -  rd   "WMAX_TH"   "MAXIMUM TH VERTICAL VELOCITY"    "m/s"     #SAVEMARS2 wmax_th
+state  real  LMAX_TH   ij   misc  1  -  rhd   "LMAX_TH"   "MAXIMUM LEVEL REACHED IN TH"     ""        #SAVEMARS2 lmax_th_out
+state  real  HFMAX_TH  ij   misc  1  -  rhd   "HFMAX_TH"  "MAXIMUM TH HEAT FLUX"            "m.K/s"   #SAVEMARS2 hfmax_th
+state  real  WSTAR     ij   misc  1  -  rhd  "WSTAR"   "FREE CONVECTION VELOCITY FROM TH"    "m/s"     #SAVEMARS2 wstar
 state  real  Z0SET     ij   misc  1  -  rd   "Z0SET"     "SET SURFACE ROUGHNESS"           "m"       #SAVEMARS2 z0
 

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

@@ -1303 +1303 @@
       ENDDO
       IF(lctindex .eq. 0) print*, 'probleme index'
-        ziindex=zipbl(lctindex)
+        IF ((zilct(lctindex) .gt. 12.) .and.( zilct(lctindex) .lt. 18)) THEN
+            ziindex=MAX(0.,zipbl(lctindex)-7.)
+        ELSE
+            ziindex=0.
+        ENDIF
 ENDIF