source: trunk/LMDZ.PLUTO/libf/phypluto/callkeys_mod.F90 @ 3380

Last change on this file since 3380 was 3372, checked in by afalco, 5 months ago

Pluto PCM:
Cooling parameters in .def.
AF
File size: 10.5 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,n2cond,callsoil
7!$OMP THREADPRIVATE(calladj,calltherm,n2cond,callsoil)
8      logical,save :: season,diurnal,lwrite
9!$OMP THREADPRIVATE(season,diurnal,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!$OMP THREADPRIVATE(newtonian,force_cpp,cpp_mugaz_mode,testradtimes,rayleigh)
30      logical,save :: stelbbody
31      logical,save :: nearn2cond
32      logical,save :: tracer
33      logical,save :: mass_redistrib
34!$OMP THREADPRIVATE(stelbbody,nearn2cond,tracer,mass_redistrib)
35      logical,save :: varactive
36      logical,save :: varfixed
37      logical,save :: sedimentation
38      logical,save :: generic_condensation
39!$OMP THREADPRIVATE(varactive,varfixed,sedimentation,generic_condensation)
40      logical,save :: aeron2, aeroh2o, aeroh2so4, aeroback2lay
41!$OMP THREADPRIVATE(aeron2, aeroh2o, aeroh2so4, aeroback2lay)
42      logical,save :: aeronh3, aeronlay, aeroaurora
43!$OMP THREADPRIVATE(aeronh3,aeronlay,aeroaurora)
44
45      logical,save :: aerofixn2
46!$OMP THREADPRIVATE(aerofixn2)
47      integer,save :: aerogeneric ! number of aerosols of "generic" kind
48!$OMP THREADPRIVATE(aerogeneric)
49      logical,save :: nosurf
50!$OMP THREADPRIVATE(nosurf)
51      logical,save :: albedo_spectral_mode
52!$OMP THREADPRIVATE(albedo_spectral_mode)
53      logical,save :: photoheat
54      logical,save :: jonline
55      logical,save :: depos
56!$OMP THREADPRIVATE(photoheat,jonline,depos)
57
58!! Pluto-specific variables
59      logical,save :: methane,carbox
60      !$OMP THREADPRIVATE(methane,carbox)
61      logical,save :: haze,haze_proffix,haze_radproffix
62!$OMP THREADPRIVATE(haze,haze_proffix,haze_radproffix)
63      logical,save :: fasthaze,changeti,changetid,aerohaze,fractal
64!$OMP THREADPRIVATE(fasthaze,changeti,changetid,aerohaze,fractal)
65      logical,save :: fast,metcloud,monoxcloud,glaflow,triton,paleo
66!$OMP THREADPRIVATE(fast,metcloud,monoxcloud,glaflow,triton,paleo)
67      logical,save :: nlte,strobel
68!$OMP THREADPRIVATE(nlte,strobel)
69      logical,save :: kbo
70!$OMP THREADPRIVATE(kbo)
71      logical,save :: cooling
72!$OMP THREADPRIVATE(cooling)
73      logical,save :: source_haze,hazeconservch4
74!$OMP THREADPRIVATE(source_haze,hazeconservch4)
75      logical,save :: ch4lag,tsurfmax
76!$OMP THREADPRIVATE(ch4lag,tsurfmax)
77      logical,save :: specalb
78!$OMP THREADPRIVATE(specalb)
79      logical,save :: assymflux
80!$OMP THREADPRIVATE(assymflux)
81      logical,save :: condmetsurf,condcosurf,vertdiff
82!$OMP THREADPRIVATE(condmetsurf,condcosurf,vertdiff)
83      logical,save :: convergeps,conservn2,condensn2,no_n2frost
84!$OMP THREADPRIVATE(convergeps,conservn2,condensn2,no_n2frost)
85      logical,save :: kmix_proffix
86!$OMP THREADPRIVATE(kmix_proffix)
87      logical,save :: ch4fix,vmrch4_proffix
88!$OMP THREADPRIVATE(ch4fix,vmrch4_proffix)
89      integer,save :: nbsub
90!$OMP THREADPRIVATE(nbsub)
91      integer,save :: mode_n2
92!$OMP THREADPRIVATE(mode_n2)
93      integer,save :: mode_ch4
94!$OMP THREADPRIVATE(mode_ch4)
95      integer,save :: mode_tholins
96!$OMP THREADPRIVATE(mode_tholins)
97      integer,save :: kfix
98!$OMP THREADPRIVATE(kfix)
99      integer,save :: mode_hs
100!$OMP THREADPRIVATE(mode_hs)
101      integer,save :: feedback_met
102!$OMP THREADPRIVATE(feedback_met)
103      integer,save :: patchflux
104!$OMP THREADPRIVATE(patchflux)
105      integer,save :: nb_monomer
106!$OMP THREADPRIVATE(nb_monomer)
107      real,save    :: Nmix_co
108!$OMP THREADPRIVATE(Nmix_co)
109      real,save    :: Nmix_ch4
110!$OMP THREADPRIVATE(Nmix_ch4)
111      real,save    :: tau_n2
112!$OMP THREADPRIVATE(tau_n2)
113      real,save    :: tau_ch4
114!$OMP THREADPRIVATE(tau_ch4)
115      real,save    :: tau_co
116!$OMP THREADPRIVATE(tau_co)
117      real,save    :: tau_prechaze
118!$OMP THREADPRIVATE(tau_prechaze)
119      real,save    :: paleoyears
120!$OMP THREADPRIVATE(paleoyears)
121      real,save    :: dayfrac
122!$OMP THREADPRIVATE(dayfrac)
123      real,save    :: thresh_non2
124!$OMP THREADPRIVATE(thresh_non2)
125      real,save    :: vmrch4fix
126!$OMP THREADPRIVATE(vmrch4fix)
127      real,save    :: fluxgeo
128!$OMP THREADPRIVATE(fluxgeo)
129      real,save    :: fluxgeo2
130!$OMP THREADPRIVATE(fluxgeo2)
131      real,save    :: deltab
132!$OMP THREADPRIVATE(deltab)
133      real,save    :: metlateq
134!$OMP THREADPRIVATE(metlateq)
135      real,save    :: metls1
136!$OMP THREADPRIVATE(metls1)
137      real,save    :: metls2
138!$OMP THREADPRIVATE(metls2)
139      real,save    :: tholateq
140!$OMP THREADPRIVATE(tholateq)
141      real,save    :: tholatn
142!$OMP THREADPRIVATE(tholatn)
143      real,save    :: tholats
144!$OMP THREADPRIVATE(tholats)
145      real,save    :: tholone
146!$OMP THREADPRIVATE(tholone)
147      real,save    :: tholonw
148!$OMP THREADPRIVATE(tholonw)
149      real,save    :: spelon1
150!$OMP THREADPRIVATE(spelon1)
151      real,save    :: spelat2
152!$OMP THREADPRIVATE(spelat2)
153      real,save    :: spelat1
154!$OMP THREADPRIVATE(spelat1)
155      real,save    :: spelon2
156!$OMP THREADPRIVATE(spelon2)
157      real,save    :: latlag
158!$OMP THREADPRIVATE(latlag)
159      real,save    :: vmrlag
160!$OMP THREADPRIVATE(vmrlag)
161      real,save    :: albmin_ch4
162!$OMP THREADPRIVATE(albmin_ch4)
163      real,save    :: fracsource
164!$OMP THREADPRIVATE(fracsource)
165      real,save    :: latsource
166!$OMP THREADPRIVATE(latsource)
167      real,save    :: lonsource
168!$OMP THREADPRIVATE(lonsource)
169      real,save    :: thres_ch4ice
170!$OMP THREADPRIVATE(thres_ch4ice)
171      real,save    :: thres_n2ice
172!$OMP THREADPRIVATE(thres_n2ice)
173      real,save    :: thres_coice
174!$OMP THREADPRIVATE(thres_coice)
175      real,save    :: fdch4_latn
176!$OMP THREADPRIVATE(fdch4_latn)
177      real,save    :: fdch4_lats
178!$OMP THREADPRIVATE(fdch4_lats)
179      real,save    :: fdch4_lone
180!$OMP THREADPRIVATE(fdch4_lone)
181      real,save    :: fdch4_lonw
182!$OMP THREADPRIVATE(fdch4_lonw)
183      real,save    :: fdch4_maxice
184!$OMP THREADPRIVATE(fdch4_maxice)
185      real,save    :: fdch4_maxalb
186!$OMP THREADPRIVATE(fdch4_maxalb)
187      real,save    :: fdch4_ampl
188!$OMP THREADPRIVATE(fdch4_ampl)
189      real,save    :: fdch4_depalb
190!$OMP THREADPRIVATE(fdch4_depalb)
191      real,save    :: fdch4_finalb
192!$OMP THREADPRIVATE(fdch4_finalb)
193      real,save    :: rad_haze
194!$OMP THREADPRIVATE(rad_haze)
195      logical,save :: oldplutovdifc
196!$OMP THREADPRIVATE(oldplutovdifc)
197      logical,save :: oldplutocorrk
198!$OMP THREADPRIVATE(oldplutocorrk)
199      logical,save :: oldplutosedim
200!$OMP THREADPRIVATE(oldplutosedim)
201      logical,save :: global1d
202      real,save    :: szangle
203!$OMP THREADPRIVATE(global1d,szangle)
204      real,save    :: alpha_top ! cooling constant at top of atmosphere
205      real,save    :: pref      ! pressure at mid transition fo alpha_top (Pa)
206      real,save    :: deltap    ! width of transition to alpha_top (Pa) 
207!$OMP THREADPRIVATE(alpha_top,pref,deltap)
208     
209
210      integer,save :: iddist
211      integer,save :: iaervar
212      integer,save :: iradia
213      integer,save :: startype
214      integer,save :: versH2H2cia
215      character(64),save :: H2orthopara_mixture
216      integer,save :: nlayaero
217!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,H2orthopara_mixture,nlayaero)
218      integer,dimension(:),allocatable,save :: aeronlay_choice
219!$OMP THREADPRIVATE(aeronlay_choice)
220
221      character(64),save :: optprop_back2lay_vis
222      character(64),save :: optprop_back2lay_ir
223      character(64),dimension(:),allocatable,save :: optprop_aeronlay_vis
224      character(64),dimension(:),allocatable,save :: optprop_aeronlay_ir
225!$OMP THREADPRIVATE(optprop_back2lay_vis,optprop_back2lay_ir,optprop_aeronlay_vis,optprop_aeronlay_ir)
226
227      real,save :: tplanckmin
228      real,save :: tplanckmax
229      real,save :: dtplanck
230!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
231      real,save :: topdustref
232      real,save :: dusttau
233      real,save :: Fat1AU
234      real,save :: stelTbb
235!$OMP THREADPRIVATE(topdustref,dusttau,Fat1AU,stelTbb)
236      real,save :: Tstrat
237      real,save :: tplanet
238      real,save :: obs_tau_col_tropo
239      real,save :: obs_tau_col_strato
240!$OMP THREADPRIVATE(Tstrat,tplanet,obs_tau_col_tropo,obs_tau_col_strato)
241      real,save :: pres_bottom_tropo
242      real,save :: pres_top_tropo
243      real,save :: pres_bottom_strato
244      real,save :: pres_top_strato
245!$OMP THREADPRIVATE(pres_bottom_tropo,pres_top_tropo,pres_bottom_strato,pres_top_strato)
246      real,save :: size_tropo
247      real,save :: size_strato
248      real,save :: satval
249      real,save :: n2mixratio
250!$OMP THREADPRIVATE(size_tropo,size_strato,satval,n2mixratio)
251      real,save :: size_nh3_cloud
252      real,save :: pres_nh3_cloud
253      real,save :: tau_nh3_cloud
254!$OMP THREADPRIVATE(size_nh3_cloud, pres_nh3_cloud, tau_nh3_cloud)
255      real,dimension(:),allocatable,save :: aeronlay_tauref
256      real,dimension(:),allocatable,save :: aeronlay_lamref
257      real,dimension(:),allocatable,save :: aeronlay_ptop
258      real,dimension(:),allocatable,save :: aeronlay_pbot
259      real,dimension(:),allocatable,save :: aeronlay_sclhght
260      real,dimension(:),allocatable,save :: aeronlay_size
261      real,dimension(:),allocatable,save :: aeronlay_nueff
262!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size,aeronlay_nueff)
263      real,save :: n2supsat
264      real,save :: pceil
265      real,save :: albedosnow
266      real,save :: albedon2ice
267      real,save :: maxicethick
268!$OMP THREADPRIVATE(n2supsat,pceil,albedosnow,albedon2ice,maxicethick)
269      real,save :: Tsaldiff
270      real,save :: tau_relax
271      real,save :: cloudlvl
272      real,save :: icetstep
273      real,save :: intheat
274!$OMP THREADPRIVATE(Tsaldiff,tau_relax,cloudlvl,icetstep,intheat)
275      real,save :: surfalbedo
276      real,save :: surfemis
277!$OMP THREADPRIVATE(surfalbedo,surfemis)
278      real,save :: noseason_day
279!$OMP THREADPRIVATE(noseason_day)
280      real,save :: kmixmin
281!$OMP THREADPRIVATE(kmixmin)
282
283      logical,save :: iscallphys=.false.!existence of callphys.def
284!$OMP THREADPRIVATE(iscallphys)
285
286      ! do we read a startphy.nc file (default=.true.)
287      logical,save :: startphy_file=.true.
288!$OMP THREADPRIVATE(startphy_file)
289
290END MODULE callkeys_mod
Note: See TracBrowser for help on using the repository browser.