!
! For Fortran 77/Fortran 90 compliance always use line continuation
! symbols '&' in columns 73 and 6
!
      COMMON/callkeys/callrad,corrk,calldifv,calladj,                   &
     &   N2cond,callsoil,                                               &
     &   season,diurnal,iradia,lwrite,calllott                          &
     &   ,callstats                                                     &
     &   ,enertest                                                      &
     &   ,callgasvis,callnlte,callthermos,callconduct,                  &
     &        calleuv,callmolvis,callmoldiff,thermochem                 &
     &   , Nmix_co, Nmix_ch4, tau_n2, tau_ch4, tau_co, fluxgeo,fluxgeo2 &
     &   , semi, tau_prechaze                                           &
     &   , alphan, tplanet                                              &
     &   , callemis                                                     &
     &   , callg2d                                                      &
     &   , linear                                                       &
     &   , ilwd                                                         &
     &   , ilwb                                                         &
     &   , ilwn                                                         &
     &   , ncouche                                                      &
     &   , meanOLR                                                      &
     &   , specOLR                                                      &
     &   , startype                                                     &
     &   , Fat1AU,paleoyears,dayfrac,thresh_non2                        &
     &   , tracer                                                       &
     &   , varactive                                                    &
     &   , varfixed,ch4fix,vmrch4fix,vmrch4_proffix                     &
     &   , sedimentation,methane,carbox                                 &
     &   , aerofixed,fractal                                            &
     &   , photochem,nqchem_min,haze_radproffix,haze_proffix            &
     &   , haze,fasthaze,changeti,changetid,aerohaze                    &
     &   , fast,metcloud,monoxcloud,glaflow,triton,paleo,nlte,strobel   &
     &   , kbo,nbsub,cooling,mode_n2,thres_n2ice,thres_coice            &
     &   , deltab,nb_monomer                                            &
     &   , metlateq,tholateq,metls1,metls2                              &
     &   , mode_ch4,mode_tholins                                        &
     &   , source_haze,ch4lag,latlag,vmrlag,kfix,hazeconservch4         &
     &   , fracsource,latsource,lonsource                               &
     &   , spelon1,spelon2,spelat1,spelat2,specalb                      &
     &   , assymflux,mode_hs,tsurfmax,albmin_ch4                        &
     &   , feedback_met,thres_ch4ice,fdch4_latn,fdch4_lats              &
     &   , globmean1d,kmixmin,kmix_proffix,rad_haze                     &
     &   , fdch4_lone,fdch4_lonw,fdch4_maxalb,fdch4_depalb,fdch4_finalb &
     &   , tholatn,tholats,tholone,tholonw                              &
     &   , fdch4_ampl,fdch4_maxice,condmetsurf,condcosurf,vertdiff      &
     &   , convergeps,conservn2,patchflux,condensn2,no_n2frost


      logical callrad,corrk,calldifv,calladj,N2cond,callsoil,           &
     &   season,diurnal,lwrite,calllott                                 &
     &   ,callstats                                                     &
     &   ,callgasvis,callnlte,callthermos,callconduct,                  &
     &    calleuv,callmolvis,callmoldiff,thermochem

      logical enertest
      logical callemis
      logical callg2d
      logical linear
      logical meanOLR
      logical specOLR
      logical methane,carbox
      logical tracer
      logical varactive
      logical varfixed
      logical ch4fix,vmrch4_proffix
      logical sedimentation
      logical aerofixed,fractal
      logical photochem
      logical haze,haze_proffix,haze_radproffix
      logical fasthaze,changeti,changetid,aerohaze
      logical fast,metcloud,monoxcloud,glaflow,triton,paleo
      logical nlte,strobel
      logical kbo
      logical cooling
      logical source_haze,hazeconservch4
      logical ch4lag,tsurfmax
      logical specalb
      logical assymflux
      logical condmetsurf,condcosurf,vertdiff
      logical convergeps,conservn2,condensn2,no_n2frost
      logical globmean1d,kmix_proffix

      integer iradia
      integer ilwd
      integer ilwb
      integer ilwn
      integer ncouche
      integer startype
      integer nqchem_min
      integer nbsub
      integer mode_n2
      integer mode_ch4
      integer mode_tholins
      integer kfix
      integer mode_hs
      integer feedback_met
      integer patchflux
      integer nb_monomer

      real semi
      real alphan
      real Nmix_co
      real Nmix_ch4
      real tplanet
      real tau_n2
      real tau_ch4
      real tau_co
      real tau_prechaze
      real Fat1AU
      real paleoyears
      real dayfrac
      real thresh_non2
      real vmrch4fix
      real fluxgeo
      real fluxgeo2
      real kmixmin
      real deltab
      real metlateq
      real metls1
      real metls2
      real tholateq
      real tholatn
      real tholats
      real tholone
      real tholonw
      real spelon1
      real spelat2
      real spelat1
      real spelon2
      real latlag
      real vmrlag
      real albmin_ch4
      real fracsource
      real latsource
      real lonsource
      real thres_ch4ice
      real thres_n2ice
      real thres_coice
      real fdch4_latn
      real fdch4_lats
      real fdch4_lone
      real fdch4_lonw
      real fdch4_maxice
      real fdch4_maxalb
      real fdch4_ampl
      real fdch4_depalb
      real fdch4_finalb
      real rad_haze