| 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 | CASE(2) |
|---|
| 28 | CALL d2_meso_inifis(ngridmx,nlayer,nqmx,dt, & |
|---|
| 29 | wday_ini,wdaysec, & |
|---|
| 30 | wappel_phys,wecri_phys, & |
|---|
| 31 | lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp, & |
|---|
| 32 | womeg,wmugaz, & |
|---|
| 33 | wyear_day,wperiheli,waphelie,wperi_day,wobliquit, & |
|---|
| 34 | wz0,wemin_turb,wlmixmin, & |
|---|
| 35 | wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS, & |
|---|
| 36 | wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS, & |
|---|
| 37 | #ifdef NEWPHYS |
|---|
| 38 | walbedodat, wphisfi, wvolcapa, & |
|---|
| 39 | #else |
|---|
| 40 | walbedodat, winertiedat, wphisfi, & |
|---|
| 41 | #endif |
|---|
| 42 | wzmea,wzstd,wzsig,wzgam,wzthe, & |
|---|
| 43 | wtheta, wpsi) |
|---|
| 44 | |
|---|
| 45 | CASE(3) |
|---|
| 46 | CALL d3_meso_inifis(ngridmx,nlayer,nqmx,dt, & |
|---|
| 47 | wday_ini,wdaysec, & |
|---|
| 48 | wappel_phys,wecri_phys, & |
|---|
| 49 | lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp, & |
|---|
| 50 | womeg,wmugaz, & |
|---|
| 51 | wyear_day,wperiheli,waphelie,wperi_day,wobliquit, & |
|---|
| 52 | wz0,wemin_turb,wlmixmin, & |
|---|
| 53 | wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS, & |
|---|
| 54 | wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS, & |
|---|
| 55 | #ifdef NEWPHYS |
|---|
| 56 | walbedodat, wphisfi, wvolcapa, & |
|---|
| 57 | #else |
|---|
| 58 | walbedodat, winertiedat, wphisfi, & |
|---|
| 59 | #endif |
|---|
| 60 | wzmea,wzstd,wzsig,wzgam,wzthe, & |
|---|
| 61 | wtheta, wpsi) |
|---|
| 62 | |
|---|
| 63 | CASE(4) |
|---|
| 64 | CALL d4_meso_inifis(ngridmx,nlayer,nqmx,dt, & |
|---|
| 65 | wday_ini,wdaysec, & |
|---|
| 66 | wappel_phys,wecri_phys, & |
|---|
| 67 | lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp, & |
|---|
| 68 | womeg,wmugaz, & |
|---|
| 69 | wyear_day,wperiheli,waphelie,wperi_day,wobliquit, & |
|---|
| 70 | wz0,wemin_turb,wlmixmin, & |
|---|
| 71 | wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS, & |
|---|
| 72 | wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS, & |
|---|
| 73 | #ifdef NEWPHYS |
|---|
| 74 | walbedodat, wphisfi, wvolcapa, & |
|---|
| 75 | #else |
|---|
| 76 | walbedodat, winertiedat, wphisfi, & |
|---|
| 77 | #endif |
|---|
| 78 | wzmea,wzstd,wzsig,wzgam,wzthe, & |
|---|
| 79 | wtheta, wpsi) |
|---|
| 80 | |
|---|
| 81 | ! |
|---|
| 82 | ! CASE(3:) |
|---|
| 83 | ! print *, '** Mars ** Not supported ...' |
|---|
| 84 | ! stop |
|---|
| 85 | ! |
|---|
| 86 | END SELECT |
|---|
