source: trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq2.inc @ 46

Last change on this file since 46 was 28, checked in by aslmd, 15 years ago

LMD_MM_MARS: ancienne et nouvelle physique sur le mm coeur dynamique
File size: 1.2 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#ifdef NEWPHYS
16               wisoil, wdsoil, &
17#endif
18               wecri_phys_sec,                &
19               output_tab2d, output_tab3d, flag_LES)
20
21       CASE(2)
22       CALL d2_meso_physiq (ngrid,nlayer,nq,                           &
23               firstcall,lastcall,wday_ini,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               wisoil, wdsoil, &
29#endif
30               wecri_phys_sec,                &
31               output_tab2d, output_tab3d, flag_LES)
32
33!       CASE(3:)
34!       print *, '** Mars ** Not supported ...'
35!       stop
36!
37END SELECT
38
39
Note: See TracBrowser for help on using the repository browser.