Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
oadvty3 | Module: | File: OCNQUS.f |
Author :
Version:
Declaration:
subroutine oadvty3(rm, rx, ry, rz, rxx, ryy, rzz, rxy, ryz, rzx, mo, mv, dt, oijl)
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- lmom : used from ocean
- Initial Value
= >LMM
- lmov : used from ocean
- Initial Value
= >LMV
- nbyzm : used from ocean
- i1yzm : used from ocean
- i2yzm : used from ocean
- nbyzv : used from ocean
- i1yzv : used from ocean
- i2yzv : used from ocean
- grid : used from oceanr_dim
- Initial Value
= >ogrid
- halo_update : used from domain_decomp_1d
- hassouthpole : used from domain_decomp_1d
- hasnorthpole : used from domain_decomp_1d
- dt :
real*8, intent(in)
- mv :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rm :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rx :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- ry :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rz :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rxx :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- ryy :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rzz :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rxy :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- ryz :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- rzx :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- mo :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- oijl :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- qnp :
logical
- i :
integer
- j :
integer
- l :
integer
- j1h :
integer
- j1p :
integer
- jnp :
integer
- jn :
integer
- n :
integer
- imin :
integer
- imax :
integer
- bm :
real*8
- bm2 :
real*8
- b :
real*8
- fm :
real*8
- fx :
real*8
- fy :
real*8
- fz :
real*8
- fxx :
real*8
- fyy :
real*8
- fzz :
real*8
- fxy :
real*8
- fyz :
real*8
- fzx :
real*8
- mnew :
real*8
- bymnew :
real*8
- bmjm1 :
real*8, dimension(im)
- fmjm1 :
real*8, dimension(im)
- fxjm1 :
real*8, dimension(im)
- fyjm1 :
real*8, dimension(im)
- fzjm1 :
real*8, dimension(im)
- fxxjm1 :
real*8, dimension(im)
- fyyjm1 :
real*8, dimension(im)
- fzzjm1 :
real*8, dimension(im)
- fxyjm1 :
real*8, dimension(im)
- fyzjm1 :
real*8, dimension(im)
- fzxjm1 :
real*8, dimension(im)