Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
adv1d | Module: | File: QUSDEF.f |
Author : G. Russell, modified by Maxwell Kelley
Version:
Declaration:
subroutine adv1d(s, smom, f, fmom, mass, dm, nx, qlimit, stride, dir, ierr, nerr)
- nmom : used from qusdef
- prather_limits : used from qusdef
- s :
real*8, dimension(nx*stride)
- mean tracer amount (kg or J)
- smom :
real*8, dimension(nmom, nx*stride)
- qus tracer moments (kg or J)
- f :
real*8, dimension(nx)
- tracer flux (diagnostic output) (kg or J)
- fmom :
real*8, dimension(nmom, nx)
- tracer moment flux (diagnostic output) (kg or J)
- mass :
real*8, dimension(nx*stride)
- mass field (kg)
- dm :
real*8, dimension(nx)
- 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 :
integer, intent(out)
- error codes
- ierr :
integer, intent(out)
- error codes
- 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
- fracm :
real*8
- frac1 :
real*8
- bymnew :
real*8
- mnew :
real*8
- dm2 :
real*8
- tmp :
real*8
- an :
real*8
- anm1 :
real*8
- fn :
real*8
- fnm1 :
real*8
- sn :
real*8
- sxn :
real*8
- sxxn :
real*8