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

Timestamp:

May 31, 2012, 6:23:57 PM (13 years ago)

Author:

acolaitis

Message:

MMM/LES: bug correction following the restart commit. + added the possibility to use case 0 in newphys.

File:

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

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

@@ -819 +819 @@
 !--------------------------------!
 #ifdef NEWPHYS
-q_prof(:,1:nq) = SCALAR(i,kps:kpe,j,2:nq+1)  !! the names were set above !! one dummy tracer in WRF
+IF (MARS_MODE .EQ. 0) THEN
+    q_prof(:,1)=0.95
+ELSE
+    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 
@@ -1454 +1458 @@
 MARS_TSOIL(i,:,j)=save_tsoil_restart(subs,:)
 MARS_CICE(i,j)=save_co2ice_restart(subs)
-MARS_Q2(i,:,j)=save_q2_restart(subs,:)
+MARS_Q2(i,kps:kpe+1,j)=save_q2_restart(subs,:)
 SELECT CASE (MARS_MODE)
    CASE (1,11,12)
@@ -1472 +1476 @@
 
 SELECT CASE (MARS_MODE)
+CASE(0)
+        SCALAR(i,kps:kpe,j,:)=0.
 CASE(20)
    !! Mars mode 20 : add a passive tracer with radioactive-like decay