Changeset 802 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Oct 5, 2012, 2:52:43 AM (12 years ago)

Author:

aslmd

Message:

MESOSCALE : adaptation for polar runs with new physics. co2 mr is now taken from GCM and given as an input (previously was initialized at 0.95). added mars=10 which is a case with CO2 being the only tracer.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (2 diffs)

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

@@ -780 +780 @@
 !!!                               SAME NAMING   AS IN THE LMD PHYSICS !!!!
 SELECT CASE (MARS_MODE)
-    CASE(0)  
+    CASE(0,10)  
       wtnom(nq) = 'co2'
     CASE(1)
@@ -869 +869 @@
     q_prof(:,1:nq) = SCALAR(i,kps:kpe,j,2:nq+1)  !! the names were set above !! one dummy tracer in WRF
 ENDIF
-  !!! CAS DU CO2
-  DO iii=1,nq 
-   IF ( wtnom(iii) .eq. 'co2' .and. (.not. restart)) q_prof(:,iii) = 0.95
-  ENDDO
+  !!!! CAS DU CO2
+  !DO iii=1,nq 
+  ! IF ( wtnom(iii) .eq. 'co2' .and. (.not. restart)) q_prof(:,iii) = 0.95
+  !ENDDO
   IF ((MARS_MODE .EQ. 20) .OR. (MARS_MODE .EQ. 21)) THEN
    IF (firstcall .EQV. .true. .and. (.not. restart)) THEN