Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
getvk | Module: STRAT | File: STRATDYN.f |
Author : Bob Suozzo/Jean Lerner
Version:
Declaration:
subroutine getvk (u, v, vkeddy, ldifm)
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- halo_update : used from domain_decomp_1d
- north : used from domain_decomp_1d
- south : used from domain_decomp_1d
- atmsrf : used from fluxes
- vert :
- . Diffusion coefficent
- vkeddy :
real*8, intent(out), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm+1)
- u :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- v :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- ldifm :
integer, intent(in)
- xeddy :
real*8, parameter
- Initial Value
= 10.
- dv2max :
real*8, parameter
- Initial Value
= 25.**2
- i :
integer
- j :
integer
- l :
integer
- ip1 :
integer
- us1 :
real*8
- vs1 :
real*8
- delv2 :
real*8
- j_1 :
integer
- j_0 :
integer
- j_0s :
integer
- j_1s :
integer
- j_0stg :
integer
- j_1stg :
integer
- have_south_pole :
logical
- have_north_pole :
logical
- usurf :
real*8, dimension(:, :), pointer
- vsurf :
real*8, dimension(:, :), pointer