Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
opgf | Module: | File: OCNDYN.f |
Author :
Version:
Declaration:
subroutine opgf (um, vm, dt1)
- grav : used from constant
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- ivnp : used from ocean
- ivsp : used from ocean
- lmom : used from ocean
- Initial Value
= >LMM
- lmou : used from ocean
- Initial Value
= >LMU
- lmov : used from ocean
- Initial Value
= >LMV
- mo : used from ocean
- g0m : used from ocean
- gzm : used from ocean
- Initial Value
= >GZMO
- s0m : used from ocean
- szm : used from ocean
- Initial Value
= >SZMO
- focean : used from ocean
- mzsolid : used from ocean
- Initial Value
= >HOCEAN
- dxpgf : used from ocean
- dypgf : used from ocean
- cosi : used from ocean
- Initial Value
= >COSIC
- sini : used from ocean
- Initial Value
= >SINIC
- opress : used from ocean
- ogeoz : used from ocean
- opbot : used from ocean
- vbar : used from ocean_dyn
- dh : used from ocean_dyn
- gup : used from ocean_dyn
- gdn : used from ocean_dyn
- sup : used from ocean_dyn
- sdn : used from ocean_dyn
- halo_update : used from domain_decomp_1d
- north : used from domain_decomp_1d
- grid : used from oceanr_dim
- Initial Value
= >ogrid
- z12eh :
real*8, parameter
- Initial Value
= .28867513d0
- um :
real*8, intent(out), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vm :
real*8, intent(out), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- dt1 :
real*8, intent(in)
- volgsp :
real*8, external
- dum :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- dvm :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- p :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- zg :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- pup :
real*8, dimension(LMO)
- pdn :
real*8, dimension(LMO)
- pe :
real*8
- zge :
real*8
- vup :
real*8
- vdn :
real*8
- dzgdp :
real*8
- dumnp :
real*8, dimension(LMO)
- dvmnp :
real*8, dimension(LMO)
- dt2 :
real*8
- i :
integer*4
- j :
integer*4
- l :
integer*4
- imax :
integer*4
- j1 :
integer*4
- jn :
integer*4
- j1p :
integer*4
- jnp :
integer*4
- jnh :
integer*4
- qsp :
logical*4
- qnp :
logical*4