Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
oceans | Module: | File: OCNDYN2.f |
Author :
Version:
Declaration:
subroutine oceans(atmocn, iceocn, dynsice)
- rhows : used from constant
- grav : used from constant
- msurf : used from model_com
- itime : used from model_com
- nocean : used from oceanres
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- ndyno : used from ocean
- mo : used from ocean
- g0m : used from ocean
- s0m : used from ocean
- dts : used from ocean
- dtofs : used from ocean
- dto : used from ocean
- dtolf : used from ocean
- mdyno : used from ocean
- msgso : used from ocean
- ogeoz : used from ocean
- ogeoz_sv : used from ocean
- opbot : used from ocean
- ze : used from ocean
- lmm : used from ocean
- imaxj : used from ocean
- uo : used from ocean
- vo : used from ocean
- vonp : used from ocean
- ivnp : used from ocean
- obottom_drag : used from ocean
- ocoastal_drag : used from ocean
- uod : used from ocean
- vod : used from ocean
- lmu : used from ocean
- lmv : used from ocean
- use_qus : used from ocean
- gxmo : used from ocean
- gymo : used from ocean
- gzmo : used from ocean
- gxxmo : used from ocean
- gyymo : used from ocean
- gzzmo : used from ocean
- gxymo : used from ocean
- gyzmo : used from ocean
- gzxmo : used from ocean
- sxmo : used from ocean
- symo : used from ocean
- szmo : used from ocean
- sxxmo : used from ocean
- syymo : used from ocean
- szzmo : used from ocean
- sxymo : used from ocean
- syzmo : used from ocean
- szxmo : used from ocean
- nbyzm : used from ocean
- nbyzu : used from ocean
- nbyzv : 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
- mmi : used from ocean_dyn
- smu : used from ocean_dyn
- smv : used from ocean_dyn
- smw : used from ocean_dyn
- getdomainbounds : used from domain_decomp_1d
- am_i_root : used from domain_decomp_1d
- halo_update : used from domain_decomp_1d
- south : used from domain_decomp_1d
- north : used from domain_decomp_1d
- hassouthpole : used from domain_decomp_1d
- hasnorthpole : used from domain_decomp_1d
- grid : used from oceanr_dim
- Initial Value
= >ogrid
- oijl : used from odiag
- Initial Value
= >oijl_loc
- oij : used from odiag
- Initial Value
= >oij_loc
- ijl_mo : used from odiag
- ijl_g0m : used from odiag
- ijl_s0m : used from odiag
- ijl_gflx : used from odiag
- ijl_sflx : used from odiag
- ijl_mfw2 : used from odiag
- ijl_mfu : used from odiag
- ijl_mfv : used from odiag
- ijl_mfw : used from odiag
- ijl_ggmfl : used from odiag
- ijl_sgmfl : used from odiag
- ij_ssh : used from odiag
- ij_pb : used from odiag
- ocnatm : used from ofluxes
- atmocn_xchng_vars : used from exchange_types
- iceocn_xchng_vars : used from exchange_types
- atmocn :
type(atmocn_xchng_vars)
- iceocn :
type(iceocn_xchng_vars)
- dynsice :
type(iceocn_xchng_vars)
- i :
integer*4
- j :
integer*4
- l :
integer*4
- n :
integer*4
- ns :
integer*4
- nst :
integer*4
- no :
integer*4
- neven :
integer*4
- mo1 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- mo2 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uo1 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uo2 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uod1 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- uod2 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vo1 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vo2 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vod1 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- vod2 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- g0m0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- gxmo0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- gymo0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- s0m0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- sxmo0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- symo0 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)
- opbot1 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- opbot2 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- relfac :
real*8
- dt_odiff :
real*8
- byno :
real*8, parameter
- Initial Value
= 1./nocean
- dtdum :
real*8
- it :
integer
- jt :
integer
- j_0 :
integer
- j_1 :
integer
- j_0h :
integer
- j_1h :
integer
- j_0s :
integer
- j_1s :
integer