source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq5.inc @ 542

Last change on this file since 542 was 426, checked in by aslmd, 13 years ago

LMDZ.MARS: corrected wrong datafile default link. MESOSCALE: added 4 to 5 nests files. GRAPHICS: added geo files handling. LMDZ.GENERIC: replaced makegcm by a symboli link to makegcm_whateverversion.
File size: 2.8 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#endif
18               wday_ini,                      &
19               output_tab2d, output_tab3d, flag_LES)
20
21       CASE(2)
22       CALL d2_physiq (ngrid,nlayer,nq,                              &
23               firstcall,lastcall,pday,ptime,ptimestep,                &
24               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
25               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
26               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
27#ifdef NEWPHYS
28               wtnom, wisoil, wdsoil, &
29#endif
30               wday_ini,                      &
31               output_tab2d, output_tab3d, flag_LES)
32
33       CASE(3)
34       CALL d3_physiq (ngrid,nlayer,nq,                              &
35               firstcall,lastcall,pday,ptime,ptimestep,                &
36               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
37               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
38               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
39#ifdef NEWPHYS
40               wtnom, wisoil, wdsoil, &
41#endif
42               wday_ini,                      &
43               output_tab2d, output_tab3d, flag_LES)
44
45       CASE(4)
46       CALL d4_physiq (ngrid,nlayer,nq,                              &
47               firstcall,lastcall,pday,ptime,ptimestep,                &
48               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
49               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
50               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
51#ifdef NEWPHYS
52               wtnom, wisoil, wdsoil, &
53#endif
54               wday_ini,                      &
55               output_tab2d, output_tab3d, flag_LES)
56
57       CASE(5)
58       CALL d5_physiq (ngrid,nlayer,nq,                              &
59               firstcall,lastcall,pday,ptime,ptimestep,                &
60               pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
61               pdu, pdv, pdt, pdq, pdpsrf, tracerdyn,          &
62               wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,                 &
63#ifdef NEWPHYS
64               wtnom, wisoil, wdsoil, &
65#endif
66               wday_ini,                      &
67               output_tab2d, output_tab3d, flag_LES)
68
69
70!       CASE(3:)
71!       print *, '** Mars ** Not supported ...'
72!       stop
73!
74END SELECT
75
76
Note: See TracBrowser for help on using the repository browser.