Changeset 126 for trunk/mars/libf/phymars/callradite.F

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

File:

• trunk/mars/libf/phymars/callradite.F (modified) (1 diff)

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"