source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis5.inc @ 932

Last change on this file since 932 was 426, checked in by aslmd, 13 years ago

LMDZ.MARS: corrected wrong datafile default link. MESOSCALE: added 4 to 5 nests files. GRAPHICS: added geo files handling. LMDZ.GENERIC: replaced makegcm by a symboli link to makegcm_whateverversion.
File size: 4.8 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               wday_ini,wdaysec,                &
12               wappel_phys,                     &
13               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
14               nqmx,dt,                                                &
15               womeg,wmugaz,                                           &
16               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
17               wz0,wemin_turb,wlmixmin,                                &
18               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
19               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
20#ifdef NEWPHYS
21               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
22#else
23               walbedodat, winertiedat, wphisfi,                       &
24#endif
25               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
26               wtheta, wpsi)
27
28       CASE(2)
29       CALL d2_inifis(ngridmx,nlayer, &
30               wday_ini,wdaysec,                   &
31               wappel_phys,                        &
32               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
33               nqmx,dt,                                                &
34               womeg,wmugaz,                                           &
35               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
36               wz0,wemin_turb,wlmixmin,                                &
37               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
38               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
39#ifdef NEWPHYS
40               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
41#else
42               walbedodat, winertiedat, wphisfi,                       &
43#endif
44               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
45               wtheta, wpsi)
46
47       CASE(3)
48       CALL d3_inifis(ngridmx,nlayer, &
49               wday_ini,wdaysec,                   &
50               wappel_phys,                        &
51               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
52               nqmx,dt,                                                &
53               womeg,wmugaz,                                           &
54               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
55               wz0,wemin_turb,wlmixmin,                                &
56               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
57               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
58#ifdef NEWPHYS
59               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
60#else
61               walbedodat, winertiedat, wphisfi,                       &
62#endif
63               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
64               wtheta, wpsi)
65
66       CASE(4)
67       CALL d4_inifis(ngridmx,nlayer, &
68               wday_ini,wdaysec,                   &
69               wappel_phys,                        &
70               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
71               nqmx,dt,                                                &
72               womeg,wmugaz,                                           &
73               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
74               wz0,wemin_turb,wlmixmin,                                &
75               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
76               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
77#ifdef NEWPHYS
78               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
79#else
80               walbedodat, winertiedat, wphisfi,                       &
81#endif
82               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
83               wtheta, wpsi)
84
85       CASE(5)
86       CALL d5_inifis(ngridmx,nlayer, &
87               wday_ini,wdaysec,                   &
88               wappel_phys,                        &
89               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
90               nqmx,dt,                                                &
91               womeg,wmugaz,                                           &
92               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
93               wz0,wemin_turb,wlmixmin,                                &
94               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
95               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
96#ifdef NEWPHYS
97               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
98#else
99               walbedodat, winertiedat, wphisfi,                       &
100#endif
101               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
102               wtheta, wpsi)
103
104
105
106!
107!       CASE(3:)
108!       print *, '** Mars ** Not supported ...'
109!       stop
110!
111END SELECT
Note: See TracBrowser for help on using the repository browser.