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

Timestamp:

Aug 28, 2016, 2:22:51 PM (8 years ago)

Author:

aslmd

Message:

moved planet type to namelist entry. default is Mars.

File:

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

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

@@ -31 +31 @@
         num_3d_s,SCALAR, &
         MARS_MODE, &
+        planet_type, &
         M_ALBEDO,M_TI,M_CO2ICE,M_EMISS, &
         M_H2OICE,M_TSOIL,M_Q2,M_TSURF, &
@@ -75 +76 @@
 !==================================================================
 
+CHARACTER(len=10),INTENT(IN) :: planet_type
 ! WRF Dimensions
 INTEGER, INTENT(IN   )    ::   &
@@ -199 +201 @@
    REAL,ALLOCATABLE :: zrfi_omp(:,:) ! relative wind vorticity, in s-1
 
-   !! this is temporary and supposed to be set by namelist
-   character(len=10),save :: planet_type ! planet type ('earth','mars',...)
-   planet_type = "mars"
-
 !==================================================================
 ! CODE