dynamic_declarations_3d.h 1.7 KB
Newer Older
1 2
! Remember to update this value if you add more 3D arrays.
#ifdef UV_TVD
3
  integer,parameter                    :: n3d_fields=30
4
#else
5
  integer,parameter                    :: n3d_fields=23
6
#endif
kbk's avatar
kbk committed
7 8 9

! Number of vertical layers in z,u,v columns
  integer, dimension(:,:), allocatable:: kmin,kumin,kvmin
kbk's avatar
kbk committed
10
  integer, dimension(:,:), allocatable:: kmin_pmz,kumin_pmz,kvmin_pmz
kbk's avatar
kbk committed
11 12 13 14 15

  REALTYPE, dimension(:,:,:), allocatable   :: uu,vv,ww
  REALTYPE, dimension(:,:,:), allocatable   :: ho,hn
  REALTYPE, dimension(:,:,:), allocatable   :: huo,hun
  REALTYPE, dimension(:,:,:), allocatable   :: hvo,hvn
16
  REALTYPE, dimension(:,:,:), allocatable   :: hcc
kbk's avatar
kbk committed
17 18 19 20 21 22 23
  REALTYPE, dimension(:,:,:), allocatable   :: uuEx,vvEx
  REALTYPE, dimension(:,:,:), allocatable   :: num,nuh
  REALTYPE, dimension(:,:,:), allocatable   :: tke,eps
  REALTYPE, dimension(:,:,:), allocatable   :: SS

#ifndef NO_BAROCLINIC
  REALTYPE, dimension(:,:,:), allocatable   :: NN
24 25

! 3D baroclinic fields
kbk's avatar
kbk committed
26 27 28
  REALTYPE, dimension(:,:,:), allocatable   :: S,T,rho
  REALTYPE, dimension(:,:,:), allocatable   :: idpdx,idpdy
#endif
29 30

! suspended matter
kbk's avatar
kbk committed
31 32
#ifndef NO_SUSP_MATTER
  REALTYPE, dimension(:,:,:), allocatable   :: spm,spm_ws
33
  REALTYPE, dimension(:,:), allocatable     :: spm_pool
kbk's avatar
kbk committed
34
#endif
35

36 37
  REALTYPE, dimension(:,:,:), allocatable   :: light

38
#ifdef UV_TVD
kbk's avatar
kbk committed
39 40
  REALTYPE, dimension(:,:,:), allocatable   :: uadv,vadv,wadv
  REALTYPE, dimension(:,:,:), allocatable   :: huadv,hvadv,hoadv,hnadv
41 42 43
#endif

! 2D fields in 3D domain
kbk's avatar
kbk committed
44 45 46
  REALTYPE, dimension(:,:), allocatable     :: sseo,ssen
  REALTYPE, dimension(:,:), allocatable     :: ssuo,ssun
  REALTYPE, dimension(:,:), allocatable     :: ssvo,ssvn
47 48

! 3D friction in 3D domain
kbk's avatar
kbk committed
49
  REALTYPE, dimension(:,:), allocatable     :: rru,rrv,taus,taub
50