Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
vdiff | Module: STRAT | File: STRATDYN.f |
Author : Bob Suozzo/Jean Lerner
Version:
Declaration:
subroutine vdiff (dt1, ut, vt, u, v, ma, t)
- rgas : used from constant
- grav : used from constant
- twopi : used from constant
- kapa : used from constant
- sha : used from constant
- kg2mb : used from constant
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- ls1 : used from resolution
- Initial Value
= >ls1_nominal
- pedn : used from atm_com
- pmid : used from atm_com
- pk : used from atm_com
- mrch : used from dynamics
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_atm
- halo_update : used from domain_decomp_1d
- north : used from domain_decomp_1d
- south : used from domain_decomp_1d
- sini : used from geom
- Initial Value
= >siniv
- cosi : used from geom
- Initial Value
= >cosiv
- imaxj : used from geom
- rapvn : used from geom
- rapvs : used from geom
- dxyv : used from geom
- kmaxj : used from geom
- idij : used from geom
- idjj : used from geom
- rapj : used from geom
- atmsrf : used from fluxes
- ajl : used from diag_com
- Initial Value
= >ajl_loc
- jl_dudtvdif : used from diag_com
- byim : used from diag_com
- defrm : used from strat
- ang_gwd : used from strat
- tridiag : used from tridiag_mod
- ldifm :
integer, parameter
- Initial Value
= LM
- byrgas :
real*8, parameter
- Initial Value
= 1./RGAS
- vkeddy :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm+1)
- rho :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- dut :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- dvt :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- dke :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- ul :
real*8, dimension(0:ldifm+1)
- vl :
real*8, dimension(0:ldifm+1)
- tl :
real*8, dimension(0:ldifm+1)
- pl :
real*8, dimension(0:ldifm+1)
- rhol :
real*8, dimension(0:ldifm+1)
- dp :
real*8, dimension(LM)
- am :
real*8, dimension(LM)
- al :
real*8, dimension(LM)
- au :
real*8, dimension(LM)
- b :
real*8, dimension(LM)
- du :
real*8, dimension(LM)
- dv :
real*8, dimension(LM)
- mauv :
real*8, dimension(LM)
- ple :
real*8, dimension(ldifm+1)
- rhoe :
real*8, dimension(ldifm+1)
- dpe :
real*8, dimension(ldifm+1)
- dflx :
real*8, dimension(ldifm+1)
- kmedge :
real*8, dimension(ldifm+1)
- khedge :
real*8, dimension(ldifm+1)
- mu :
real*8, parameter
- Initial Value
= 1.
- u :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- v :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- t :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- ut :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- vt :
real*8, intent(in), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- ma :
real*8, intent(in), dimension(LM, IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO)
- dt1 :
real*8, intent(in)
- g2dt :
real*8
- pij :
real*8
- tphys :
real*8
- angm :
real*8
- dpt :
real*8
- duang :
real*8
- i :
integer
- j :
integer
- l :
integer
- ip1 :
integer
- ndt :
integer
- n :
integer
- lmax :
integer
- 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
- tsurf :
real*8, dimension(:, :), pointer
- qsurf :
real*8, dimension(:, :), pointer
- usurf :
real*8, dimension(:, :), pointer
- vsurf :
real*8, dimension(:, :), pointer