Changeset 51 for trunk/mars/libf/phymars

Timestamp:

Jan 29, 2011, 4:43:11 AM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS avec nouvelle physique entierement interfacee avec LMDZ.MARS

---

M mars/libf/phymars/dimradmars.h
M mars/libf/phymars/callradite.F

simples changements pour faire tourner un cas test

• dust conrath
• un seul traceur

un petit domaine splitting de plus

A mesoscale/TESTS/LMD_MM_MARS_FASTCASEnewphys.tar.gz

cas test du mesochelle avec la nouvelle physique
essai concluant !

M mesoscale/NOTES.txt
M mesoscale/LMD_MM_MARS/prepare_ini
M chantiers/commit_importants.log

MAJ notes

M mesoscale/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F

correctif pour le cas ou on tourne avec d'anciens diagfi avec 10 niveaux
dans le sol seulement. si tsoil < 20 K (disons) dans un niveau donne, alors
tsoil est regle a la temperature du niveau superieur.

D mesoscale/COMMON_GCM/gr_fi_dyn.F
D mesoscale/COMMON_GCM/diff_oldgcm_oldmeso_checked
D mesoscale/COMMON_GCM/meso_dustlift.txt
D mesoscale/COMMON_GCM/dimradmars.txt
D mesoscale/COMMON_GCM/nocompile.txt
D mesoscale/COMMON_GCM/meso_callkeys.txt
D mesoscale/COMMON_GCM/dimradmars.h

menage

Location:

trunk/mars/libf/phymars

Files:

• callradite.F (modified) (1 diff)
• dimradmars.h (modified) (3 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"
-         name_iaer(1) = "dust_doubleq"
-c        name_iaer(2) = "dust_submicron"
-         name_iaer(2) = "h2o_ice"
+         name_iaer(1) = "dust_conrath"
+c        name_iaer(1) = "dust_doubleq"
+cc        name_iaer(2) = "dust_submicron"
+c         name_iaer(2) = "h2o_ice"
 c        ----------------------------------------------------------
 

trunk/mars/libf/phymars/dimradmars.h

@@ -15 +15 @@
       INTEGER  NFLEV,NDLON,NDLO2,ndomainsz
 
-      parameter (ndomainsz=ngridmx)
-!     parameter (ndomainsz=(ngridmx-1)/20 + 1)
-!     parameter (ndomainsz=(ngridmx-1)/5 + 1) 
+!      parameter (ndomainsz=ngridmx)
+      parameter (ndomainsz=(ngridmx-1)/20 + 1)
+!      parameter (ndomainsz=(ngridmx-1)/5 + 1) 
 
       parameter (NFLEV=nlayermx,NDLON=ndomainsz) ! avec decoupage
@@ -27 +27 @@
 ! (ex: naerkind=2 if you use one dust mode and active ice ...)
       integer naerkind
-      parameter (naerkind=2)
+      parameter (naerkind=1)
+!      parameter (naerkind=2)
 
 ! Reference wavelengths used to compute reference optical depth (m)
@@ -76 +77 @@
 
       INTEGER, PARAMETER :: nsizemax = 60
-!     INTEGER, PARAMETER :: nsizemax = 1
+!      INTEGER, PARAMETER :: nsizemax = 1
 
 ! Various initialisation for LW radiative code