Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
odhorz | Module: | File: OCNDYN2.f |
Author :
Version:
Declaration:
subroutine odhorz(moh, uoh, voh, uodh, vodh, opboth, mo, uo, vo, uod, vod, opbot, dt, qeven)
- grav : used from constant
- omega : used from constant
- undef_val : used from constant
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- lmom : used from ocean
- Initial Value
= >LMM
- lmou : used from ocean
- Initial Value
= >LMU
- lmov : used from ocean
- Initial Value
= >LMV
- mzsolid : used from ocean
- Initial Value
= >HOCEAN
- ogeoz : used from ocean
- sinvo : used from ocean
- sinpo : used from ocean
- dxpo : used from ocean
- dypo : used from ocean
- dxyvo : used from ocean
- dxvo : used from ocean
- dyvo : used from ocean
- dxypo : used from ocean
- nbyzm : used from ocean
- nbyzu : used from ocean
- nbyzv : used from ocean
- nbyzc : used from ocean
- i1yzm : used from ocean
- i2yzm : used from ocean
- i1yzu : used from ocean
- i2yzu : used from ocean
- i1yzv : used from ocean
- i2yzv : used from ocean
- i1yzc : used from ocean
- i2yzc : used from ocean
- smu : used from ocean_dyn
- smv : used from ocean_dyn
- vbar : used from ocean_dyn
- dzgdp : used from ocean_dyn
- mmi : used from ocean_dyn
- halo_update : used from domain_decomp_1d
- north : used from domain_decomp_1d
- south : used from domain_decomp_1d
- globalmax : used from domain_decomp_1d
- grid : used from oceanr_dim
- Initial Value
= >ogrid
- moh :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uoh :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- voh :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uodh :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vodh :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- opboth :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- mo :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uo :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vo :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uod :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vod :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- opbot :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- dt :
real*8, intent(in)
- qeven :
logical, intent(in)
- zg :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- p :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- pdn :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- dh :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- usmooth :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- pgfx :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- pgfy :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- mu :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- mv :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- ua :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- va :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- vort :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- ke :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- corofj :
real*8
- mufac :
real*8
- mvfac :
real*8
- bydx :
real*8
- bydy :
real*8
- mmid :
real*8
- xeven :
real*8
- convij :
real*8
- convfac :
real*8
- dp :
real*8
- pgf4pt :
real*8
- pgfac :
real*8
- uq :
real*8
- vq :
real*8
- uasmooth :
real*8
- i :
integer*4
- j :
integer*4
- l :
integer*4
- j1 :
integer*4
- jn :
integer*4
- j1p :
integer*4
- jnp :
integer*4
- j1h :
integer*4
- jnh :
integer*4
- j1a :
integer*4
- jminpfu :
integer*4
- jmaxpfu :
integer*4
- n :
integer*4
- smallmo_loc :
integer
- smallmo :
integer
- qnp :
logical