Changeset 1038 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Sep 13, 2013, 4:01:10 PM (11 years ago)

Author:

aslmd

Message:

MESOSCALE
LMDZ.MARS

--> Performed the necessary modifications for dynamic tracers

to work with the mesoscale model (new physics).

--> Added precompiling flag MESOSCALE around pressure modifications

done in revision 883. This makes the mesoscale model become crazy.

--> Added an option -e in makemeso to erase a configuration and start over.

NOTE
--> not sure recent versions (rev>1000) are compliant with nesting compilation.
--> use mesoscale model + new physics with caution. still not stabilized.

File:

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

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

@@ -192 +192 @@
    ! *** for LMD physics
    ! ------> inputs:
-   INTEGER :: ngrid,nlayer,nq,nsoil,nqmx 
+   INTEGER :: ngrid,nlayer,nq,nsoil 
    REAL :: pday,ptime,MY  
    REAL :: aire_val,lat_val,lon_val
@@ -391 +391 @@
 nlayer = kpe-kps+1                    ! number of vertical layers: nlayermx
 nsoil = NUM_SOIL_LAYERS               ! number of soil layers: nsoilmx
-if (num_3d_s > 1) then                ! number of advected fields: nqmx
+if (num_3d_s > 1) then                ! number of advected fields
         nq = num_3d_s-1               
-        nqmx = num_3d_s-1
 else
         nq = 1
-        nqmx = 1
 endif
 ! **** needed but hardcoded
@@ -1052 +1050 @@
     qsurf_val(2)=MARS_WICE(i,j)    !! logique avec wtnom(2) = 'h2o_ice' defini ci-dessus
                                    !! ----- retrocompatible ancienne physique
-                                   !! ----- [H2O ice is tracer nqmx in qsurf in LMD physics]
+                                   !! ----- [H2O ice is last tracer in qsurf in LMD physics]
     CASE(2)  
     qsurf_val(1)=0.                !! not coupled with lifting for the moment [non remobilise]