source: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_inifis1.inc @ 1867

Last change on this file since 1867 was 1212, checked in by aslmd, 11 years ago

LMDZ.MARS + MESOSCALE

A quite major commit, at least for MESOSCALE.
In a word: any ngrid deserves to be free.

  • no need to recompile when changing number of horizontal grid points or number of processors
  • latest version of LMDZ.MARS physics can be used
  • WARNING! Nesting is still yet to be fixed (since r1027)

Also some small bug fixes to LMDZ.MARS.

Changes in LMDZ.MARS

--> fixed a potential bug in thermal plume model because zlmax was computed both in thermcell_main_mars and calltherm_interface... so made it an OUT argument of calltherm_interface. also: changed the name to limz. and added precompiling flags to avoid the use of planetwide in MESOSCALE. in MESOSCALE we just go high enough (nlayer-5) and do not care about computational cost (although we certainly gain from not using MAXVAL).
--> moved allocations upward in inifis. does not change anything for GCM, but make MESOSCALE modifications simpler, and overall make inifis better organized: first allocations, then reading callphys.def file.
--> added precompiling flags around lines that are both useless for MESOSCALE (notably I/O) and recently adapted to parallel computations in the GCM
--> tidied up what is MESOSCALE vs. GCM in surfini

Changes in MESOSCALE

--> changed makemeso to allow dynamically set nx ny nprocs
--> changed makemeso to remove links to Fortran code adapted to parallel GCM and useless for mesoscale
--> changed ngridmx to ngrid in inifis includes

File size: 1.1 KB
Line 
1!
2! part of the module_lmd_driver program
3! that is (number of domains)-dependent
4!
5
6
7       CALL inifis(ngrid,nlayer,         &
8#ifdef NEWPHYS
9               nq,  &
10#endif
11               wday_ini,wdaysec,                &
12               wappel_phys,                     &
13               lat_vec,lon_vec,aire_vec,1/reradius,g,r_d,cp,           &
14#ifdef NEWPHYS
15               dt,                                                     &
16#else
17               nq,dt,                                                &
18#endif
19               womeg,wmugaz,                                           &
20               wyear_day,wperiheli,waphelie,wperi_day,wobliquit,       &
21               wz0,wemin_turb,wlmixmin,                                &
22               wemissiv,wemissiceN,wemissiceS,walbediceN,walbediceS,   &
23               wiceradiusN,wiceradiusS,wdtemisiceN,wdtemisiceS,        &
24#ifdef NEWPHYS
25               walbedodat, wphisfi, wvolcapa, wz0tab,                  &
26#else
27               walbedodat, winertiedat, wphisfi,                       &
28#endif
29               wzmea,wzstd,wzsig,wzgam,wzthe,                          &
30               wtheta, wpsi)
Note: See TracBrowser for help on using the repository browser.