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

Last change on this file since 2613 was 2595, checked in by emillour, 3 years ago

Generic GCM:
Fixes and improvements in the Non-orographic GW scheme, namely:

  • increments are not tendencies
  • missing rho factor in EP flux computation
  • missing rho at launch altitude
  • changed inputs, because R and Cp are needed to compute rho and BV

JL
File size: 6.2 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!$OMP THREADPRIVATE(calllott_nonoro)
67      logical,save :: global1d
68      real,save    :: szangle
69!$OMP THREADPRIVATE(global1d,szangle)
70
71      integer,save :: iddist
72      integer,save :: iaervar
73      integer,save :: iradia
74      integer,save :: startype
75      integer,save :: versH2H2cia
76      integer,save :: nlayaero
77!$OMP THREADPRIVATE(iddist,iaervar,iradia,startype,versH2H2cia,nlayaero)
78      integer,dimension(:),allocatable,save :: aeronlay_choice
79!$OMP THREADPRIVATE(aeronlay_choice)
80
81      character(64),save :: optprop_back2lay_vis
82      character(64),save :: optprop_back2lay_ir
83      character(64),dimension(:),allocatable,save :: optprop_aeronlay_vis
84      character(64),dimension(:),allocatable,save :: optprop_aeronlay_ir
85!$OMP THREADPRIVATE(optprop_back2lay_vis,optprop_back2lay_ir,optprop_aeronlay_vis,optprop_aeronlay_ir)
86
87      real,save :: tplanckmin
88      real,save :: tplanckmax
89      real,save :: dtplanck
90!$OMP THREADPRIVATE(tplanckmin,tplanckmax,dtplanck)
91      real,save :: topdustref
92      real,save :: Nmix_co2
93      real,save :: dusttau
94      real,save :: Fat1AU
95      real,save :: stelTbb
96!$OMP THREADPRIVATE(topdustref,Nmix_co2,dusttau,Fat1AU,stelTbb)
97      real,save :: Tstrat
98      real,save :: tplanet
99      real,save :: obs_tau_col_tropo
100      real,save :: obs_tau_col_strato
101!$OMP THREADPRIVATE(Tstrat,tplanet,obs_tau_col_tropo,obs_tau_col_strato)
102      real,save :: pres_bottom_tropo
103      real,save :: pres_top_tropo
104      real,save :: pres_bottom_strato
105      real,save :: pres_top_strato
106!$OMP THREADPRIVATE(pres_bottom_tropo,pres_top_tropo,pres_bottom_strato,pres_top_strato)
107      real,save :: size_tropo
108      real,save :: size_strato
109      real,save :: satval
110      real,save :: CLFfixval
111      real,save :: n2mixratio
112!$OMP THREADPRIVATE(size_tropo,size_strato,satval,CLFfixval,n2mixratio)
113      real,save :: size_nh3_cloud
114      real,save :: pres_nh3_cloud
115      real,save :: tau_nh3_cloud
116!$OMP THREADPRIVATE(size_nh3_cloud, pres_nh3_cloud, tau_nh3_cloud)
117      real,dimension(:),allocatable,save :: aeronlay_tauref
118      real,dimension(:),allocatable,save :: aeronlay_lamref
119      real,dimension(:),allocatable,save :: aeronlay_ptop
120      real,dimension(:),allocatable,save :: aeronlay_pbot
121      real,dimension(:),allocatable,save :: aeronlay_sclhght
122      real,dimension(:),allocatable,save :: aeronlay_size
123      real,dimension(:),allocatable,save :: aeronlay_nueff
124!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size,aeronlay_nueff)
125      real,save :: co2supsat
126      real,save :: pceil
127      real,save :: albedosnow
128      real,save :: alb_ocean
129      real,save :: albedoco2ice
130      real,save :: maxicethick
131!$OMP THREADPRIVATE(co2supsat,pceil,albedosnow,alb_ocean,albedoco2ice,maxicethick)
132      real,save :: Tsaldiff
133      real,save :: tau_relax
134      real,save :: cloudlvl
135      real,save :: icetstep
136      real,save :: intheat
137!$OMP THREADPRIVATE(Tsaldiff,tau_relax,cloudlvl,icetstep,intheat)
138      real,save :: flatten
139      real,save :: Rmean
140      real,save :: J2
141      real,save :: MassPlanet
142!$OMP THREADPRIVATE(flatten,Rmean,J2,MassPlanet)
143      real,save :: surfalbedo
144      real,save :: surfemis
145!$OMP THREADPRIVATE(surfalbedo,surfemis)
146      real,save :: noseason_day
147!$OMP THREADPRIVATE(noseason_day)
148      real,save :: kmixmin
149!$OMP THREADPRIVATE(kmixmin)
150     
151      logical,save :: iscallphys=.false.!existence of callphys.def
152!$OMP THREADPRIVATE(iscallphys)
153
154      ! do we read a startphy.nc file (default=.true.)
155      logical,save :: startphy_file=.true.
156!$OMP THREADPRIVATE(startphy_file)
157
158END MODULE callkeys_mod
Note: See TracBrowser for help on using the repository browser.