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

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.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/physiq.F (modified) (2 diffs)

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