source: trunk/LMDZ.MARS/libf/phymars/callkeys.h @ 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
RevLine 
[38]1!
2! For Fortran 77/Fortran 90 compliance always use line continuation
3! symbols '&' in columns 73 and 6
4!
5! NB: to keep commons aligned, it is better to split them in groups
6!     of given types (logical, integer, real, ...)
7
8      COMMON/callkeys_l/callrad,calldifv,calladj,callcond,callsoil      &
9     &   ,season,diurnal,lwrite,calllott,callstats,calleofdump          &
10     &   ,callnirco2,callnlte,callthermos,callconduct,calleuv           &
11     &   ,callmolvis,callmoldiff,thermochem,thermoswater,callemis       &
12     &   ,callg2d,linear,rayleigh,tracer,active,doubleq,submicron       &
13     &   ,lifting,callddevil,scavenging,sedimentation,activice,water    &
[234]14     &   ,caps,photochem,calltherm,outptherm,callslope
[38]15     
16      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
17     &   ,dustbin,nqchem_min
18     
19      COMMON/callkeys_r/topdustref,solarcondate,semi,alphan
20     
21      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
22     &   season,diurnal,lwrite,calllott                                 &
23     &   ,callstats,calleofdump                                         &
24     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
[161]25     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
[234]26     &   ,calltherm,outptherm,callslope
[38]27
28
29      logical callemis
30      logical callg2d
31      logical linear
32
33      real topdustref
34      real semi
35      real alphan
36      real solarcondate
37
38      integer iddist
39      integer iaervar
40      integer iradia
41      integer ilwd
42      integer ilwb
43      integer ilwn
44      integer ncouche
45
46      logical rayleigh
47      logical tracer
48      integer dustbin
49      logical active,doubleq,submicron,lifting,callddevil,scavenging
50      logical sedimentation,activice,water,caps
51      logical photochem
52      integer nqchem_min
53
54      integer swrtype ! type of short wave (solar wavelength) radiative
55      ! transfer to use 1: Fouquart 2: Toon.
56      parameter (swrtype=2)
57!      parameter (swrtype=2)
Note: See TracBrowser for help on using the repository browser.