Changeset 1741 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jul 24, 2017, 12:56:54 AM (7 years ago)

Author:

aslmd

Message:

MESOSCALE MARS. recommitted r1636 which was removed by r1724 for no reason (r1636 might be still questionable for a reason maybe)

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new (modified) (1 diff)

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

@@ -515 +515 @@
 ENDIF
 
+IF (MARS_MODE .EQ. 32) THEN
+  IF (firstcall .EQV. .true. .and. (.not. restart)) THEN
+      q_prof(:,7) = 0.95
+!! traceurs(7)   = 'co2'
+  ENDIF
+ENDIF
+
+
 IF (firstcall .EQV. .true.) THEN
   !-----------------!