Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
isotropuv | Module: ATMDYN | File: ATMDYN.f |
Author : M. Kelley
Version:
Declaration:
subroutine isotropuv(u, v, coscut)
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- dt : used from dynamics
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- cosv : used from geom
- dxv : used from geom
- cosi : used from geom
- Initial Value
= >cosiv
- sini : used from geom
- Initial Value
= >siniv
- klo :
real*8, parameter
- Initial Value
= 1d3
- khi :
real*8, parameter
- Initial Value
= 1d7
- u :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- v :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- coscut :
real*8
- fac :
real*8
- k :
real*8
- ua :
real*8, dimension(im)
- va :
real*8, dimension(im)
- an :
real*8, dimension(0:imh)
- bn :
real*8, dimension(0:imh)
- i :
integer
- j :
integer
- l :
integer
- hemi :
integer
- jp :
integer
- jinc :
integer
- jcut :
integer
- ipole :
integer
- j_0stg :
integer
- j_1stg :
integer