Changeset 2335 for trunk

Timestamp:

Jun 4, 2020, 10:23:38 AM (4 years ago)

Author:

aslmd

Message:

MESOSCALE: forgot to make changes in r2211 also in old module_lmd_driver

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

@@ -28 +28 @@
         RTHBLTEN,RUBLTEN,RVBLTEN, &
         num_3d_s,SCALAR, &
+        num_3d_m,MOIST,&
         MARS_MODE, &
         M_ALBEDO,M_TI,M_CO2ICE,M_EMISS, &
@@ -144 +145 @@
      M_GW
 ! 4D arrays
-INTEGER, INTENT(IN ) :: num_3d_s
+INTEGER, INTENT(IN ) :: num_3d_s,num_3d_m
 REAL, DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_3d_s ), INTENT(INOUT ) :: &
      scalar
+REAL, DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_3d_m ), INTENT(INOUT ) :: &
+     moist
 ! Logical
 LOGICAL, INTENT(IN ) :: restart