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

Last change on this file since 3787 was 3701, checked in by mmaurice, 3 months ago

Generic PCM

Change default reactfile from chemnetwork/reactfile to network.def.
You can still specify it callphys.def using the flag reactfile.

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