Index

Rundeck: P1SoM40

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

getdz

Module:

File: ATURB_E1.f

Summary: getdz computes the 3-d finite difference dz and dze as well as the 3-d density rho and rhoe called at the primary grid (A-grid)
Author : Ye Cheng/G. Hartke
Version:

---

Declaration:

subroutine getdz(tv, dz, dze, rho, rhoe, tvsurf, lm)

Variables:

tv : real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo), intent(in)

virtual potential temp. referenced at 1 mb

dz : real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo), intent(out)

main grid spacing

dze : real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo), intent(out)

edge grid spacing

rhoe : real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo), intent(out)

air density at the main/edge grids

rho : real*8, dimension(lm, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo), intent(out)

air density at the main/edge grids

tvsurf : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo), intent(in)

surface virtual temperature

lm : integer, intent(in)

3-d grids

jm :

3-d grids

im :

3-d grids

grav : used from constant

rgas : used from constant

imaxj : used from geom

pmid : used from atm_com

pk : used from atm_com

pedn : used from atm_com

grid : used from domain_decomp_atm

l : integer

loop variable

j : integer

loop variable

i : integer

loop variable

temp0 : real*8

temp1 : real*8

temp1e : real*8

pl1 : real*8

pl : real*8

pl1e : real*8

ple : real*8

plm1e : real*8

i_0 : integer

i_1 : integer

j_1 : integer

j_0 : integer

j_0s : integer

j_1s : integer