source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc @ 226

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

MESOSCALE/LMDZ.MARS.new
--> modified to impact last changes

MESOSCALE/LMD_MM_MARS/makemeso
MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq?.inc
MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis?.inc
MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F
--> modified to get rid of ecri_phys

and make changes related to meso_physiq and meso_inifis

LMDZ.MARS/libf/phymars
--> see LMDZ.MARS/README

15/07/2011 == AS

  • Modified the mesoscale part so that the previous change by EM does not imply an error in the mesoscale case. More development is needed though to get the "varying z0" capability in the mesoscale model.
  • Worked on versions of meso_physiq and meso_inifis as close as possible to physiq and inifis for more continuity in the process of impacting changes (and even possibly to reach a common version of physiq and inifis).

    The main point is to make the mesoscale significant specific parts

    coded into include files in meso_inc so that meso_physiq and meso_inifis looks very close to physiq and inifis.

    This is completely transparent for GCM users who does not need the

    contents of meso_inc.
  • Slight cosmetic changes to physiq.f and inifis.F --- some of them e.g. to prepare convergence between meso_physiq and physiq
File size: 1.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 meso_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_meso_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 meso_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(3:)
46!       print *, '** Mars ** Not supported ...'
47!       stop
48!
49END SELECT
50
51
Note: See TracBrowser for help on using the repository browser.