Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

griddr

Module: SOCPBL

File: PBL.f

Summary: griddr computes altitudes on vertical grid. The xi coordinates are uniformly spaced and are mapped in a log-linear fashion onto the z grid. (The z's are the physical coords.) Also computes the altitudes on the secondary grid, zhat, and the derivatives dxi/dz evaluated at both all z and zhat. z and zhat are staggered: mean quantitied are calculated at z, turbulent kinetic enery and fluxes are calculated at zhat.
Author : Ye Cheng/G. Hartke
Version:

---

Declaration:

subroutine griddr(z, zhat, xi, xihat, dz, dzh, z1, zn, bgrid, n, ierr)

Variables:

bgrid : real*8, intent(out)

determines how strongly non-linear the

z : real*8, dimension(n), intent(out)

height of main grids (meter)

zhat : real*8, dimension(n-1), intent(out)

height of secondary grids (meter)

xi : real*8, dimension(n), intent(out)

an uniformly spaced coordinate mapped to z

xihat : real*8, dimension(n-1), intent(out)

an uniformly spaced coordinate mapped to zhat

dz : real*8, dimension(n), intent(out)

dxi/(dxi/dz)

dzh : real*8, dimension(n-1), intent(out)

dxi/(dxi/dzh)

dxi : real*8

(ztop - zbottom)/(n-1)

ierr : integer, intent(out)

Error reporting flag

newtonmethod : used from rootfinding_mod

n : integer, intent(in)

array dimension

z1 : real*8, intent(in)

zn : real*8, intent(in)

tolz : real*8, parameter

Initial Value = 1d-3

byzs : real*8, parameter

Initial Value = 1.d0/10.d0

bydzs : real*8, parameter

Initial Value = 1.d0/4.7914d0

z1pass : real*8

znpass : real*8

b : real*8

xipass : real*8

lznbyz1 : real*8

iter :

loop variable

i : integer

loop variable

zmin : real*8

zmax : real*8

dxidz : real*8

dxidzh : real*8