Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
aadvqz2 | Module: | File: QUS3D.f |
Author : Maxwell Kelley
Version:
Declaration:
subroutine aadvqz2(rm, rmom, mass, mw, mwdn, fdn, fmomdn, scf, scm, sfcm)
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- im : used from quscom
- jm : used from quscom
- imaxj : used from geom
- rm :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, 2)
- mass :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, 2)
- rmom :
real*8, dimension(nmom, im, grid%j_strt_halo:grid%j_stop_halo, 2)
- fmomdn :
real*8, dimension(nmom, im, grid%j_strt_halo:grid%j_stop_halo)
- mw :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- mwdn :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- fdn :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- sfcm :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)
- scm :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)
- scf :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo)
- fmomup :
real*8, dimension(nmom)
- i :
integer
- j :
integer
- l :
integer
- ll :
integer
- frac1 :
real*8
- fracm :
real*8
- fup :
real*8
- mold :
real*8
- mnew :
real*8
- bymnew :
real*8
- dm2 :
real*8
- j_0 :
integer
- j_1 :
integer
- have_south_pole :
logical
- have_north_pole :
logical