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

Last change on this file since 3198 was 3195, checked in by afalco, 2 years ago

Pluto PCM:
Imported condense n2 from pluto.old.
Aerosol data from Pluto.old not yet working.
AF
File size: 9.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,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,generic_rain)
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 :: globmean1d,kmix_proffix
86!$OMP THREADPRIVATE(globmean1d,kmix_proffix)
87      integer,save :: nbsub
88!$OMP THREADPRIVATE(nbsub)
89      integer,save :: mode_n2
90!$OMP THREADPRIVATE(mode_n2)
91      integer,save :: mode_ch4
92!$OMP THREADPRIVATE(mode_ch4)
93      integer,save :: mode_tholins
94!$OMP THREADPRIVATE(mode_tholins)
95      integer,save :: kfix
96!$OMP THREADPRIVATE(kfix)
97      integer,save :: mode_hs
98!$OMP THREADPRIVATE(mode_hs)
99      integer,save :: feedback_met
100!$OMP THREADPRIVATE(feedback_met)
101      integer,save :: patchflux
102!$OMP THREADPRIVATE(patchflux)
103      integer,save :: nb_monomer
104!$OMP THREADPRIVATE(nb_monomer)
105      real,save    :: Nmix_co
106!$OMP THREADPRIVATE(Nmix_co)
107      real,save    :: Nmix_ch4
108!$OMP THREADPRIVATE(Nmix_ch4)
109      real,save    :: tau_n2
110!$OMP THREADPRIVATE(tau_n2)
111      real,save    :: tau_ch4
112!$OMP THREADPRIVATE(tau_ch4)
113      real,save    :: tau_co
114!$OMP THREADPRIVATE(tau_co)
115      real,save    :: tau_prechaze
116!$OMP THREADPRIVATE(tau_prechaze)
117      real,save    :: paleoyears
118!$OMP THREADPRIVATE(paleoyears)
119      real,save    :: dayfrac
120!$OMP THREADPRIVATE(dayfrac)
121      real,save    :: thresh_non2
122!$OMP THREADPRIVATE(thresh_non2)
123      real,save    :: vmrch4fix
124!$OMP THREADPRIVATE(vmrch4fix)
125      real,save    :: fluxgeo
126!$OMP THREADPRIVATE(fluxgeo)
127      real,save    :: fluxgeo2
128!$OMP THREADPRIVATE(fluxgeo2)
129      real,save    :: deltab
130!$OMP THREADPRIVATE(deltab)
131      real,save    :: metlateq
132!$OMP THREADPRIVATE(metlateq)
133      real,save    :: metls1
134!$OMP THREADPRIVATE(metls1)
135      real,save    :: metls2
136!$OMP THREADPRIVATE(metls2)
137      real,save    :: tholateq
138!$OMP THREADPRIVATE(tholateq)
139      real,save    :: tholatn
140!$OMP THREADPRIVATE(tholatn)
141      real,save    :: tholats
142!$OMP THREADPRIVATE(tholats)
143      real,save    :: tholone
144!$OMP THREADPRIVATE(tholone)
145      real,save    :: tholonw
146!$OMP THREADPRIVATE(tholonw)
147      real,save    :: spelon1
148!$OMP THREADPRIVATE(spelon1)
149      real,save    :: spelat2
150!$OMP THREADPRIVATE(spelat2)
151      real,save    :: spelat1
152!$OMP THREADPRIVATE(spelat1)
153      real,save    :: spelon2
154!$OMP THREADPRIVATE(spelon2)
155      real,save    :: latlag
156!$OMP THREADPRIVATE(latlag)
157      real,save    :: vmrlag
158!$OMP THREADPRIVATE(vmrlag)
159      real,save    :: albmin_ch4
160!$OMP THREADPRIVATE(albmin_ch4)
161      real,save    :: fracsource
162!$OMP THREADPRIVATE(fracsource)
163      real,save    :: latsource
164!$OMP THREADPRIVATE(latsource)
165      real,save    :: lonsource
166!$OMP THREADPRIVATE(lonsource)
167      real,save    :: thres_ch4ice
168!$OMP THREADPRIVATE(thres_ch4ice)
169      real,save    :: thres_n2ice
170!$OMP THREADPRIVATE(thres_n2ice)
171      real,save    :: thres_coice
172!$OMP THREADPRIVATE(thres_coice)
173      real,save    :: fdch4_latn
174!$OMP THREADPRIVATE(fdch4_latn)
175      real,save    :: fdch4_lats
176!$OMP THREADPRIVATE(fdch4_lats)
177      real,save    :: fdch4_lone
178!$OMP THREADPRIVATE(fdch4_lone)
179      real,save    :: fdch4_lonw
180!$OMP THREADPRIVATE(fdch4_lonw)
181      real,save    :: fdch4_maxice
182!$OMP THREADPRIVATE(fdch4_maxice)
183      real,save    :: fdch4_maxalb
184!$OMP THREADPRIVATE(fdch4_maxalb)
185      real,save    :: fdch4_ampl
186!$OMP THREADPRIVATE(fdch4_ampl)
187      real,save    :: fdch4_depalb
188!$OMP THREADPRIVATE(fdch4_depalb)
189      real,save    :: fdch4_finalb
190!$OMP THREADPRIVATE(fdch4_finalb)
191      real,save    :: rad_haze
192!$OMP THREADPRIVATE(rad_haze)
193
194      logical,save :: global1d
195      real,save    :: szangle
196!$OMP THREADPRIVATE(global1d,szangle)
197
198      integer,save :: iddist
199      integer,save :: iaervar
200      integer,save :: iradia
201      integer,save :: startype
202      integer,save :: versH2H2cia
203      character(64),save :: H2orthopara_mixture
204      integer,save :: nlayaero
205!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,H2orthopara_mixture,nlayaero)
206      integer,dimension(:),allocatable,save :: aeronlay_choice
207!$OMP THREADPRIVATE(aeronlay_choice)
208
209      character(64),save :: optprop_back2lay_vis
210      character(64),save :: optprop_back2lay_ir
211      character(64),dimension(:),allocatable,save :: optprop_aeronlay_vis
212      character(64),dimension(:),allocatable,save :: optprop_aeronlay_ir
213!$OMP THREADPRIVATE(optprop_back2lay_vis,optprop_back2lay_ir,optprop_aeronlay_vis,optprop_aeronlay_ir)
214
215      real,save :: tplanckmin
216      real,save :: tplanckmax
217      real,save :: dtplanck
218!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
219      real,save :: topdustref
220      real,save :: dusttau
221      real,save :: Fat1AU
222      real,save :: stelTbb
223!$OMP THREADPRIVATE(topdustref,dusttau,Fat1AU,stelTbb)
224      real,save :: Tstrat
225      real,save :: tplanet
226      real,save :: obs_tau_col_tropo
227      real,save :: obs_tau_col_strato
228!$OMP THREADPRIVATE(Tstrat,tplanet,obs_tau_col_tropo,obs_tau_col_strato)
229      real,save :: pres_bottom_tropo
230      real,save :: pres_top_tropo
231      real,save :: pres_bottom_strato
232      real,save :: pres_top_strato
233!$OMP THREADPRIVATE(pres_bottom_tropo,pres_top_tropo,pres_bottom_strato,pres_top_strato)
234      real,save :: size_tropo
235      real,save :: size_strato
236      real,save :: satval
237      real,save :: n2mixratio
238!$OMP THREADPRIVATE(size_tropo,size_strato,satval,n2mixratio)
239      real,save :: size_nh3_cloud
240      real,save :: pres_nh3_cloud
241      real,save :: tau_nh3_cloud
242!$OMP THREADPRIVATE(size_nh3_cloud, pres_nh3_cloud, tau_nh3_cloud)
243      real,dimension(:),allocatable,save :: aeronlay_tauref
244      real,dimension(:),allocatable,save :: aeronlay_lamref
245      real,dimension(:),allocatable,save :: aeronlay_ptop
246      real,dimension(:),allocatable,save :: aeronlay_pbot
247      real,dimension(:),allocatable,save :: aeronlay_sclhght
248      real,dimension(:),allocatable,save :: aeronlay_size
249      real,dimension(:),allocatable,save :: aeronlay_nueff
250!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size,aeronlay_nueff)
251      real,save :: n2supsat
252      real,save :: pceil
253      real,save :: albedosnow
254      real,save :: albedon2ice
255      real,save :: maxicethick
256!$OMP THREADPRIVATE(n2supsat,pceil,albedosnow,albedon2ice,maxicethick)
257      real,save :: Tsaldiff
258      real,save :: tau_relax
259      real,save :: cloudlvl
260      real,save :: icetstep
261      real,save :: intheat
262!$OMP THREADPRIVATE(Tsaldiff,tau_relax,cloudlvl,icetstep,intheat)
263      real,save :: surfalbedo
264      real,save :: surfemis
265!$OMP THREADPRIVATE(surfalbedo,surfemis)
266      real,save :: noseason_day
267!$OMP THREADPRIVATE(noseason_day)
268      real,save :: kmixmin
269!$OMP THREADPRIVATE(kmixmin)
270
271      logical,save :: iscallphys=.false.!existence of callphys.def
272!$OMP THREADPRIVATE(iscallphys)
273
274      ! do we read a startphy.nc file (default=.true.)
275      logical,save :: startphy_file=.true.
276!$OMP THREADPRIVATE(startphy_file)
277
278END MODULE callkeys_mod
Note: See TracBrowser for help on using the repository browser.