source: trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis3.inc @ 26

Last change on this file since 26 was 11, checked in by aslmd, 15 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien
File size: 2.5 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_inifis(ngridmx,nlayer,nqmx,dt, &
11               wday_ini,wdaysec,               &
12               wappel_phys,wecri_phys,         &
13               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
14               womeg,wmugaz,                                           &
15               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
16               wz0,wemin_turb,wlmixmin,                                &
17               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
18               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
19               walbedodat,winertiedat,wphisfi,                         &
20               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
21               wtheta,wpsi)
22
23       CASE(2)
24       CALL d2_meso_inifis(ngridmx,nlayer,nqmx,dt, &
25               wday_ini,wdaysec,               &
26               wappel_phys,wecri_phys,         &
27               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
28               womeg,wmugaz,                                           &
29               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
30               wz0,wemin_turb,wlmixmin,                                &
31               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
32               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
33               walbedodat,winertiedat,wphisfi,                         &
34               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
35               wtheta,wpsi)
36
37       CASE(3)
38       CALL d3_meso_inifis(ngridmx,nlayer,nqmx,dt, &
39               wday_ini,wdaysec,               &
40               wappel_phys,wecri_phys,         &
41               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
42               womeg,wmugaz,                                           &
43               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
44               wz0,wemin_turb,wlmixmin,                                &
45               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
46               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
47               walbedodat,winertiedat,wphisfi,                         &
48               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
49               wtheta,wpsi)
50
51
52!
53!       CASE(3:)
54!       print *, '** Mars ** Not supported ...'
55!       stop
56!
57END SELECT
Note: See TracBrowser for help on using the repository browser.