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

Last change on this file since 635 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
Line 
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    &
14     &   ,microphys,caps,photochem,calltherm,outptherm,callrichsl       &
15     &   ,callslope,tituscap
16     
17      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
18     &   ,dustbin,nltemodel,nircorr
19     
20      COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,euveff,     &
21     &   tke_heat_flux
22     
23      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
24     &   season,diurnal,lwrite,calllott                                 &
25     &   ,callstats,calleofdump                                         &
26     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
27     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
28     &   ,calltherm,outptherm,callrichsl,callslope,tituscap
29
30
31      logical callemis
32      logical callg2d
33      logical linear
34
35      real topdustref
36      real semi
37      real alphan
38      real solarcondate
39      real euveff
40      real tke_heat_flux
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
54      logical sedimentation,activice,water,microphys,caps
55      logical photochem
56      integer nltemodel
57      integer nircorr
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.