Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
advection_1d_custom | Module: | File: QUSDEF.f |
Author : T. Clune
Version:
Declaration:
subroutine advection_1d_custom(s, smom, f, fmom, mass, dm, nx, nlev, idx, qlimit, stride, dir, ierr, err_loc)
- nmom : used from qusdef
- prather_limits : used from qusdef
- grid : used from domain_decomp_atm
- north : used from domain_decomp_1d
- south : used from domain_decomp_1d
- getdomainbounds : used from domain_decomp_1d
- halo_update : used from domain_decomp_1d
- halo_update_column : used from domain_decomp_1d
- checksum : used from domain_decomp_1d
- s :
real*8, dimension(stride, grid%j_strt_halo:grid%j_stop_halo, nlev)
- mean tracer amount (kg or J)
- smom :
real*8, dimension(nmom, stride, grid%j_strt_halo:grid%j_stop_halo, nlev)
- qus tracer moments (kg or J)
- f :
real*8, dimension(stride, grid%j_strt_halo:grid%j_stop_halo, nlev)
- tracer flux (diagnostic output) (kg or J)
- fmom :
real*8, dimension(nmom, stride, grid%j_strt_halo:grid%j_stop_halo, nlev)
- tracer moment flux (diagnostic output) (kg or J)
- mass :
real*8, dimension(stride, grid%j_strt_halo:grid%j_stop_halo, nlev)
- mass field (kg)
- dm :
real*8, dimension(stride, grid%j_strt_halo:grid%j_stop_halo, nlev)
- mass flux (kg)
- nx :
integer, intent(in)
- length of 1D vector
- qlimit :
logical, intent(in)
- true if negative tracer is to be avoided
- stride :
integer, intent(in)
- spacing in s array between elements of relevant 1D array
- dir :
integer, dimension(nmom)
- direction switch (equals one of xdir ydir or zdir)
- nerr :
- error codes
- ierr :
integer, intent(out)
- error codes
- nlev :
integer, intent(in)
- idx :
logical, intent(in), dimension(nlev)
- mx :
integer
- my :
integer
- mz :
integer
- mxx :
integer
- myy :
integer
- mzz :
integer
- mxy :
integer
- myz :
integer
- mzx :
integer
- n :
integer
- np1 :
integer
- nm1 :
integer
- nn :
integer
- ns :
integer
- err_loc :
integer, intent(out), dimension(3)
- fracm :
real*8
- frac1 :
real*8
- bymnew :
real*8
- mnew :
real*8
- dm2 :
real*8
- tmp :
real*8
- i :
integer
- l :
integer
- j_0 :
integer
- j_1 :
integer
- j_0s :
integer
- j_1s :
integer
- have_south_pole :
logical
- an :
real*8
- anm1 :
real*8
- fn :
real*8
- fnm1 :
real*8
- sn :
real*8
- sxn :
real*8
- sxxn :
real*8