Changeset 126 for trunk/mars/libf/phymars

Timestamp:

May 23, 2011, 8:40:24 PM (14 years ago)

Author:

acolaitis

Message:

LMD_LES_MARS et LMD_MM_MARS

M 125 000-USERS
Entree d'Arnaud Colaitis chez les committers.

M 125 mars/libf/phymars/dimradmars.h
M 125 mars/libf/phymars/callradite.F
Cas simple conrath sans doubleq OK avec LES par defaut

M 125 mesoscale/LMD_LES_MARS/modif_mars/module_initialize_les.F
Initialisation du LES a partir de profils de temperature potentielle
calcules avec r_cp de module_initialize_les
[en lieu et place du calcul effectue dans wrf_sounding.sci... risque de mismatch !]

M 125 mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
M 125 mesoscale/LMD_LES_MARS/modif_mars/Registry.EM
Mars mode 20 : add a passive tracer with radioactive-like decay

A 0 mesoscale/LMD_LES_MARS/modif_mars/makeles_gnome
A + - mesoscale/TESTS/newphys_tracers/callphys.def.mars0.ideal
Modifications mineures, ajout de fichiers pour cas specifiques

Location:

trunk/mars/libf/phymars

Files:

• callradite.F (modified) (1 diff)
• dimradmars.h (modified) (2 diffs)

trunk/mars/libf/phymars/callradite.F

@@ -263 +263 @@
 c        PLEASE MAKE SURE that you set up the right number of
 c          scatterers in dimradmars.h (naerkind);
-c         name_iaer(1) = "dust_conrath"   !! poussiere classique
-          name_iaer(1) = "dust_doubleq"
+         name_iaer(1) = "dust_conrath"   !! poussiere classique
+c          name_iaer(1) = "dust_doubleq"
 cc        name_iaer(2) = "dust_submicron" !! JB: experimental
 c          name_iaer(2) = "h2o_ice"

trunk/mars/libf/phymars/dimradmars.h

@@ -27 +27 @@
 ! (ex: naerkind=2 if you use one dust mode and active ice ...)
       integer naerkind
-      parameter (naerkind=1)
+       parameter (naerkind=1)
 !      parameter (naerkind=2)
+!!!!!! CHANGE CHANGE nsizemax BELOW BELOW
 
 ! Reference wavelengths used to compute reference optical depth (m)
@@ -76 +77 @@
 !   the radiative calculations.
 
-      INTEGER, PARAMETER :: nsizemax = 60
-!      INTEGER, PARAMETER :: nsizemax = 1
+!      INTEGER, PARAMETER :: nsizemax = 60
+      INTEGER, PARAMETER :: nsizemax = 1
 
 ! Various initialisation for LW radiative code