source: trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 @ 3233

Last change on this file since 3233 was 3233, checked in by gmilcareck, 16 months ago

Add the possibility to use a fixed vertical molar fraction profile for the
collision-induced absorption like the correlated-k.
File size: 6.9 KB
Line 
1MODULE callkeys_mod
2IMPLICIT NONE 
3
4      logical,save :: callrad,corrk,calldifv,UseTurbDiff
5!$OMP THREADPRIVATE(callrad,corrk,calldifv,UseTurbDiff)
6      logical,save :: calladj,calltherm,co2cond,callsoil
7!$OMP THREADPRIVATE(calladj,calltherm,co2cond,callsoil)
8      logical,save :: season,diurnal,tlocked,rings_shadow,lwrite
9!$OMP THREADPRIVATE(season,diurnal,tlocked,rings_shadow,lwrite)
10      logical,save :: callgasvis,continuum,graybody
11!$OMP THREADPRIVATE(callgasvis,continuum,graybody)
12      logical,save :: strictboundcorrk                                     
13!$OMP THREADPRIVATE(strictboundcorrk)
14      logical,save :: strictboundcia                                     
15!$OMP THREADPRIVATE(strictboundcia)
16
17      logical,save :: enertest
18      logical,save :: nonideal
19      logical,save :: meanOLR
20      logical,save :: specOLR
21      logical,save :: kastprof
22      logical,save :: diagdtau
23!$OMP THREADPRIVATE(enertest,nonideal,meanOLR,kastprof,diagdtau)
24      logical,save :: newtonian
25      logical,save :: force_cpp
26      integer,save :: cpp_mugaz_mode
27      logical,save :: testradtimes
28      logical,save :: rayleigh
29      logical,save :: varspec
30      character(64),save :: varspec_data
31      integer,save :: nvarlayer
32!$OMP THREADPRIVATE(newtonian,force_cpp,cpp_mugaz_mode,testradtimes,rayleigh,varspec,varspec_data,nvarlayer)
33      logical,save :: stelbbody
34      logical,save :: nearco2cond
35      logical,save :: tracer
36      logical,save :: mass_redistrib
37!$OMP THREADPRIVATE(stelbbody,nearco2cond,tracer,mass_redistrib)
38      logical,save :: varactive
39      logical,save :: varfixed
40      logical,save :: sedimentation
41      logical,save :: generic_condensation
42      logical,save :: generic_rain
43!$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation,generic_rain)
44      logical,save :: water ,watercond, waterrain, moistadjustment
45!$OMP THREADPRIVATE(water, watercond, waterrain, moistadjustment)
46      logical,save :: aeroco2, aeroh2o, aeroh2so4, aeroback2lay
47!$OMP THREADPRIVATE(aeroco2, aeroh2o, aeroh2so4, aeroback2lay)
48      logical,save :: aeronh3, aeronlay, aeroaurora
49!$OMP THREADPRIVATE(aeronh3,aeronlay,aeroaurora)
50
51      logical,save :: aerovenus ! master flag for "Venus-like" aerosol additions
52!$OMP THREADPRIVATE(aerovenus)
53      ! detailed sub-options when with "Venus-like" aerosol additions
54      logical,save :: aerovenus1, aerovenus2, aerovenus2p, aerovenus3, aerovenusUV
55!$OMP THREADPRIVATE(aerovenus1, aerovenus2, aerovenus2p, aerovenus3, aerovenusUV)
56
57      logical,save :: aerofixco2, aerofixh2o
58!$OMP THREADPRIVATE(aerofixco2, aerofixh2o)
59      integer,save :: aerogeneric ! number of aerosols of "generic" kind
60!$OMP THREADPRIVATE(aerogeneric)
61      logical,save :: hydrology
62      logical,save :: CLFvarying
63      logical,save :: nosurf
64      logical,save :: oblate
65!$OMP THREADPRIVATE(hydrology,CLFvarying,nosurf,oblate)
66      logical,save :: ok_slab_ocean
67      logical,save :: ok_slab_sic
68      logical,save :: ok_slab_heat_transp
69      logical,save :: albedo_spectral_mode
70!$OMP THREADPRIVATE(ok_slab_ocean,ok_slab_sic,ok_slab_heat_transp,albedo_spectral_mode)
71      logical,save :: photochem
72      logical,save :: photoheat
73      logical,save :: jonline
74      logical,save :: depos
75      logical,save :: haze
76!$OMP THREADPRIVATE(photochem,photoheat,jonline,depos)
77      logical,save :: calllott_nonoro
78!$OMP THREADPRIVATE(calllott_nonoro)
79      logical,save :: global1d
80      real,save    :: szangle
81!$OMP THREADPRIVATE(global1d,szangle)
82
83      integer,save :: iddist
84      integer,save :: iaervar
85      integer,save :: iradia
86      integer,save :: startype
87      integer,save :: versH2H2cia
88      character(64),save :: H2orthopara_mixture
89      integer,save :: nlayaero
90!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,H2orthopara_mixture,nlayaero)
91      integer,dimension(:),allocatable,save :: aeronlay_choice
92!$OMP THREADPRIVATE(aeronlay_choice)
93
94      character(64),save :: optprop_back2lay_vis
95      character(64),save :: optprop_back2lay_ir
96      character(64),dimension(:),allocatable,save :: optprop_aeronlay_vis
97      character(64),dimension(:),allocatable,save :: optprop_aeronlay_ir
98!$OMP THREADPRIVATE(optprop_back2lay_vis,optprop_back2lay_ir,optprop_aeronlay_vis,optprop_aeronlay_ir)
99
100      real,save :: tplanckmin
101      real,save :: tplanckmax
102      real,save :: dtplanck
103!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
104      real,save :: topdustref
105      real,save :: dusttau
106      real,save :: Fat1AU
107      real,save :: stelTbb
108!$OMP THREADPRIVATE(topdustref,dusttau,Fat1AU,stelTbb)
109      real,save :: Tstrat
110      real,save :: tplanet
111      real,save :: obs_tau_col_tropo
112      real,save :: obs_tau_col_strato
113!$OMP THREADPRIVATE(Tstrat,tplanet,obs_tau_col_tropo,obs_tau_col_strato)
114      real,save :: pres_bottom_tropo
115      real,save :: pres_top_tropo
116      real,save :: pres_bottom_strato
117      real,save :: pres_top_strato
118!$OMP THREADPRIVATE(pres_bottom_tropo,pres_top_tropo,pres_bottom_strato,pres_top_strato)
119      real,save :: size_tropo
120      real,save :: size_strato
121      real,save :: satval
122      real,save :: CLFfixval
123      real,save :: n2mixratio
124!$OMP THREADPRIVATE(size_tropo,size_strato,satval,CLFfixval,n2mixratio)
125      real,save :: size_nh3_cloud
126      real,save :: pres_nh3_cloud
127      real,save :: tau_nh3_cloud
128!$OMP THREADPRIVATE(size_nh3_cloud, pres_nh3_cloud, tau_nh3_cloud)
129      real,dimension(:),allocatable,save :: aeronlay_tauref
130      real,dimension(:),allocatable,save :: aeronlay_lamref
131      real,dimension(:),allocatable,save :: aeronlay_ptop
132      real,dimension(:),allocatable,save :: aeronlay_pbot
133      real,dimension(:),allocatable,save :: aeronlay_sclhght
134      real,dimension(:),allocatable,save :: aeronlay_size
135      real,dimension(:),allocatable,save :: aeronlay_nueff
136!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size,aeronlay_nueff)
137      real,save :: co2supsat
138      real,save :: pceil
139      real,save :: albedosnow
140      real,save :: alb_ocean
141      real,save :: albedoco2ice
142      real,save :: maxicethick
143!$OMP THREADPRIVATE(co2supsat,pceil,albedosnow,alb_ocean,albedoco2ice,maxicethick)
144      real,save :: Tsaldiff
145      real,save :: tau_relax
146      real,save :: cloudlvl
147      real,save :: intheat
148!$OMP THREADPRIVATE(Tsaldiff,tau_relax,cloudlvl,intheat)
149      real,save :: flatten
150      real,save :: Rmean
151      real,save :: J2
152      real,save :: MassPlanet
153!$OMP THREADPRIVATE(flatten,Rmean,J2,MassPlanet)
154      real,save :: surfalbedo
155      real,save :: surfemis
156!$OMP THREADPRIVATE(surfalbedo,surfemis)
157      real,save :: noseason_day
158!$OMP THREADPRIVATE(noseason_day)
159      real,save :: kmixmin
160!$OMP THREADPRIVATE(kmixmin)
161     
162      logical,save :: iscallphys=.false.!existence of callphys.def
163!$OMP THREADPRIVATE(iscallphys)
164
165      ! do we read a startphy.nc file (default=.true.)
166      logical,save :: startphy_file=.true.
167!$OMP THREADPRIVATE(startphy_file)
168
169END MODULE callkeys_mod
Note: See TracBrowser for help on using the repository browser.