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

Last change on this file since 706 was 705, checked in by emillour, 12 years ago

Mars GCM:

  • Added possibility to run with a varying EUV cycle following real one. The flag solvarmod=1 triggers this behaviour, with companion flag solvaryear=## , where ## is the Mars Year (from 23 to 30). Setting solvarmod=0 reverts to 'old' behaviour, where there is a constant EUV forcing throughout the run, set by the "solarcondate" flag.
  • Needs corresponding input data files ("param_v6" subdirectory of "EUV" subdirectory in "datadir").
  • Added files jthermcalc_e107.F and param_read_e107.F in "aeronomars", modified files euvheat.F90, hrtherm.F, chemthermos.F90, param_v4.h and param_read.F in "aeronomars" and files inifis.F, physiq.F and callkeys.h in "phymars".

FGG
File size: 2.3 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    &
[705]18     &   ,dustbin,nltemodel,nircorr,solvarmod,solvaryear
[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
[705]49      integer solvarmod   ! model for solar EUV variation
50      integer solvaryear  ! mars year for realisticly varying solar EUV
[38]51
52      logical rayleigh
53      logical tracer
54      integer dustbin
55      logical active,doubleq,submicron,lifting,callddevil,scavenging
[358]56      logical sedimentation,activice,water,microphys,caps
[38]57      logical photochem
[414]58      integer nltemodel
59      integer nircorr
[38]60
61      integer swrtype ! type of short wave (solar wavelength) radiative
62      ! transfer to use 1: Fouquart 2: Toon.
63      parameter (swrtype=2)
64!      parameter (swrtype=2)
Note: See TracBrowser for help on using the repository browser.