Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

bldepth

Module:

File: OCNKPP.f

Summary: bldepth calculates oceanic planetray boundary layer depth, hbl written by: bill large, june 6, 1994 modified by: jan morzel, june 30, 1994 bill large, august 11, 1994 bill large, january 25, 1995 : "dVsq" and 1d code modified for GISS by Gavin Schmidt, march 1998 for ModelE march 2001 modified for GISS by Ye Cheng and Armando Howard, May 2011
Author :
Version:

---

Declaration:

subroutine bldepth( ze, zgrid, byhwide, lmij, dvsq, ustar, bo, bosol, dbloc, ritop, rib, hbl, kbl, bf)

Variables:

lmo : used from kppe

lsrpd : used from kppe

rdeltaz : used from kppe

nni : used from kppe

rdeltau : used from kppe

nnj : used from kppe

wmt : used from kppe

wst : used from kppe

vonk : used from kppe

vtc : used from kppe

ricr : used from kppe

fsr : used from kppe

dfsrdzb : used from kppe

dfsrdz : used from kppe

zmax : used from kppe

zmin : used from kppe

umin : used from kppe

conc1 : used from kppe

epsl : used from kppe

epsilon : used from kppe

ze : real*8, dimension(0:lmo)

giss vertical layering (m)

am_i_root : used from domain_decomp_1d

zgrid : real*8, dimension(0:lmo+1)

vertical grid (<= 0) (m)

byhwide : real*8, dimension(0:lmo+1)

1/layer thicknesses (1/m)

lmij : integer

number of vertical layers on this row

dvsq : real*8, dimension(lmo)

(velocity shear re sfc)^2 (m/s)^2

ustar : real*8

surface friction velocity (m/s)

bo : real*8

surface turbulent buoy. forcing (m^2/s^3)

bosol : real*8

radiative buoyancy forcing (m^2/s^3)

dbloc : real*8, dimension(lmo)

local delta buoyancy across interfaces (m/s^2)

ritop : real*8, dimension(lmo)

numerator of bulk Richardson Number (m/s)^2

rib : real*8, dimension(lmo)

bulk Richardson number

hbl : real*8

boundary layer depth (m)

kbl : integer

index of first grid level below hbl

bfsfc : real*8

surface buoyancy forcing (m^2/s^3)

bf : real*8

bfsfc : real*8

surface buoyancy forcing (m^2/s^3)

rib2 : real*8, dimension(2)

temperary bulk Richardson number

byhbl : real*8

1/boundary layer depth (1/m)

ws : real*8

momentum velocity scale

wm : real*8

scalar velocity scale

casea : real*8

= 1 in case A; =0 in case B

stable : real*8

1 in stable forcing; 0 in unstable

sigma : real*8

normalized depth (d / hbl)

lmax : integer

minimum of LSRPD and lmij, used in swfrac

zehat : real*8

= zeta * ustar**3

ki : integer

mr : integer

ka : integer

ku : integer

kl : integer

iz : integer

izp1 : integer

ju : integer

jup1 : integer

ksave : integer

kt : integer

zdiff : real*8

zfrac : real*8

fzfrac : real*8

wam : real*8

wbm : real*8

was : real*8

wbs : real*8

u3 : real*8

bvsq : real*8

delhat : real*8

dvdzup : real*8

dvdzdn : real*8

viscp : real*8

diftp : real*8

visch : real*8

difsh : real*8

f1 : real*8

bywm : real*8

byws : real*8

udiff : real*8

ufrac : real*8

vtsq : real*8