Changeset 1745 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jul 24, 2017, 2:05:31 AM (8 years ago)

Author:

aslmd

Message:

MESOSCALE. missing initialization in module_model_constants since r1724. redundant declaration of planet in module_initialize_quarter_ss

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Files:

• dyn_em/module_initialize_quarter_ss.F (modified) (1 diff)
• share/module_model_constants.F (modified) (1 diff)

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

@@ -135 +135 @@
       INTEGER :: hypsometric_opt = 1 ! classic
       !INTEGER :: hypsometric_opt = 2 ! Wee et al. 2012 correction
-
-character(len=10) :: planet
 
 #ifdef DM_PARALLEL

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F

@@ -189 +189 @@
     IMPLICIT NONE
     Call initial_config
+    planet=model_config_rec%planet
     !write(*,*) "unknown planet type", planet
     !stop