Changeset 523 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Feb 10, 2012, 6:47:12 PM (13 years ago)

Author:

aslmd

Message:

LMDZ.MARS and MESOSCALE: various minor improvements of workflow. no particularly interesting stuff. the only thing to note is that makegcm is renamed makegcm_pgf to be clearer.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Files:

• Registry/Registry.EM (modified) (1 diff)
• mars_lmd/libf/phymars/physiq.F (modified) (2 diffs)

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  ZMAX_TH   ij   misc  1  -  rd   "ZMAX_TH"   "MAXIMUM LEVEL REACHED IN TH"     "m"       #SAVEMARS2 zmax_th
 state  real  HFMAX_TH  ij   misc  1  -  rd   "HFMAX_TH"  "MAXIMUM TH HEAT FLUX"            "m.K/s"   #SAVEMARS2 hfmax_th
 state  real  WSTAR     ij   misc  1  -  rd   "WSTAR"     "FREE CONVECTION VELOCITY FROM TH" "m/s"    #SAVEMARS2 wstar

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/physiq.F

@@ -1064 +1064 @@
 c   -------------------------------------------
 
-      tituscap = .false.
+      tituscap = .true.
       IF (tituscap) THEN
          PRINT*,'TITUS CAP !!!'
@@ -1081 +1081 @@
      $              fluxsurf_sw) 
 
+         IF (tituscap) THEN 
+           DO ig=1,ngrid
+             pdpsrf(ig) = 0.
+           ENDDO
+         ENDIF
 
          DO l=1,nlayer