source: trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc @ 11

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

spiga@svn-planeto:ajoute le modele meso-echelle martien
File size: 1.6 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_physiq (ngrid,nlayer,nq,                              &
11               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
12               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
13               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
14               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
15               wecri_phys_sec,                &
16               output_tab2d, output_tab3d, flag_LES)
17
18       CASE(2)
19       CALL d2_meso_physiq (ngrid,nlayer,nq,                           &
20               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
21               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
22               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
23               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
24               wecri_phys_sec,                &
25               output_tab2d, output_tab3d, flag_LES)
26
27       CASE(3)
28       CALL d3_meso_physiq (ngrid,nlayer,nq,                           &
29               firstcall,lastcall,wday_ini,pday,ptime,ptimestep,       &
30               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
31               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
32               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
33               wecri_phys_sec,                &
34               output_tab2d, output_tab3d, flag_LES)
35
36
37!       CASE(3:)
38!       print *, '** Mars ** Not supported ...'
39!       stop
40!
41END SELECT
42
43
Note: See TracBrowser for help on using the repository browser.