| 1 | ! |
|---|
| 2 | ! part of the module_lmd_driver program |
|---|
| 3 | ! that is (number of domains)-dependent |
|---|
| 4 | ! |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | SELECT 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 | ! print *, '** Mars ** Not supported ...' |
|---|
| 39 | ! stop |
|---|
| 40 | ! |
|---|
| 41 | END SELECT |
|---|
