| 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 | #ifdef NEWPHYS |
|---|
| 20 | walbedodat, wphisfi, wvolcapa, & |
|---|
| 21 | #else |
|---|
| 22 | walbedodat, winertiedat, wphisfi, & |
|---|
| 23 | #endif |
|---|
| 24 | wzmea,wzstd,wzsig,wzgam,wzthe, & |
|---|
| 25 | wtheta, wpsi) |
|---|
| 26 | |
|---|
| 27 | |
|---|
| 28 | CASE(2) |
|---|
| 29 | CALL d2_meso_inifis(ngridmx,nlayer,nqmx,dt, & |
|---|
| 30 | wday_ini,wdaysec, & |
|---|
| 31 | wappel_phys,wecri_phys, & |
|---|
| 32 | lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp, & |
|---|
| 33 | womeg,wmugaz, & |
|---|
| 34 | wyear_day,wperiheli,waphelie,wperi_day,wobliquit, & |
|---|
| 35 | wz0,wemin_turb,wlmixmin, & |
|---|
| 36 | wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS, & |
|---|
| 37 | wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS, & |
|---|
| 38 | #ifdef NEWPHYS |
|---|
| 39 | walbedodat, wphisfi, wvolcapa, & |
|---|
| 40 | #else |
|---|
| 41 | walbedodat, winertiedat, wphisfi, & |
|---|
| 42 | #endif |
|---|
| 43 | wzmea,wzstd,wzsig,wzgam,wzthe, & |
|---|
| 44 | wtheta, wpsi) |
|---|
| 45 | |
|---|
| 46 | ! |
|---|
| 47 | ! CASE(3:) |
|---|
| 48 | ! print *, '** Mars ** Not supported ...' |
|---|
| 49 | ! stop |
|---|
| 50 | ! |
|---|
| 51 | END SELECT |
|---|
