source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc @ 170

Last change on this file since 170 was 55, checked in by aslmd, 14 years ago

LMD_MM_MARS: element manquant pour runs traceurs avec nouvelle physique
--> avec mars=0 et non actif, le modele fonctionne toujours bien [avec starts JBM et conditions de ses runs]
--> mettre les traceurs avec mars=11 [actifs ou non] semble faire crasher le modele: pourquoi ?

M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq1.inc
M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq2.inc
M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc
M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq4.inc
M 54 mars/libf/phymars/meso_physiq.F
le tableau tnom est defini dans module_lmd_driver en fonction de config_flag%mars [MARS_MODE]

et passe dans meso_physiq [pour ensuite servir dans initracer]

--> le COMMON advtrac.h est alors necessaire

M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM
config_flag%mars defini une serie de traceurs ordonnee dans le tableau scalar

M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/share/module_model_constants.F
on passe au cp et R du GCM martien pour une complete correspondance

M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq.inc
ce fichier est en fait inutile et pourrait etre supprime

M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_real.F
M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F
M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
M 54 mesoscale/LMD_MM_MARS/SRC/WRFV2/main/real_em.F
modifications pour prise en compte des traceurs avec la nouvelle physique
--> avantage des traceurs generiques dans la physique
--> pour l'instant dans SCALAR l'indice 1 est dummy, 2/3 water vapor/ice et dernier CO2

M 54 mesoscale/LMD_MM_MARS/SRC/PREP_MARS/readmeteo_newphys.F90
M 54 mesoscale/LMD_MM_MARS/SRC/WPS/wps_mars/metgrid/METGRID.TBL.ARW_MarsBase_newphys
modifications pour possibilites de passer les tableaux necessaires pour

initialiser et guider les traceurs dans la nouvelle physique

M mars/libf/phymars/dimradmars.h
M mars/libf/phymars/callradite.F
version traceurs non actifs pour tests basiques
File size: 1.9 KB
Line 
1!
2! part of the module_lmd_driver program
3! that is (number of domains)-dependent
4!
5
6
7SELECT CASE (id)
8
9       CASE(1)
10       CALL meso_physiq (ngrid,nlayer,nq,                              &
11               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
12               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
13#ifdef NEWPHYS
14               wtnom, &
15#endif
16               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
17               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
18#ifdef NEWPHYS
19               wisoil, wdsoil, &
20#endif
21               wecri_phys_sec,                &
22               output_tab2d, output_tab3d, flag_LES)
23
24       CASE(2)
25       CALL d2_meso_physiq (ngrid,nlayer,nq,                           &
26               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
27               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
28#ifdef NEWPHYS
29               wtnom, &
30#endif
31               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
32               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
33#ifdef NEWPHYS
34               wisoil, wdsoil, &
35#endif
36               wecri_phys_sec,                &
37               output_tab2d, output_tab3d, flag_LES)
38
39       CASE(3)
40       CALL d3_meso_physiq (ngrid,nlayer,nq,                           &
41               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
42               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
43#ifdef NEWPHYS
44               wtnom, &
45#endif
46               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
47               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
48#ifdef NEWPHYS
49               wisoil, wdsoil, &
50#endif
51               wecri_phys_sec,                &
52               output_tab2d, output_tab3d, flag_LES)
53
54
55!       CASE(3:)
56!       print *, '** Mars ** Not supported ...'
57!       stop
58!
59END SELECT
60
61
Note: See TracBrowser for help on using the repository browser.