source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq2.inc @ 1580

Last change on this file since 1580 was 678, checked in by aslmd, 13 years ago

MESOSCALE : modifications for restart broke MMM or LES with old physics. now fixed.
File size: 1.4 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 physiq (ngrid,nlayer,nq,                              &
11               firstcall,lastcall,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#ifdef NEWPHYS
16               wtnom, wisoil, wdsoil, &
17               wfluxrad,wwstar,               &
18#endif
19               wday_ini,                      &
20               output_tab2d, output_tab3d,    &
21               flag_LES)
22
23       CASE(2)
24       CALL d2_physiq (ngrid,nlayer,nq,                           &
25               firstcall,lastcall,pday,ptime,ptimestep,                &
26               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
27               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
28               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
29#ifdef NEWPHYS
30               wtnom, wisoil, wdsoil, &
31               wfluxrad,wwstar,               &
32#endif
33               wday_ini,                      &
34               output_tab2d, output_tab3d,    &
35               flag_LES)
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.