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

Last change on this file since 3473 was 3455, checked in by afalco, 15 months ago

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