source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq4.inc @ 1853

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

MESOSCALE : modifications for restart broke MMM or LES with old physics. now fixed.
File size: 2.5 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       CALL d3_physiq (ngrid,nlayer,nq,                              &
39               firstcall,lastcall,pday,ptime,ptimestep,                &
40               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
41               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
42               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
43#ifdef NEWPHYS
44               wtnom, wisoil, wdsoil, &
45               wfluxrad,wwstar,               &
46#endif
47               wday_ini,                      &
48               output_tab2d, output_tab3d,    &
49               flag_LES)
50
51       CASE(4)
52       CALL d4_physiq (ngrid,nlayer,nq,                              &
53               firstcall,lastcall,pday,ptime,ptimestep,                &
54               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
55               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
56               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
57#ifdef NEWPHYS
58               wtnom, wisoil, wdsoil, &
59               wfluxrad,wwstar,               &
60#endif
61               wday_ini,                      &
62               output_tab2d, output_tab3d,    &
63               flag_LES)
64
65!       CASE(3:)
66!       print *, '** Mars ** Not supported ...'
67!       stop
68!
69END SELECT
70
71
Note: See TracBrowser for help on using the repository browser.