source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis2.inc @ 234

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

LMDZ.MARS
+ MESOSCALE

  • An important change to merge physiq.F and inifis.F for GCM and mesoscale
  • This is mostly transparent to GCM users and developers (use of MESOSCALE precompiler flags)
  • Makes it easy (and mostly automatic!) for changes in GCM physics to be impacted in mesoscale physics
  • A few minor changes have followed in the GCM (slope scheme, one-point diagnostic).
  • Compilation + run is OK on both sides (GCM and mesoscale).
  • On the mesoscale side, call_meso_physiq?.inc and call_meso_inifis?.inc have been changed accordingly.

Here is the excerpt from README file:

19/07/2011 == AS

  • Finished converging meso_physiq.F and meso_inifis.F towards physiq.F and inifis.F --> see previous point 15/07/2011 --> meso_ routines no longer exist (everything is in meso_inc and transparent to GCM users) --> GCM routines include mesoscale parts within MESOSCALE precompiler commands --> MESOSCALE parts are as hidden as possible not to mess up with GCM users/developers
  • Cleaned inelegant or useless #ifdef [or] #ifndef MESOSCALE in physiq and inifis so that a minimum amount of such precompiler commands is now reached [mainly related to I/O]
  • Added the SF08 slope insolation model in the general physics parameterizations. Added a callslope keyword in inifis.F and callkeys.h --> This keyword is False by default / True if you use -DMESOSCALE
  • Removed the obsolete call to Viking Lander 1 diagnostic Replaced it with a diagnostic for opacity at the domain center [valid for GCM and mesoscale]
File size: 2.0 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 inifis(ngridmx,nlayer, &
11               wday_ini,wdaysec,                &
12               wappel_phys,                     &
13               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
14               nqmx,dt,                                                &
15               womeg,wmugaz,                                           &
16               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
17               wz0,wemin_turb,wlmixmin,                                &
18               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
19               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
20#ifdef NEWPHYS
21               walbedodat, wphisfi, wvolcapa,                          &
22#else
23               walbedodat, winertiedat, wphisfi,                       &
24#endif
25               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
26               wtheta, wpsi)
27
28
29       CASE(2)
30       CALL d2_inifis(ngridmx,nlayer, &
31               wday_ini,wdaysec,                   &
32               wappel_phys,                        &
33               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
34               nqmx,dt,                                                &
35               womeg,wmugaz,                                           &
36               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
37               wz0,wemin_turb,wlmixmin,                                &
38               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
39               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
40#ifdef NEWPHYS
41               walbedodat, wphisfi, wvolcapa,                          &
42#else
43               walbedodat, winertiedat, wphisfi,                       &
44#endif
45               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
46               wtheta, wpsi)
47
48!
49!       CASE(3:)
50!       print *, '** Mars ** Not supported ...'
51!       stop
52!
53END SELECT
Note: See TracBrowser for help on using the repository browser.