mod_scalars.F File Reference

#include "cppdefs.h"

Include dependency graph for mod_scalars.F:

Go to the source code of this file.

Data Types
type	mod_scalars::t_scalars
type	mod_scalars::t_clock

Modules
module	mod_scalars

Functions/Subroutines
subroutine, public	mod_scalars::allocate_scalars
subroutine, public	mod_scalars::deallocate_scalars (ng)
subroutine, public	mod_scalars::initialize_scalars

Variables
type(t_scalars), dimension(:), allocatable	mod_scalars::scalars
real(dp)	mod_scalars::time_ref = 0.0_dp
type(t_clock)	mod_scalars::rclock
integer	mod_scalars::itemp
integer	mod_scalars::isalt
integer, dimension(:), pointer	mod_scalars::inert
integer	mod_scalars::itrate
integer	mod_scalars::itvadv
integer	mod_scalars::ithadv
integer	mod_scalars::itxadv
integer	mod_scalars::ityadv
integer	mod_scalars::itvdif
integer	mod_scalars::ithdif
integer	mod_scalars::itxdif
integer	mod_scalars::itydif
integer	mod_scalars::itsdif
integer	mod_scalars::m2fcor
integer	mod_scalars::m2hadv
integer	mod_scalars::m2xadv
integer	mod_scalars::m2yadv
integer	mod_scalars::m2pgrd
integer	mod_scalars::m2hvis
integer	mod_scalars::m2xvis
integer	mod_scalars::m2yvis
integer	mod_scalars::m2sstr
integer	mod_scalars::m2bstr
integer	mod_scalars::m2rate
integer	mod_scalars::m3fcor
integer	mod_scalars::m3vadv
integer	mod_scalars::m3hadv
integer	mod_scalars::m3xadv
integer	mod_scalars::m3yadv
integer	mod_scalars::m3pgrd
integer	mod_scalars::m3vvis
integer	mod_scalars::m3hvis
integer	mod_scalars::m3xvis
integer	mod_scalars::m3yvis
integer	mod_scalars::m3rate
logical, dimension(:), allocatable	mod_scalars::perfectrst
logical, dimension(:), allocatable	mod_scalars::predictor_2d_step
integer, dimension(:), allocatable	mod_scalars::indx1
integer, dimension(:), allocatable	mod_scalars::iic
integer, dimension(:), allocatable	mod_scalars::iif
integer, dimension(:), allocatable	mod_scalars::next_kstp
integer, dimension(:), allocatable	mod_scalars::jic
integer, dimension(:), allocatable	mod_scalars::ndtfast
integer, dimension(:), allocatable	mod_scalars::nfast
real(dp), dimension(:), allocatable	mod_scalars::tdays
real(dp), dimension(:), allocatable	mod_scalars::time
real(dp), dimension(:), allocatable	mod_scalars::time4jedi
real(dp), dimension(:), allocatable	mod_scalars::dt
real(dp), dimension(:), allocatable	mod_scalars::dtfast
real(dp), dimension(:), allocatable	mod_scalars::timeend
real(dp), dimension(:), allocatable	mod_scalars::avgtime
real(dp), dimension(:), allocatable	mod_scalars::diatime
real(dp), dimension(:), allocatable	mod_scalars::imptime
real(dp), dimension(:), allocatable	mod_scalars::initime
real(dp), dimension(:), allocatable	mod_scalars::initimes
real(dp), dimension(:), allocatable	mod_scalars::obstime
real(dp), dimension(:), allocatable	mod_scalars::frctime
real(dp)	mod_scalars::dstart = 0.0_dp
real(dp)	mod_scalars::dstarts = 0.0_dp
real(dp)	mod_scalars::io_time = 0.0_dp
real(dp)	mod_scalars::run_time = 0.0_dp
real(dp)	mod_scalars::myruninterval = 0.0_dp
real(dp)	mod_scalars::tide_start = 0.0_dp
character(len=22)	mod_scalars::f_code
character(len=22)	mod_scalars::i_code
character(len=22), dimension(:), allocatable	mod_scalars::time_code
real(dp)	mod_scalars::falpha = 2.0_dp
real(dp)	mod_scalars::fbeta = 4.0_dp
real(dp)	mod_scalars::fgamma = 0.284_dp
integer, dimension(:), allocatable	mod_scalars::ntimes
integer, dimension(:), allocatable	mod_scalars::step_counter
integer	mod_scalars::nintervals = 1
integer	mod_scalars::erstr = 1
integer	mod_scalars::erend = 1
integer	mod_scalars::ninner = 1
integer	mod_scalars::nouter = 1
integer	mod_scalars::nrun = 1
integer	mod_scalars::nrunsave = 0
integer	mod_scalars::outerloop = 0
integer	mod_scalars::inner = 0
integer	mod_scalars::outer = 0
character(len= *), parameter	mod_scalars::hashmethod = "bitsum"
character(len=20)	mod_scalars::phase4dvar
integer	mod_scalars::nsaddle = 1
integer, dimension(:), allocatable	mod_scalars::ntfirst
integer, dimension(:), allocatable	mod_scalars::ntstart
integer, dimension(:), allocatable	mod_scalars::ntend
integer, dimension(:), allocatable	mod_scalars::frcrec
integer, dimension(:), allocatable	mod_scalars::nrecfrc
real(r8)	mod_scalars::cc1 = 0.25_r8
real(r8)	mod_scalars::cc2 = 0.5_r8
real(r8)	mod_scalars::cc3 = 1.0_r8/12.0_r8
logical	mod_scalars::threeghostpoints = .FALSE.
logical, dimension(:), allocatable	mod_scalars::setgridconfig
logical, dimension(:), allocatable	mod_scalars::processinputdata
logical, dimension(:), allocatable	mod_scalars::nudgingcoeff
logical, dimension(:), allocatable	mod_scalars::obcdata
logical, dimension(:), allocatable	mod_scalars::lbiology
logical, dimension(:), allocatable	mod_scalars::lfloats
logical, dimension(:), allocatable	mod_scalars::lsediment
logical, dimension(:), allocatable	mod_scalars::lstations
logical	mod_scalars::lnodal = .TRUE.
real(dp)	mod_scalars::cp = 3985.0_dp
real(dp)	mod_scalars::csolar = 1353.0_dp
real(dp)	mod_scalars::infinity
real(dp)	mod_scalars::eradius = 6371315.0_dp
real(dp)	mod_scalars::stefbo = 5.67E-8_dp
real(dp)	mod_scalars::emmiss = 0.97_dp
real(dp)	mod_scalars::rhow = 1000.0_dp
real(dp)	mod_scalars::g = 1.0_dp
real(dp)	mod_scalars::gorho0
real(dp)	mod_scalars::vonkar = 0.41_dp
logical	mod_scalars::spherical = .FALSE.
logical	mod_scalars::lallocatedmemory = .FALSE.
logical	mod_scalars::lstiffness = .TRUE.
logical, dimension(:,:), allocatable	mod_scalars::compositegrid
logical, dimension(:), allocatable	mod_scalars::refinedgrid
integer, dimension(:), allocatable	mod_scalars::refinescale
logical, dimension(:), allocatable	mod_scalars::getdonordata
logical, dimension(:), allocatable	mod_scalars::ewperiodic
logical, dimension(:), allocatable	mod_scalars::nsperiodic
logical, dimension(:,:), allocatable	mod_scalars::volcons
logical, dimension(:,:), allocatable	mod_scalars::ad_volcons
logical, dimension(:,:), allocatable	mod_scalars::tl_volcons
logical, dimension(:), allocatable	mod_scalars::clm_file
logical, dimension(:), allocatable	mod_scalars::lclimatology
logical, dimension(:), allocatable	mod_scalars::lsshclm
logical, dimension(:), allocatable	mod_scalars::lm2clm
logical, dimension(:), allocatable	mod_scalars::lm3clm
logical, dimension(:,:), allocatable	mod_scalars::ltracerclm
logical, dimension(:), allocatable	mod_scalars::lnudging
logical, dimension(:), allocatable	mod_scalars::lnudgem2clm
logical, dimension(:), allocatable	mod_scalars::lnudgem3clm
logical, dimension(:,:), allocatable	mod_scalars::lnudgetclm
logical, dimension(:), allocatable	mod_scalars::luvsrc
logical, dimension(:), allocatable	mod_scalars::lwsrc
logical, dimension(:,:), allocatable	mod_scalars::ltracersrc
integer	mod_scalars::exit_flag = 0
integer	mod_scalars::blowup = 0
integer	mod_scalars::noerror = 0
character(len=80)	mod_scalars::blowup_string
real(dp), dimension(:), allocatable	mod_scalars::maxspeed
real(dp), dimension(:), allocatable	mod_scalars::maxrho
real(dp)	mod_scalars::max_speed = 20.0_dp
real(dp)	mod_scalars::max_rho = 200.0_dp
integer, parameter	mod_scalars::linear = 0
integer, parameter	mod_scalars::cubic = 1
integer	mod_scalars::interpflag = linear
integer, dimension(:), allocatable	mod_scalars::levsfrc
integer, dimension(:), allocatable	mod_scalars::levbfrc
integer, dimension(:), allocatable	mod_scalars::vtransform
integer, dimension(:), allocatable	mod_scalars::vstretching
real(dp), dimension(:), allocatable	mod_scalars::tcline
real(dp), dimension(:), allocatable	mod_scalars::hc
real(dp), dimension(:), allocatable	mod_scalars::theta_s
real(dp), dimension(:), allocatable	mod_scalars::theta_b
real(dp), dimension(:), allocatable	mod_scalars::hmin
real(dp), dimension(:), allocatable	mod_scalars::hmax
real(r8), dimension(:), allocatable	mod_scalars::xl
real(r8), dimension(:), allocatable	mod_scalars::el
real(r8), dimension(:), allocatable	mod_scalars::lonmin
real(r8), dimension(:), allocatable	mod_scalars::lonmax
real(r8), dimension(:), allocatable	mod_scalars::latmin
real(r8), dimension(:), allocatable	mod_scalars::latmax
real(r8)	mod_scalars::co
integer, dimension(:), allocatable	mod_scalars::idigits
integer, dimension(:), allocatable	mod_scalars::jdigits
integer, dimension(:), allocatable	mod_scalars::kdigits
integer, dimension(:), allocatable	mod_scalars::first_time
real(dp)	mod_scalars::avgke = 0.0_dp
real(dp)	mod_scalars::avgpe = 0.0_dp
real(dp)	mod_scalars::avgkp = 0.0_dp
real(dp)	mod_scalars::volume = 0.0_dp
real(dp)	mod_scalars::ad_volume = 0.0_dp
real(dp), dimension(:), allocatable	mod_scalars::totvolume
real(dp), dimension(:), allocatable	mod_scalars::minvolume
real(dp), dimension(:), allocatable	mod_scalars::maxvolume
real(dp), dimension(:), allocatable	mod_scalars::dxmin
real(dp), dimension(:), allocatable	mod_scalars::dxmax
real(dp), dimension(:), allocatable	mod_scalars::dymin
real(dp), dimension(:), allocatable	mod_scalars::dymax
real(dp), dimension(:), allocatable	mod_scalars::dxminw
real(dp), dimension(:), allocatable	mod_scalars::dxmaxw
real(dp), dimension(:), allocatable	mod_scalars::dyminw
real(dp), dimension(:), allocatable	mod_scalars::dymaxw
real(dp), dimension(:), allocatable	mod_scalars::dzmin
real(dp), dimension(:), allocatable	mod_scalars::dzmax
real(dp), dimension(:), allocatable	mod_scalars::dzminw
real(dp), dimension(:), allocatable	mod_scalars::dzmaxw
real(dp), dimension(:), allocatable	mod_scalars::grdmax
real(dp), dimension(:), allocatable	mod_scalars::cg_min
real(dp), dimension(:), allocatable	mod_scalars::cg_max
real(dp), dimension(:), allocatable	mod_scalars::cg_cor
integer	mod_scalars::max_ci = 0
integer	mod_scalars::max_cj = 0
integer	mod_scalars::max_ck = 0
real(r8)	mod_scalars::max_c = 0.0_r8
real(r8)	mod_scalars::max_cu = 0.0_r8
real(r8)	mod_scalars::max_cv = 0.0_r8
real(r8)	mod_scalars::max_cw = 0.0_r8
real(r8), dimension(:), allocatable	mod_scalars::r0
real(r8), dimension(:), allocatable	mod_scalars::tcoef
real(r8), dimension(:), allocatable	mod_scalars::scoef
real(r8), dimension(:), allocatable	mod_scalars::t0
real(r8), dimension(:), allocatable	mod_scalars::s0
real(r8), dimension(:), allocatable	mod_scalars::gamma2
real(r8)	mod_scalars::lambda = 1.0_r8
integer, dimension(:), allocatable	mod_scalars::lmd_jwt
real(dp), dimension(:), allocatable	mod_scalars::rx0
real(dp), dimension(:), allocatable	mod_scalars::rx1
real(r8), dimension(:), allocatable	mod_scalars::rdrg
real(r8), dimension(:), allocatable	mod_scalars::rdrg2
real(dp)	mod_scalars::cdb_min = 0.000001_dp
real(dp)	mod_scalars::cdb_max = 0.5_dp
real(r8), dimension(:), allocatable	mod_scalars::zos
real(r8), dimension(:), allocatable	mod_scalars::zob
real(r8), dimension(:), allocatable	mod_scalars::dcrit
real(dp)	mod_scalars::rho0 = 1025.0_dp
real(dp)	mod_scalars::bvf_bak = 0.00001_dp
integer, dimension(:), allocatable	mod_scalars::nconv
real(dp)	mod_scalars::ritz_tol = 1.0E-15_dp
integer	mod_scalars::nuser
real(r8), dimension(:), allocatable	mod_scalars::user
real(dp), dimension(:,:,:), allocatable	mod_scalars::weight
real(dp), parameter	mod_scalars::pi = 3.14159265358979323846_dp
real(dp), parameter	mod_scalars::deg2rad = pi / 180.0_dp
real(dp), parameter	mod_scalars::rad2deg = 180.0_dp / pi
real(dp), parameter	mod_scalars::day2sec = 86400.0_dp
real(dp), parameter	mod_scalars::sec2day = 1.0_dp / 86400.0_dp
real(dp), parameter	mod_scalars::spval = 1.0E+37_dp
real(dp), parameter	mod_scalars::large = 1.0E+20_dp
real(dp), parameter	mod_scalars::jul_off = 2440000.0_dp
real(dp), parameter	mod_scalars::spval_check = 1.0E+35_dp
real(r8), dimension(:), allocatable	mod_scalars::akk_bak
real(r8), dimension(:), allocatable	mod_scalars::akp_bak
real(r8), dimension(:), allocatable	mod_scalars::akv_bak
real(r8), dimension(:), allocatable	mod_scalars::akv_limit
real(r8), dimension(:), allocatable	mod_scalars::ad_visc2
real(r8), dimension(:), allocatable	mod_scalars::nl_visc2
real(r8), dimension(:), allocatable	mod_scalars::tl_visc2
real(r8), dimension(:), allocatable	mod_scalars::visc2
real(r8), dimension(:), allocatable	mod_scalars::ad_visc4
real(r8), dimension(:), allocatable	mod_scalars::nl_visc4
real(r8), dimension(:), allocatable	mod_scalars::tl_visc4
real(r8), dimension(:), allocatable	mod_scalars::visc4
real(r8), dimension(:), allocatable	mod_scalars::tkenu2
real(r8), dimension(:), allocatable	mod_scalars::tkenu4
real(r8), dimension(:,:), allocatable	mod_scalars::akt_bak
real(r8), dimension(:,:), allocatable	mod_scalars::akt_limit
real(r8), dimension(:,:), allocatable	mod_scalars::kdiff
real(r8), dimension(:,:), allocatable	mod_scalars::ad_tnu2
real(r8), dimension(:,:), allocatable	mod_scalars::nl_tnu2
real(r8), dimension(:,:), allocatable	mod_scalars::tl_tnu2
real(r8), dimension(:,:), allocatable	mod_scalars::tnu2
real(r8), dimension(:,:), allocatable	mod_scalars::ad_tnu4
real(r8), dimension(:,:), allocatable	mod_scalars::nl_tnu4
real(r8), dimension(:,:), allocatable	mod_scalars::tl_tnu4
real(r8), dimension(:,:), allocatable	mod_scalars::tnu4
real(r8), dimension(:), allocatable	mod_scalars::tl_m2diff
real(r8), dimension(:), allocatable	mod_scalars::tl_m3diff
real(r8), dimension(:,:), allocatable	mod_scalars::tl_tdiff
real(r8), dimension(:), allocatable	mod_scalars::ad_akv_fac
real(r8), dimension(:), allocatable	mod_scalars::tl_akv_fac
real(r8), dimension(:,:), allocatable	mod_scalars::ad_akt_fac
real(r8), dimension(:,:), allocatable	mod_scalars::tl_akt_fac
logical, dimension(:), allocatable	mod_scalars::lsponge
logical, dimension(:), allocatable	mod_scalars::luvsponge
logical, dimension(:,:), allocatable	mod_scalars::ltracersponge
logical, dimension(:), allocatable	mod_scalars::ldefadj
logical, dimension(:), allocatable	mod_scalars::ldefavg
logical, dimension(:), allocatable	mod_scalars::ldefdai
logical, dimension(:), allocatable	mod_scalars::ldefdia
logical, dimension(:), allocatable	mod_scalars::ldeferr
logical, dimension(:), allocatable	mod_scalars::ldefflt
logical, dimension(:), allocatable	mod_scalars::ldefhis
logical, dimension(:), allocatable	mod_scalars::ldefhss
logical, dimension(:), allocatable	mod_scalars::ldefini
logical, dimension(:), allocatable	mod_scalars::ldefirp
logical, dimension(:), allocatable	mod_scalars::ldefitl
logical, dimension(:), allocatable	mod_scalars::ldeflcz
logical, dimension(:), allocatable	mod_scalars::ldeflze
logical, dimension(:), allocatable	mod_scalars::ldefmod
logical, dimension(:), allocatable	mod_scalars::ldefqck
logical, dimension(:), allocatable	mod_scalars::ldefrst
logical, dimension(:), allocatable	mod_scalars::ldefsca
logical, dimension(:), allocatable	mod_scalars::ldefsct
logical, dimension(:), allocatable	mod_scalars::ldefspa
logical, dimension(:), allocatable	mod_scalars::ldefspt
logical, dimension(:), allocatable	mod_scalars::ldefsta
logical, dimension(:), allocatable	mod_scalars::ldeftide
logical, dimension(:), allocatable	mod_scalars::ldeftlm
logical, dimension(:), allocatable	mod_scalars::ldeftlf
logical, dimension(:), allocatable	mod_scalars::ldefxtr
logical, dimension(:), allocatable	mod_scalars::lreadadm
logical, dimension(:), allocatable	mod_scalars::lreadblk
logical, dimension(:), allocatable	mod_scalars::lreadfrc
logical, dimension(:), allocatable	mod_scalars::lreadfwd
logical, dimension(:), allocatable	mod_scalars::lreadqck
logical, dimension(:), allocatable	mod_scalars::lreadstd
logical, dimension(:), allocatable	mod_scalars::lreadtlm
logical, dimension(:), allocatable	mod_scalars::lwrtadj
logical, dimension(:), allocatable	mod_scalars::lwrtavg
logical, dimension(:), allocatable	mod_scalars::lwrtdia
logical, dimension(:), allocatable	mod_scalars::lwrthis
logical, dimension(:), allocatable	mod_scalars::lwrtper
logical, dimension(:), allocatable	mod_scalars::lwrtqck
logical, dimension(:), allocatable	mod_scalars::lwrtrst
logical, dimension(:), allocatable	mod_scalars::lwrttlf
logical, dimension(:), allocatable	mod_scalars::lwrttlm
logical, dimension(:), allocatable	mod_scalars::lwrtxtr
logical, dimension(:,:), allocatable	mod_scalars::ldefnrm
logical, dimension(:,:), allocatable	mod_scalars::lwrtnrm
logical, dimension(:), allocatable	mod_scalars::lwrtstate2d
logical, dimension(:), allocatable	mod_scalars::lwrttime
logical, dimension(:), allocatable	mod_scalars::lwrtcost
logical, dimension(:), allocatable	mod_scalars::ladjusted
logical	mod_scalars::lappend = .FALSE.
logical, dimension(:), allocatable	mod_scalars::lprocessobc
logical, dimension(:), allocatable	mod_scalars::lprocesstides
logical, dimension(:), allocatable	mod_scalars::lwrtinfo
logical, dimension(:), allocatable	mod_scalars::ldefout
integer, dimension(:), allocatable	mod_scalars::ndefadj
integer, dimension(:), allocatable	mod_scalars::ndefavg
integer, dimension(:), allocatable	mod_scalars::ndefdia
integer, dimension(:), allocatable	mod_scalars::ndefhis
integer, dimension(:), allocatable	mod_scalars::ndefqck
integer, dimension(:), allocatable	mod_scalars::ndeftlm
integer, dimension(:), allocatable	mod_scalars::ndefxtr
integer, dimension(:), allocatable	mod_scalars::ntsavg
integer, dimension(:), allocatable	mod_scalars::ntsdia
integer, dimension(:), allocatable	mod_scalars::nadj
integer, dimension(:), allocatable	mod_scalars::navg
integer, dimension(:), allocatable	mod_scalars::ndia
integer, dimension(:), allocatable	mod_scalars::nflt
integer, dimension(:), allocatable	mod_scalars::nhis
integer, dimension(:), allocatable	mod_scalars::nqck
integer, dimension(:), allocatable	mod_scalars::nrst
integer, dimension(:), allocatable	mod_scalars::nsta
integer, dimension(:), allocatable	mod_scalars::ntlm
integer, dimension(:), allocatable	mod_scalars::nxtr
integer, dimension(:), allocatable	mod_scalars::nsca
integer, dimension(:), allocatable	mod_scalars::nsct
integer, dimension(:), allocatable	mod_scalars::nspa
integer, dimension(:), allocatable	mod_scalars::nspt
integer, dimension(:), allocatable	mod_scalars::crec
integer, dimension(:), allocatable	mod_scalars::extractflag
integer, dimension(:), allocatable	mod_scalars::ninfo
integer, dimension(:), allocatable	mod_scalars::nobc
integer, dimension(:), allocatable	mod_scalars::nbrec
integer, dimension(:), allocatable	mod_scalars::obccount
logical, dimension(:,:,:), allocatable	mod_scalars::lobc
real(dp), dimension(:,:), allocatable	mod_scalars::obc_time
integer, dimension(:), allocatable	mod_scalars::nsff
integer, dimension(:), allocatable	mod_scalars::nfrec
integer, dimension(:), allocatable	mod_scalars::sfcount
logical, dimension(:,:), allocatable	mod_scalars::lstflux
real(dp), dimension(:,:), allocatable	mod_scalars::sf_time
integer, dimension(:), allocatable	mod_scalars::nrrec
logical, dimension(:), allocatable	mod_scalars::synchro_flag
logical, dimension(:), allocatable	mod_scalars::lastrec
logical	mod_scalars::lmultigst
logical	mod_scalars::lrstgst
integer	mod_scalars::maxitergst
integer	mod_scalars::ngst
logical, dimension(:), allocatable	mod_scalars::lcycleadj
logical, dimension(:), allocatable	mod_scalars::lcyclerst
logical, dimension(:), allocatable	mod_scalars::lcycletlm
integer, dimension(:), allocatable	mod_scalars::hcount
integer, dimension(:), allocatable	mod_scalars::kstrs
integer, dimension(:), allocatable	mod_scalars::kends
real(r8), dimension(:), allocatable	mod_scalars::dstrs
real(r8), dimension(:), allocatable	mod_scalars::dends
integer, dimension(:), allocatable	mod_scalars::sorec
real(r8), dimension(:), allocatable	mod_scalars::trnorm
real(r8), dimension(:), allocatable	mod_scalars::so_decay
real(r8), dimension(:,:), allocatable	mod_scalars::so_sdev
integer	mod_scalars::mstatevar
logical, dimension(:,:), allocatable	mod_scalars::cnorm
logical, dimension(:,:), allocatable	mod_scalars::cnormb
logical, dimension(:), allocatable	mod_scalars::sporadicimpulse
logical, dimension(:), allocatable	mod_scalars::frequentimpulse
logical, dimension(:), allocatable	mod_scalars::iauswitch
real(dp), dimension(:), allocatable	mod_scalars::timeiau
real(r8), dimension(4)	mod_scalars::hgamma
real(r8), dimension(4)	mod_scalars::vgamma
real(r8), dimension(:), allocatable	mod_scalars::dtdz_min
real(r8), dimension(:), allocatable	mod_scalars::ml_depth
real(r8), dimension(:), allocatable	mod_scalars::lnm_depth
integer	mod_scalars::lnm_flag
logical, dimension(:), allocatable	mod_scalars::balance
real(r8), dimension(:,:,:), allocatable	mod_scalars::hdecay
real(r8), dimension(:,:), allocatable	mod_scalars::tdecay
real(r8), dimension(:,:,:), allocatable	mod_scalars::vdecay
real(r8), dimension(:,:,:), allocatable	mod_scalars::hdecayb
real(r8), dimension(:,:,:), allocatable	mod_scalars::vdecayb
integer, dimension(:), allocatable	mod_scalars::bgqc_type
real(r8)	mod_scalars::bgqc_large = 1.0E+5_r8
integer, dimension(:), allocatable	mod_scalars::nprovenance
integer, dimension(:,:), allocatable	mod_scalars::iprovenance
real(r8), dimension(:,:), allocatable	mod_scalars::p_bgqc
real(r8), dimension(:,:), allocatable	mod_scalars::s_bgqc
integer, parameter	mod_scalars::iwest = 1
integer, parameter	mod_scalars::isouth = 2
integer, parameter	mod_scalars::ieast = 3
integer, parameter	mod_scalars::inorth = 4
real(dp), dimension(:), allocatable	mod_scalars::obcfac
real(dp), dimension(:,:), allocatable	mod_scalars::fsobc_in
real(dp), dimension(:,:), allocatable	mod_scalars::fsobc_out
real(dp), dimension(:,:), allocatable	mod_scalars::m2obc_in
real(dp), dimension(:,:), allocatable	mod_scalars::m2obc_out
real(dp), dimension(:,:), allocatable	mod_scalars::m3obc_in
real(dp), dimension(:,:), allocatable	mod_scalars::m3obc_out
real(dp), dimension(:,:,:), allocatable	mod_scalars::tobc_in
real(dp), dimension(:,:,:), allocatable	mod_scalars::tobc_out
real(dp), dimension(:), allocatable	mod_scalars::znudg
real(dp), dimension(:), allocatable	mod_scalars::m2nudg
real(dp), dimension(:), allocatable	mod_scalars::m3nudg
real(dp), dimension(:,:), allocatable	mod_scalars::tnudg
real(dp)	mod_scalars::bc_area = 0.0_dp
real(dp)	mod_scalars::bc_flux = 0.0_dp
real(dp)	mod_scalars::ubar_xs = 0.0_dp
real(dp)	mod_scalars::tl_bc_area = 0.0_dp
real(dp)	mod_scalars::tl_bc_flux = 0.0_dp
real(dp)	mod_scalars::tl_ubar_xs = 0.0_dp
real(dp)	mod_scalars::ad_bc_area = 0.0_dp
real(dp)	mod_scalars::ad_bc_flux = 0.0_dp
real(dp)	mod_scalars::ad_ubar_xs = 0.0_dp
real(r8)	mod_scalars::sp_sumdot = 0.0_r8
real(dp)	mod_scalars::blk_cpa = 1004.67_dp
real(dp)	mod_scalars::blk_cpw = 4000.0_dp
real(dp)	mod_scalars::blk_rgas = 287.1_dp
real(dp)	mod_scalars::blk_zabl = 600.0_dp
real(dp)	mod_scalars::blk_beta = 1.2_dp
real(dp)	mod_scalars::blk_dter = 0.3_dp
real(dp)	mod_scalars::blk_tcw = 0.6_dp
real(dp)	mod_scalars::blk_visw = 0.000001_dp
real(r8), dimension(:), allocatable	mod_scalars::blk_zq
real(r8), dimension(:), allocatable	mod_scalars::blk_zt
real(r8), dimension(:), allocatable	mod_scalars::blk_zw
integer, parameter	mod_scalars::sg_n = 20
real(dp), parameter	mod_scalars::sg_pi = pi
real(dp)	mod_scalars::sg_cdmax = 0.01_dp
real(dp)	mod_scalars::sg_alpha = 1.0_dp
real(dp)	mod_scalars::sg_g = 9.81_dp
real(dp)	mod_scalars::sg_kappa = 0.41_dp
real(dp)	mod_scalars::sg_nu = 0.00000119_dp
real(dp)	mod_scalars::sg_tol = 0.0001_dp
real(dp)	mod_scalars::sg_ustarcdef = 0.01_dp
real(dp)	mod_scalars::sg_z100 = 1.0_dp
real(dp)	mod_scalars::sg_z1min = 0.20_dp
real(dp)	mod_scalars::sg_z1p
real(dp)	mod_scalars::sg_znotcdef = 0.01_dp
real(dp)	mod_scalars::sg_znotdef
complex(c8)	mod_scalars::sg_mp
real(r8), dimension(9)	mod_scalars::lmd_mu1 = (/ 0.35_r8, 0.6_r8, 1.0_r8, 1.5_r8, 1.4_r8, 0.42_r8, 0.37_r8, 0.33_r8, 0.00468592_r8 /)
real(r8), dimension(9)	mod_scalars::lmd_mu2 = (/ 23.0_r8, 20.0_r8, 17.0_r8, 14.0_r8, 7.9_r8, 5.13_r8, 3.54_r8, 2.34_r8, 1.51_r8 /)
real(r8), dimension(9)	mod_scalars::lmd_r1 = (/ 0.58_r8, 0.62_r8, 0.67_r8, 0.77_r8, 0.78_r8, 0.57_r8, 0.57_r8, 0.57_r8, 0.55_r8 /)
real(r8)	mod_scalars::lmd_ri0 = 0.7_r8
real(r8)	mod_scalars::lmd_rrho0 = 1.9_r8
real(r8)	mod_scalars::lmd_bvfcon = -2.0E-5_r8
real(r8)	mod_scalars::lmd_fdd = 0.7_r8
real(r8)	mod_scalars::lmd_nu = 1.5E-6_r8
real(r8)	mod_scalars::lmd_nu0c = 0.01_r8
real(r8)	mod_scalars::lmd_nu0m = 10.0E-4_r8
real(r8)	mod_scalars::lmd_nu0s = 10.0E-4_r8
real(r8)	mod_scalars::lmd_nuf = 10.0E-4_r8
real(r8)	mod_scalars::lmd_nuwm = 1.0E-4_r8
real(r8)	mod_scalars::lmd_nuws = 1.0E-5_r8
real(r8)	mod_scalars::lmd_sdd1 = 0.15_r8
real(r8)	mod_scalars::lmd_sdd2 = 1.85_r8
real(r8)	mod_scalars::lmd_sdd3 = 0.85_r8
real(r8)	mod_scalars::lmd_tdd1 = 0.909_r8
real(r8)	mod_scalars::lmd_tdd2 = 4.6_r8
real(r8)	mod_scalars::lmd_tdd3 = 0.54_r8
real(r8)	mod_scalars::lmd_cg
real(r8)	mod_scalars::lmd_cstar = 10.0_r8
real(r8)	mod_scalars::lmd_cv = 1.25_r8
real(r8)	mod_scalars::lmd_ric = 0.3_r8
real(r8)	mod_scalars::lmd_am = 1.257_r8
real(r8)	mod_scalars::lmd_as = -28.86_r8
real(r8)	mod_scalars::lmd_betat = -0.2_r8
real(r8)	mod_scalars::lmd_cekman = 0.7_r8
real(r8)	mod_scalars::lmd_cmonob = 1.0_r8
real(r8)	mod_scalars::lmd_cm = 8.36_r8
real(r8)	mod_scalars::lmd_cs = 98.96_r8
real(r8)	mod_scalars::lmd_epsilon = 0.1_r8
real(r8)	mod_scalars::lmd_zetam = -0.2_r8
real(r8)	mod_scalars::lmd_zetas = -1.0_r8
real(r8), dimension(:), allocatable	mod_scalars::gls_m
real(r8), dimension(:), allocatable	mod_scalars::gls_n
real(r8), dimension(:), allocatable	mod_scalars::gls_p
real(r8), dimension(:), allocatable	mod_scalars::gls_sigk
real(r8), dimension(:), allocatable	mod_scalars::gls_sigp
real(r8), dimension(:), allocatable	mod_scalars::gls_cmu0
real(r8), dimension(:), allocatable	mod_scalars::gls_cmupr
real(r8), dimension(:), allocatable	mod_scalars::gls_c1
real(r8), dimension(:), allocatable	mod_scalars::gls_c2
real(r8), dimension(:), allocatable	mod_scalars::gls_c3m
real(r8), dimension(:), allocatable	mod_scalars::gls_c3p
real(r8), dimension(:), allocatable	mod_scalars::gls_kmin
real(r8), dimension(:), allocatable	mod_scalars::gls_pmin
real(r8)	mod_scalars::gls_s0
real(r8)	mod_scalars::gls_s1
real(r8)	mod_scalars::gls_s2
real(r8)	mod_scalars::gls_s3
real(r8)	mod_scalars::gls_s4
real(r8)	mod_scalars::gls_s5
real(r8)	mod_scalars::gls_s6
real(r8)	mod_scalars::gls_b0
real(r8)	mod_scalars::gls_b1
real(r8)	mod_scalars::gls_b2
real(r8)	mod_scalars::gls_b3
real(r8)	mod_scalars::gls_b4
real(r8)	mod_scalars::gls_b5
real(r8), parameter	mod_scalars::gls_gh0 = 0.0329_r8
real(r8), parameter	mod_scalars::gls_ghcri = 0.03_r8
real(r8), parameter	mod_scalars::gls_l1 = 0.107_r8
real(r8), parameter	mod_scalars::gls_l2 = 0.0032_r8
real(r8), parameter	mod_scalars::gls_l3 = 0.0864_r8
real(r8), parameter	mod_scalars::gls_l4 = 0.12_r8
real(r8), parameter	mod_scalars::gls_l5 = 11.9_r8
real(r8), parameter	mod_scalars::gls_l6 = 0.4_r8
real(r8), parameter	mod_scalars::gls_l7 = 0.0_r8
real(r8), parameter	mod_scalars::gls_l8 = 0.48_r8
real(r8), parameter	mod_scalars::gls_ghmin = -0.28_r8
real(r8), parameter	mod_scalars::gls_e2 = 1.33_r8
real(r8), dimension(:), allocatable	mod_scalars::charnok_alpha
real(r8), dimension(:), allocatable	mod_scalars::zos_hsig_alpha
real(r8), dimension(:), allocatable	mod_scalars::sz_alpha
real(r8), dimension(:), allocatable	mod_scalars::crgban_cw
real(r8), dimension(:), allocatable	mod_scalars::wec_alpha
real(r8), parameter	mod_scalars::my_a1 = 0.92_r8
real(r8), parameter	mod_scalars::my_a2 = 0.74_r8
real(r8), parameter	mod_scalars::my_b1 = 16.6_r8
real(r8), parameter	mod_scalars::my_b2 = 10.1_r8
real(r8), parameter	mod_scalars::my_c1 = 0.08_r8
real(r8), parameter	mod_scalars::my_c2 = 0.7_r8
real(r8), parameter	mod_scalars::my_c3 = 0.2_r8
real(r8), parameter	mod_scalars::my_e1 = 1.8_r8
real(r8), parameter	mod_scalars::my_e2 = 1.33_r8
real(r8), parameter	mod_scalars::my_gh0 = 0.0233_r8
real(r8), parameter	mod_scalars::my_sq = 0.2_r8
real(r8), parameter	mod_scalars::my_dtfac = 0.05_r8
real(r8), parameter	mod_scalars::my_lmax = 0.53_r8
real(r8), parameter	mod_scalars::my_qmin = 1.0E-8_r8
real(r8)	mod_scalars::my_b1p2o3
real(r8)	mod_scalars::my_b1pm1o3
real(r8)	mod_scalars::my_e1o2
real(r8)	mod_scalars::my_sh1
real(r8)	mod_scalars::my_sh2
real(r8)	mod_scalars::my_sm1
real(r8)	mod_scalars::my_sm2
real(r8)	mod_scalars::my_sm3
real(r8)	mod_scalars::my_sm4
real(r8)	mod_scalars::bvf_numax = 4.0E-4_r8
real(r8)	mod_scalars::bvf_numin = 3.0E-5_r8
real(r8)	mod_scalars::bvf_nu0 = 1.0E-7_r8
real(r8)	mod_scalars::bvf_nu0c = 1.0_r8
logical	mod_scalars::tlmodel = .FALSE.
logical	mod_scalars::admodel = .FALSE.