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

Last change on this file since 2590 was 2542, checked in by aslmd, 4 years ago

Generic GCM:

Large update of the chemical modules

  • Read chemical network from input files
  • Init chemistry with ModernTrac?
  • Photolysis online calculation

YJ
File size: 6.3 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 :: callstats,calleofdump
11!$OMP THREADPRIVATE(callstats,calleofdump)
12      logical,save :: callgasvis,continuum,graybody
13!$OMP THREADPRIVATE(callgasvis,continuum,graybody)
14      logical,save :: strictboundcorrk                                     
15!$OMP THREADPRIVATE(strictboundcorrk)
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 :: check_cpp_match
26      logical,save :: force_cpp
27      logical,save :: testradtimes
28      logical,save :: rayleigh
29!$OMP THREADPRIVATE(newtonian,check_cpp_match,force_cpp,testradtimes,rayleigh)
30      logical,save :: stelbbody
31      logical,save :: nearco2cond
32      logical,save :: tracer
33      logical,save :: mass_redistrib
34!$OMP THREADPRIVATE(stelbbody,nearco2cond,tracer,mass_redistrib)
35      logical,save :: varactive
36      logical,save :: varfixed
37      logical,save :: radfixed
38      logical,save :: sedimentation
39!$OMP THREADPRIVATE(varactive,varfixed,radfixed,sedimentation)
40      logical,save :: water,watercond,waterrain
41!$OMP THREADPRIVATE(water,watercond,waterrain)
42      logical,save :: aeroco2,aeroh2o,aeroh2so4,aeroback2lay
43!$OMP THREADPRIVATE(aeroco2,aeroh2o,aeroh2so4,aeroback2lay)
44      logical,save :: aeronh3, aeronlay, aeroaurora
45!$OMP THREADPRIVATE(aeronh3,aeronlay,aeroaurora)
46      logical,save :: aerofixco2,aerofixh2o
47!$OMP THREADPRIVATE(aerofixco2,aerofixh2o)
48      logical,save :: hydrology
49      logical,save :: sourceevol
50      logical,save :: CLFvarying
51      logical,save :: nosurf
52      logical,save :: oblate
53!$OMP THREADPRIVATE(hydrology,sourceevol,CLFvarying,nosurf,oblate)
54      logical,save :: ok_slab_ocean
55      logical,save :: ok_slab_sic
56      logical,save :: ok_slab_heat_transp
57      logical,save :: albedo_spectral_mode
58!$OMP THREADPRIVATE(ok_slab_ocean,ok_slab_sic,ok_slab_heat_transp,albedo_spectral_mode)
59      logical,save :: photochem
60      logical,save :: photoheat
61      logical,save :: jonline
62      logical,save :: depos
63      logical,save :: haze
64!$OMP THREADPRIVATE(photochem,photoheat,jonline,depos)
65      logical,save :: calllott_nonoro
66      logical,save :: gwd_convective_source
67!$OMP THREADPRIVATE(calllott_nonoro,gwd_convective_source)
68      logical,save :: global1d
69      real,save    :: szangle
70!$OMP THREADPRIVATE(global1d,szangle)
71
72      integer,save :: iddist
73      integer,save :: iaervar
74      integer,save :: iradia
75      integer,save :: startype
76      integer,save :: versH2H2cia
77      integer,save :: nlayaero
78!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,nlayaero)
79      integer,dimension(:),allocatable,save :: aeronlay_choice
80!$OMP THREADPRIVATE(aeronlay_choice)
81
82      character(64),save :: optprop_back2lay_vis
83      character(64),save :: optprop_back2lay_ir
84      character(64),dimension(:),allocatable,save :: optprop_aeronlay_vis
85      character(64),dimension(:),allocatable,save :: optprop_aeronlay_ir
86!$OMP THREADPRIVATE(optprop_back2lay_vis,optprop_back2lay_ir,optprop_aeronlay_vis,optprop_aeronlay_ir)
87
88      real,save :: tplanckmin
89      real,save :: tplanckmax
90      real,save :: dtplanck
91!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
92      real,save :: topdustref
93      real,save :: Nmix_co2
94      real,save :: dusttau
95      real,save :: Fat1AU
96      real,save :: stelTbb
97!$OMP THREADPRIVATE(topdustref,Nmix_co2,dusttau,Fat1AU,stelTbb)
98      real,save :: Tstrat
99      real,save :: tplanet
100      real,save :: obs_tau_col_tropo
101      real,save :: obs_tau_col_strato
102!$OMP THREADPRIVATE(Tstrat,tplanet,obs_tau_col_tropo,obs_tau_col_strato)
103      real,save :: pres_bottom_tropo
104      real,save :: pres_top_tropo
105      real,save :: pres_bottom_strato
106      real,save :: pres_top_strato
107!$OMP THREADPRIVATE(pres_bottom_tropo,pres_top_tropo,pres_bottom_strato,pres_top_strato)
108      real,save :: size_tropo
109      real,save :: size_strato
110      real,save :: satval
111      real,save :: CLFfixval
112      real,save :: n2mixratio
113!$OMP THREADPRIVATE(size_tropo,size_strato,satval,CLFfixval,n2mixratio)
114      real,save :: size_nh3_cloud
115      real,save :: pres_nh3_cloud
116      real,save :: tau_nh3_cloud
117!$OMP THREADPRIVATE(size_nh3_cloud, pres_nh3_cloud, tau_nh3_cloud)
118      real,dimension(:),allocatable,save :: aeronlay_tauref
119      real,dimension(:),allocatable,save :: aeronlay_lamref
120      real,dimension(:),allocatable,save :: aeronlay_ptop
121      real,dimension(:),allocatable,save :: aeronlay_pbot
122      real,dimension(:),allocatable,save :: aeronlay_sclhght
123      real,dimension(:),allocatable,save :: aeronlay_size
124      real,dimension(:),allocatable,save :: aeronlay_nueff
125!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size,aeronlay_nueff)
126      real,save :: co2supsat
127      real,save :: pceil
128      real,save :: albedosnow
129      real,save :: alb_ocean
130      real,save :: albedoco2ice
131      real,save :: maxicethick
132!$OMP THREADPRIVATE(co2supsat,pceil,albedosnow,alb_ocean,albedoco2ice,maxicethick)
133      real,save :: Tsaldiff
134      real,save :: tau_relax
135      real,save :: cloudlvl
136      real,save :: icetstep
137      real,save :: intheat
138!$OMP THREADPRIVATE(Tsaldiff,tau_relax,cloudlvl,icetstep,intheat)
139      real,save :: flatten
140      real,save :: Rmean
141      real,save :: J2
142      real,save :: MassPlanet
143!$OMP THREADPRIVATE(flatten,Rmean,J2,MassPlanet)
144      real,save :: surfalbedo
145      real,save :: surfemis
146!$OMP THREADPRIVATE(surfalbedo,surfemis)
147      real,save :: epflux_max
148!$OMP THREADPRIVATE(epflux_max)
149      real,save :: noseason_day
150!$OMP THREADPRIVATE(noseason_day)
151      real,save :: kmixmin
152!$OMP THREADPRIVATE(kmixmin)
153     
154      logical,save :: iscallphys=.false.!existence of callphys.def
155!$OMP THREADPRIVATE(iscallphys)
156
157      ! do we read a startphy.nc file (default=.true.)
158      logical,save :: startphy_file=.true.
159!$OMP THREADPRIVATE(startphy_file)
160
161END MODULE callkeys_mod
Note: See TracBrowser for help on using the repository browser.