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

Last change on this file since 705 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
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,solvarmod,solvaryear
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      integer solvarmod   ! model for solar EUV variation
50      integer solvaryear  ! mars year for realisticly varying solar EUV
51
52      logical rayleigh
53      logical tracer
54      integer dustbin
55      logical active,doubleq,submicron,lifting,callddevil,scavenging
56      logical sedimentation,activice,water,microphys,caps
57      logical photochem
58      integer nltemodel
59      integer nircorr
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.