Changeset 774 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Sep 6, 2012, 1:12:13 AM (12 years ago)

Author:

aslmd

Message:

MESOSCALE. LES. simplified modifications in previous revision to make those compliant with common module_lmd_driver between LES and MESOSCALE

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

@@ -41 +41 @@
         MARS_Z0, &
         CST_Z0, &
-        MARS_QDUST, &
-        MARS_QNDUST, &
 #endif
         MARS_GW, &
@@ -146 +144 @@
 REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT   )  :: &
      MARS_FLUXRAD,MARS_WSTAR
-REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(IN   )  :: &
-     MARS_QDUST, MARS_QNDUST
 #endif
 REAL, DIMENSION( ims:ime, 5, jms:jme ), INTENT(IN   )  :: &
@@ -868 +864 @@
 !--------------------------------!
 #ifdef NEWPHYS
-!!! Initialize SCALAR for MODE 3.
-IF ((MARS_MODE .EQ. 3) .and. (firstcall .EQV. .true.) .and. (.not. restart)) THEN
-     SCALAR(i,kps:kpe,j,2)=MARS_QDUST(i,kps:kpe,j)
-     SCALAR(i,kps:kpe,j,3)=MARS_QNDUST(i,kps:kpe,j)
-ENDIF
 IF (MARS_MODE .EQ. 0) THEN
     q_prof(:,1)=0.95