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

!
! For Fortran 77/Fortran 90 compliance always use line continuation
! symbols '&' in columns 73 and 6
!
! NB: to keep commons aligned, it is better to split them in groups
!     of given types (logical, integer, real, ...)

      COMMON/callkeys_l/callrad,calldifv,calladj,callcond,callsoil      &
     &   ,season,diurnal,lwrite,calllott,callstats,calleofdump          &
     &   ,callnirco2,callnlte,callthermos,callconduct,calleuv           &
     &   ,callmolvis,callmoldiff,thermochem,thermoswater,callemis       &
     &   ,callg2d,linear,rayleigh,tracer,active,doubleq,submicron       &
     &   ,lifting,freedust,callddevil,scavenging,sedimentation          &
     &   ,activice,water,tifeedback,microphys,supersat,caps,photochem   &
     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds,&
     &   microphysco2
     
      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
     &   ,dustbin,nltemodel,nircorr,solvarmod,solvaryear
     
      COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,euveff,     &
     &   tke_heat_flux,dustrefir
     
      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
     &   season,diurnal,lwrite,calllott                                 &
     &   ,callstats,calleofdump                                         &
     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4

      COMMON/aeroutput/dustiropacity

      logical callemis
      logical callg2d
      logical linear

      real topdustref
      real semi
      real alphan
      real solarcondate
      real euveff
      real tke_heat_flux

      integer iddist
      integer iaervar
      integer iradia
      integer ilwd
      integer ilwb
      integer ilwn
      integer ncouche
      integer solvarmod   ! model for solar EUV variation
      integer solvaryear  ! mars year for realisticly varying solar EUV 

      logical rayleigh
      logical tracer
      integer dustbin
      logical freedust 
      logical active,doubleq,submicron,lifting,callddevil,scavenging
      logical sedimentation
      logical activice,tifeedback,supersat,caps
      logical co2clouds
      logical water
      logical microphys
      logical photochem
      logical microphysco2
      integer nltemodel
      integer nircorr

      character(len=100) dustiropacity
      real               dustrefir 
  
      integer swrtype ! type of short wave (solar wavelength) radiative
      ! transfer to use 1: Fouquart 2: Toon.
      parameter (swrtype=2)
!      parameter (swrtype=2)