Changeset 1385 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Mar 4, 2015, 5:22:20 PM (10 years ago)

Author:

aslmd

Message:

corrected a declaration bug seen by picky compiler

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F

@@ -145 +145 @@
 !****MARS
       INTEGER :: hypsometric_opt = 1 ! classic
-      INTEGER :: interp_theta = .true. ! classic
+      LOGICAL :: interp_theta = .true. ! classic
       !INTEGER :: hypsometric_opt = 2 ! Wee et al. 2012 correction
-      !INTEGER :: interp_theta = .false. ! Wee et al. 2012 correction
+      !LOGICAL :: interp_theta = .false. ! Wee et al. 2012 correction
       REAL :: pfu, pfd, phm