Commit d8c4eaaa authored by kbk's avatar kbk
Browse files

Poor Man's Z-coordinates

parent 6025fe89
......@@ -150,3 +150,13 @@
allocate(kvmin(I2DFIELD),stat=rc) ! Bottom index for vertical v-columns
if (rc /= 0) stop 'init_3d: Error allocating memory (kvmin)'
! Below are allocations for Poor Mans Z-coordinates - PMZ
allocate(kmin_pmz(I2DFIELD),stat=rc)
if (rc /= 0) stop 'init_3d: Error allocating memory (kmin_pmz)'
allocate(kumin_pmz(I2DFIELD),stat=rc)
if (rc /= 0) stop 'init_3d: Error allocating memory (kumin_pmz)'
allocate(kvmin_pmz(I2DFIELD),stat=rc)
if (rc /= 0) stop 'init_3d: Error allocating memory (kvmin_pmz)'
......@@ -7,6 +7,7 @@
! Number of vertical layers in z,u,v columns
integer, dimension(:,:), allocatable:: kmin,kumin,kvmin
integer, dimension(:,:), allocatable:: kmin_pmz,kumin_pmz,kvmin_pmz
REALTYPE, dimension(:,:,:), allocatable :: uu,vv,ww
REALTYPE, dimension(:,:,:), allocatable :: ho,hn
......
......@@ -9,6 +9,9 @@
INTEGER :: kmin(I2DFIELD)
INTEGER :: kumin(I2DFIELD)
INTEGER :: kvmin(I2DFIELD)
INTEGER :: kmin_pmz(I2DFIELD)
INTEGER :: kumin_pmz(I2DFIELD)
INTEGER :: kvmin_pmz(I2DFIELD)
REALTYPE :: uu(I3DFIELD)
REALTYPE :: vv(I3DFIELD)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment