source: trunk/LMDZ.MARS/libf/phymars/callkeys.h @ 652

Last change on this file since 652 was 635, checked in by emillour, 13 years ago

Mars GCM: Update of the chemistry package, including:

  • 93 reactions are accounted for (instead of 22); tracking 28 species (instead of 11)
  • computation of photoabsorption using raytracing
  • improved time stepping in the photochemistry
  • updated parameters (cross-sections); with this new version input files

are in 'EUV/param_v5' of "datafile" directory.

  • transition between lower and upper atmosphere chemistry set to 0.1 Pa (calchim.F90)
  • Lots of code clean-up: removed obsolete files column.F, param_v3.h, flujo.F, phdisrate.F, ch.F, interpfast.F, paramfoto.F, getch.F Converted chemtermos.F -> chemthermos.F90 and euvheat.F -> euvheat.F90. Added paramfoto_compact.F , param_v4.h and iono.h
  • Upadted surfacearea.F
  • Cleaned initracer.F and callkeys.h (removed use of obsolete "nqchem" and "oldnames" case when initializing tracers).
  • Minor correction in "callsedim": compute "rdust" and/or "rice" only when it makes sense.

FGG+FL+EM
File size: 2.2 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    &
[358]14     &   ,microphys,caps,photochem,calltherm,outptherm,callrichsl       &
[485]15     &   ,callslope,tituscap
[38]16     
17      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
[635]18     &   ,dustbin,nltemodel,nircorr
[38]19     
[552]20      COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,euveff,     &
[544]21     &   tke_heat_flux
[38]22     
23      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
24     &   season,diurnal,lwrite,calllott                                 &
25     &   ,callstats,calleofdump                                         &
26     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
[161]27     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
[485]28     &   ,calltherm,outptherm,callrichsl,callslope,tituscap
[38]29
30
31      logical callemis
32      logical callg2d
33      logical linear
34
35      real topdustref
36      real semi
37      real alphan
38      real solarcondate
[552]39      real euveff
[544]40      real tke_heat_flux
[38]41
42      integer iddist
43      integer iaervar
44      integer iradia
45      integer ilwd
46      integer ilwb
47      integer ilwn
48      integer ncouche
49
50      logical rayleigh
51      logical tracer
52      integer dustbin
53      logical active,doubleq,submicron,lifting,callddevil,scavenging
[358]54      logical sedimentation,activice,water,microphys,caps
[38]55      logical photochem
[414]56      integer nltemodel
57      integer nircorr
[38]58
59      integer swrtype ! type of short wave (solar wavelength) radiative
60      ! transfer to use 1: Fouquart 2: Toon.
61      parameter (swrtype=2)
62!      parameter (swrtype=2)
Note: See TracBrowser for help on using the repository browser.