Changeset 51 for trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2

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/mesoscale/LMD_MM_MARS/SRC/WRFV2

Files:

• dyn_em/module_initialize_real.F (modified) (1 diff)
• mars_lmd_new/tools_compgcm (moved) (moved from trunk/mesoscale/COMMON_GCM)
• mars_lmd_new/tools_compgcm/diff_oldgcm_oldmeso_checked (deleted)
• mars_lmd_new/tools_compgcm/dimradmars.h (deleted)
• mars_lmd_new/tools_compgcm/dimradmars.txt (deleted)
• mars_lmd_new/tools_compgcm/gr_fi_dyn.F (deleted)
• mars_lmd_new/tools_compgcm/meso_callkeys.txt (deleted)
• mars_lmd_new/tools_compgcm/meso_dustlift.txt (deleted)
• mars_lmd_new/tools_compgcm/nocompile.txt (deleted)

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

@@ -330 +330 @@
                                        !! grid%mars_isoil(i,k+1,j) is defined to large-scale value grid%em_isoil_gc   
                    ENDIF        
+                ENDIF
+                IF (grid%mars_tsoil(i,k,j) .lt. 20.) THEN  !!! une securite pour les anciens diagfi qui n'ont que 10 niveaux
+                   IF (k .ne. 1) grid%mars_tsoil(i,k,j) = grid%mars_tsoil(i,k-1,j)
                 ENDIF
                 !!!!!!!!!!!!!!!!! DONE in soil_setting.F