source: trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90 @ 3709

MODULE callkeys_mod
IMPLICIT NONE  

      logical,save :: callrad,corrk,calldifv,UseTurbDiff
!$OMP THREADPRIVATE(callrad,corrk,calldifv,UseTurbDiff)
      logical,save :: calladj,callsoil
!$OMP THREADPRIVATE(calladj,callsoil)
      logical,save :: season,diurnal,tlocked,rings_shadow,lwrite
!$OMP THREADPRIVATE(season,diurnal,tlocked,rings_shadow,lwrite)
      logical,save :: callstats,calleofdump
!$OMP THREADPRIVATE(callstats,calleofdump)
      logical,save :: callgasvis,continuum,graybody
!$OMP THREADPRIVATE(callgasvis,continuum,graybody)
      logical,save :: strictboundcorrk
!$OMP THREADPRIVATE(strictboundcorrk)
      logical,save :: corrk_recombin
!$OMP THREADPRIVATE(corrk_recombin)
      logical,save :: seashaze,uncoupl_optic_haze
!$OMP THREADPRIVATE(seashaze,uncoupl_optic_haze)

      logical,save :: callchim, callmufi, callclouds
!$OMP THREADPRIVATE(callchim,callmufi,callclouds)
      logical,save :: global1d
!$OMP THREADPRIVATE(global1d)
      logical,save :: enertest
      logical,save :: nonideal
      logical,save :: meanOLR
      logical,save :: specOLR
      logical,save :: diagdtau
!$OMP THREADPRIVATE(enertest,nonideal,meanOLR,specOLR,diagdtau)
      logical,save :: newtonian
      logical,save :: check_cpp_match
      logical,save :: force_cpp
      logical,save :: testradtimes
      logical,save :: rayleigh
!$OMP THREADPRIVATE(newtonian,check_cpp_match,force_cpp,testradtimes,rayleigh)
      logical,save :: stelbbody
      logical,save :: ozone
      logical,save :: tracer
      logical,save :: mass_redistrib
!$OMP THREADPRIVATE(stelbbody,ozone,tracer,mass_redistrib)
      logical,save :: nosurf
      logical,save :: oblate
!$OMP THREADPRIVATE(nosurf,oblate)
      logical,save :: eff_gz
!$OMP THREADPRIVATE(eff_gz)

      logical,save :: nudging_u
!$OMP THREADPRIVATE(nudging_u)
      real,save    :: nudging_dt
!$OMP THREADPRIVATE(nudging_dt)

      logical,save :: opt4clouds
!$OMP THREADPRIVATE(opt4clouds)
      real,save    :: Fcloudy
      real,save    :: FCVIS
      real,save    :: FCIR
      real,save    :: FHVIS
      real,save    :: FHIR
!$OMP THREADPRIVATE(Fcloudy,FCVIS,FCIR,FHVIS,FHIR)
      
      logical,save :: resCH4_inf
!$OMP THREADPRIVATE(resCH4_inf)
       
      integer,save :: ichim
!$OMP THREADPRIVATE(ichim)
      integer,save :: versH2H2cia
      integer,save :: iddist
      integer,save :: iradia
      integer,save :: startype
!$OMP THREADPRIVATE(versH2H2cia,iddist,iradia,startype)
      
      real,save :: p_prod, tx_prod, rc_prod
      real,save :: air_rad
!$OMP THREADPRIVATE(p_prod,tx_prod,rc_prod,air_rad)
      
      real,save :: szangle
!$OMP THREADPRIVATE(szangle)

      real,save :: tplanckmin
      real,save :: tplanckmax
      real,save :: dtplanck
!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
      real,save :: Fat1AU
      real,save :: stelTbb
!$OMP THREADPRIVATE(Fat1AU,stelTbb)
      real,save :: pceil
!$OMP THREADPRIVATE(pceil)
      real,save :: tau_relax
      real,save :: intheat
!$OMP THREADPRIVATE(tau_relax,intheat)
      real,save :: flatten
      real,save :: Rmean
      real,save :: J2
      real,save :: MassPlanet
!$OMP THREADPRIVATE(flatten,Rmean,J2,MassPlanet)
      real,save :: surfalbedo
      real,save :: surfemis
!$OMP THREADPRIVATE(surfalbedo,surfemis)
      real,save :: noseason_day
!$OMP THREADPRIVATE(noseason_day)
      logical,save :: iscallphys=.false.!existence of callphys.def
!$OMP THREADPRIVATE(iscallphys)

      ! do we read a startphy.nc file (default=.true.)
      logical,save :: startphy_file=.true. 
!$OMP THREADPRIVATE(startphy_file)

! for mesoscale, the following variables are defined in callphys.def
! before, it was in the microphysics config file in datagcm (EMoi)
#ifdef MESOSCALE
      real,save :: rm
      real,save :: df
      real,save :: rho_aer
      real,save :: fiad_min
      real,save :: fiad_max
      real,save :: m0as_min
      real,save :: rcs_min
      real,save :: m0af_min
      real,save :: rcf_min
      real,save :: m0n_min
!$OMP THREADPRIVATE(rm,df,rho_aer,fiad_min,fiad_max,m0as_min,rcs_min,m0af_min,rcf_min,m0n_min)
      logical,save :: w_h_prod
      logical,save :: w_h_coag
      logical,save :: w_h_sed
      logical,save :: no_fiadero
      logical,save :: fwsed_m0
      logical,save :: fwsed_m3
      logical,save :: w_c_sed
      logical,save :: w_c_nucond
!$OMP THREADPRIVATE(w_h_prod,w_h_coag,w_h_sed,no_fiadero,fwsed_m0,fwsed_m3,w_c_sed,w_c_nucond,mmp_w_ps2s,mmp_w_qe)
      integer,save :: coag_choice
!$OMP THREADPRIVATE(coag_choice)
      character(len=100),save :: spcpath
      character(len=100),save :: pssfile
      character(len=100),save :: mqfile
!$OMP THREADPRIVATE(spcpath,pssfile,mqfile)
      logical,save :: wdebug
!$OMP THREADPRIVATE(wdebug)
#endif

END MODULE callkeys_mod