source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis2.inc @ 1202

Last change on this file since 1202 was 1038, checked in by aslmd, 12 years ago

MESOSCALE
LMDZ.MARS

--> Performed the necessary modifications for dynamic tracers

to work with the mesoscale model (new physics).

--> Added precompiling flag MESOSCALE around pressure modifications

done in revision 883. This makes the mesoscale model become crazy.

--> Added an option -e in makemeso to erase a configuration and start over.

NOTE
--> not sure recent versions (rev>1000) are compliant with nesting compilation.
--> use mesoscale model + new physics with caution. still not stabilized.
File size: 2.3 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 inifis(ngridmx,nlayer, &
11#ifdef NEWPHYS
12               nq,  &
13#endif
14               wday_ini,wdaysec,                &
15               wappel_phys,                     &
16               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
17#ifdef NEWPHYS
18               dt,                                                     &
19#else
20               nq,dt,                                                &
21#endif
22               womeg,wmugaz,                                           &
23               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
24               wz0,wemin_turb,wlmixmin,                                &
25               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
26               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
27#ifdef NEWPHYS
28               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
29#else
30               walbedodat, winertiedat, wphisfi,                       &
31#endif
32               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
33               wtheta, wpsi)
34
35
36       CASE(2)
37       CALL d2_inifis(ngridmx,nlayer, &
38#ifdef NEWPHYS
39               nq,  &
40#endif
41               wday_ini,wdaysec,                   &
42               wappel_phys,                        &
43               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
44#ifdef NEWPHYS
45               dt,                                                     &
46#else
47               nq,dt,                                                &
48#endif
49               womeg,wmugaz,                                           &
50               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
51               wz0,wemin_turb,wlmixmin,                                &
52               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
53               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
54#ifdef NEWPHYS
55               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
56#else
57               walbedodat, winertiedat, wphisfi,                       &
58#endif
59               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
60               wtheta, wpsi)
61
62!
63!       CASE(3:)
64!       print *, '** Mars ** Not supported ...'
65!       stop
66!
67END SELECT
Note: See TracBrowser for help on using the repository browser.