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

Timestamp:

Feb 4, 2012, 10:29:01 AM (14 years ago)

Author:

aslmd

Message:

MESOSCALE: new GCM surface fields. new test case: crater. a flag for the Titus cap.

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

@@ -330 +330 @@
       integer igmin, lmin
       logical tdiag
+      logical tituscap
 
       REAL zplev(ngrid,nlayermx+1),zplay(ngrid,nlayermx)
@@ -1063 +1064 @@
 c   -------------------------------------------
 
-      !!! get the actual co2 seasonal cap from Titus observations
-      CALL geticecover( ngrid, 180.*zls/pi, 
+      tituscap = .false.
+      IF (tituscap) THEN
+         PRINT*,'TITUS CAP !!!'
+         !!! get the actual co2 seasonal cap from Titus observations
+         CALL geticecover( ngrid, 180.*zls/pi,
      .                  180.*long/pi, 180.*lati/pi, co2ice )
-      co2ice = co2ice * 10000.
+         co2ice = co2ice * 10000.
+      ENDIF
 
       IF(callcond) THEN