Changeset 1636 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new

Timestamp:

Nov 29, 2016, 8:19:46 AM (8 years ago)

Author:

aslmd

Message:

made CO2 mr to 0.95 by default in module_lmd_driver

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

@@ -505 +505 @@
 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
   !-----------------!