source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis3.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: 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 meso_inifis(ngridmx,nlayer,nqmx,dt, &
11               wday_ini,wdaysec,                &
12               wappel_phys,                     &
13               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
14               womeg,wmugaz,                                           &
15               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
16               wz0,wemin_turb,wlmixmin,                                &
17               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
18               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
19#ifdef NEWPHYS
20               walbedodat, wphisfi, wvolcapa,                          &
21#else
22               walbedodat, winertiedat, wphisfi,                       &
23#endif
24               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
25               wtheta, wpsi)
26
27       CASE(2)
28       CALL d2_meso_inifis(ngridmx,nlayer,nqmx,dt, &
29               wday_ini,wdaysec,                   &
30               wappel_phys,                        &
31               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
32               womeg,wmugaz,                                           &
33               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
34               wz0,wemin_turb,wlmixmin,                                &
35               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
36               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
37#ifdef NEWPHYS
38               walbedodat, wphisfi, wvolcapa,                          &
39#else
40               walbedodat, winertiedat, wphisfi,                       &
41#endif
42               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
43               wtheta, wpsi)
44
45       CASE(3)
46       CALL d3_meso_inifis(ngridmx,nlayer,nqmx,dt, &
47               wday_ini,wdaysec,                   &
48               wappel_phys,                        &
49               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
50               womeg,wmugaz,                                           &
51               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
52               wz0,wemin_turb,wlmixmin,                                &
53               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
54               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
55#ifdef NEWPHYS
56               walbedodat, wphisfi, wvolcapa,                          &
57#else
58               walbedodat, winertiedat, wphisfi,                       &
59#endif
60               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
61               wtheta, wpsi)
62
63
64!
65!       CASE(3:)
66!       print *, '** Mars ** Not supported ...'
67!       stop
68!
69END SELECT
Note: See TracBrowser for help on using the repository browser.