! source file: /usr/local/models/UVic_ESCM/2.9/source/common/stab.h
!====================== include file "stab.h" ==========================
! CFL and other stability criteria information
! cflons = starting longitude (degrees) for stability tests
! cflone = ending longitude (degrees) for stability tests
! cflats = starting latitude (degrees) for stability tests
! cflate = ending latitude (degrees) for stability tests
! cfldps = starting depth (cm) for stability tests
! cfldpe = ending depth (cm) for stability tests
! iscfl = index corresponding to "cflons"
! iecfl = index corresponding to "cflone"
! jscfl = index corresponding to "cflats"
! jecfl = index corresponding to "cflate"
! kscfl = index corresponding to "cfldps"
! kecfl = index corresponding to "cfldpe"
! cflcrt = factor by which the cfl criteria must be exceeded in
! order to show local values (see blkdta.F)
! maxcfl = maximum number of times the "cflcrt" factor can be
! exceeded before stopping.
! numcfl = counter for number of times the "cflcrt" factor was
! exceeded.
! cflum = zonal velocity which comes closest to its cfl criteria
! cflup = percent of cfl criteria reached by "cflum"
! icflu = "i" coordinate of "cflum"
! jcflu = "j" coordinate of "cflum"
! kcflu = "k" coordinate of "cflum"
! cflvm = meridional velocity which comes closest to its cfl
! criteria
! cflvp = percent of cfl criteria reached by "cflvm"
! icflv = "i" coordinate of "cflvm"
! jcflv = "j" coordinate of "cflvm"
! kcflv = "k" coordinate of "cflvm"
! cflwtm = vertical velocity at "t" box bottom
! which comes closest to its cfl criteria
! cflwtp = percent of cfl criteria reached by "cflwtm"
! icflwt = "i" coordinate of "cflwtm"
! jcflwt = "j" coordinate of "cflwtm"
! kcflwt = "k" coordinate of "cflwtm"
! cflwum = vertical velocity at "u,v" box bottom
! which comes closest to its cfl criteria
! cflwup = percent of cfl criteria reached by "cflwum"
! icflwu = "i" coordinate of "cflwum"
! jcflwu = "j" coordinate of "cflwum"
! kcflwu = "k" coordinate of "cflwum"
! reynx = maximum reynolds number in the zonal direction
! ireynx = "i" coordinate of "reynx"
! jreynx = "j" coordinate of "reynx"
! kreynx = "k" coordinate of "reynx"
! reynu = "u" for computing "reynx"
! reynmu = zonal mixing of momentum for computing "reynx"
! reyny = maximum reynolds number in the meridional direction
! ireyny = "i" coordinate of "reyny"
! jreyny = "j" coordinate of "reyny"
! kreyny = "k" coordinate of "reyny"
! reynv = "v" for computing "reyny"
! reynmv = meridional mixing of momentum for computing "reyny"
! reynz = maximum reynolds number in the vertical direction
! ireynz = "i" coordinate of "reynz"
! jreynz = "j" coordinate of "reynz"
! kreynz = "k" coordinate of "reynz"
! reynw = "w" for computing "reynz"
! reynmw = vertical mixing of momentum for computing "reynz"
! peclx = maximum peclet number in the zonal direction
! ipeclx = "i" coordinate of "peclx"
! jpeclx = "j" coordinate of "peclx"
! kpeclx = "k" coordinate of "peclx"
! peclu = "u" for computing "peclx"
! peclmu = zonal mixing of tracer for computing "peclx"
! pecly = maximum peclet number in the meridional direction
! ipecly = "i" coordinate of "pecly"
! jpecly = "j" coordinate of "pecly"
! kpecly = "k" coordinate of "pecly"
! peclv = "v" for computing "pecly"
! peclmv = meridional mixing of tracer for computing "pecly"
! peclz = maximum peclet number in the vertical direction
! ipeclz = "i" coordinate of "peclz"
! jpeclz = "j" coordinate of "peclz"
! kpeclz = "k" coordinate of "peclz"
! peclw = "w" for computing "peclz"
! peclmw = vertical mixing of tracer for computing "peclz"
! tdig = factor by which local tracer extremum must be exceeded
! before showing ficticious creation of tracer
integer iscfl, iecfl, jscfl, jecfl, kscfl, kecfl
integer icflu, jcflu, kcflu, icflv, jcflv, kcflv
integer icflwt, jcflwt, kcflwt, icflwu, jcflwu, kcflwu
integer numcfl, maxcfl
integer ireynx, jreynx, kreynx, ireyny, jreyny, kreyny
integer ireynz, jreynz, kreynz, ipeclx, jpeclx, kpeclx
integer ipecly, jpecly, kpecly, ipeclz, jpeclz, kpeclz
common /stab_i/ iscfl, iecfl, jscfl, jecfl, kscfl, kecfl
common /stab_i/ icflu, jcflu, kcflu, icflv, jcflv, kcflv
common /stab_i/ icflwt, jcflwt, kcflwt, icflwu, jcflwu, kcflwu
common /stab_i/ numcfl, maxcfl
common /stab_i/ ireynx, jreynx, kreynx, ireyny, jreyny, kreyny
common /stab_i/ ireynz, jreynz, kreynz, ipeclx, jpeclx, kpeclx
common /stab_i/ ipecly, jpecly, kpecly, ipeclz, jpeclz, kpeclz
real cflons, cflone, cflats, cflate, cfldps, cfldpe
real cflup, cflum, cflvp, cflvm, cflwtp, cflwtm
real cflwup, cflwum, cflcrt, tdig
real reynx, reynu, reynmu, reyny, reynv, reynmv
real reynz, reynw, reynmw, peclx, peclu, peclmu
real pecly, peclv, peclmv, peclz, peclw, peclmw
common /stab_r/ cflons, cflone, cflats, cflate, cfldps, cfldpe
common /stab_r/ cflup, cflum, cflvp, cflvm, cflwtp, cflwtm
common /stab_r/ cflwup, cflwum, cflcrt, tdig
common /stab_r/ reynx, reynu, reynmu, reyny, reynv, reynmv
common /stab_r/ reynz, reynw, reynmw, peclx, peclu, peclmu
common /stab_r/ pecly, peclv, peclmv, peclz, peclw, peclmw