Changeset 1584 for trunk/MESOSCALE/LMD_MM_MARS

Timestamp:

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

Author:

aslmd

Message:

moved planet type to namelist entry. default is Mars.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Files:

• Registry/Registry.EM.newphys (modified) (1 diff)
• dyn_em/solve_em.F (modified) (1 diff)
• phys/module_lmd_driver.F.new (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM.newphys

@@ -1126 +1126 @@
 ####### MARS SPECIFIC NAMELIST ENTRIES
 #######
+rconfig  character planet   namelist,physics  1            "mars"   -    "planet"    "selection of the planet" ""
 rconfig  integer  mars      namelist,physics  max_domains  0        rh   "mars"      "model mode"              ""
 rconfig  real     init_TI   namelist,physics  max_domains  0        irh  "init_TI"   "thermal inertia"         ""

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

@@ -858 +858 @@
            ! mode
      &        ,MARS_MODE=config_flags%mars   &
+#ifdef NEWPHYS
+           ! planet
+     &        ,planet_type=config_flags%planet   &
+#endif
            ! added variables
      &        ,M_ALBEDO=grid%m_albedo,M_TI=grid%m_ti  &

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