Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
gwdrag | Module: STRAT | File: STRATDYN.f |
Author : Bob Suozzo/Jean Lerner
Version:
Declaration:
subroutine gwdrag (dt1, ut, vt, u, v, ma, t, sz, calc_deform)
- grav : used from constant
- sha : used from constant
- kapa : used from constant
- rgas : used from constant
- kg2mb : used from constant
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- dtsrc : used from model_com
- zatmo : used from atm_com
- pedn : used from atm_com
- pmid : used from atm_com
- pdsig : used from atm_com
- pk : used from atm_com
- mrch : used from dynamics
- 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
- halo_update_column : used from domain_decomp_1d
- am_i_root : used from domain_decomp_1d
- airx : used from clouds_com
- lmc : used from clouds_com
- nm : used from strat
- zvarx : used from strat
- zvary : used from strat
- zwt : used from strat
- defrm : used from strat
- qgwcnv : used from strat
- ekofj : used from strat
- pbreaktop : used from strat
- defthresh : used from strat
- pconpen : used from strat
- ang_gwd : used from strat
- lpcnv : used from strat
- tl : used from strat
- thl : used from strat
- rho : used from strat
- bvf : used from strat
- dl : used from strat
- dut : used from strat
- dvt : used from strat
- ul : used from strat
- vl : used from strat
- dtime : used from strat
- bydtime : used from strat
- coriol : used from strat
- airxs : used from strat
- ur : used from strat
- wt : used from strat
- cn : used from strat
- usrc : used from strat
- dusdif : used from strat
- mu_top : used from strat
- dugwd : used from strat
- mu_inc : used from strat
- ek : used from strat
- ldrag : used from strat
- lmc0 : used from strat
- lmc1 : used from strat
- ranmtn_cell : used from strat
- Initial Value
= >RANMTN
- defrm_cell : used from strat
- zvarx_cell : used from strat
- zvary_cell : used from strat
- zwt_cell : used from strat
- zatmo_cell : used from strat
- dxyv : used from geom
- bydxyv : used from geom
- fcor : used from geom
- imaxj : used from geom
- rapvn : used from geom
- rapvs : used from geom
- byim : used from diag_com
- aij : used from diag_com
- Initial Value
= >aij_loc
- ajl : used from diag_com
- Initial Value
= >ajl_loc
- jl_dudtsdif : used from diag_com
- jl_sdifcoef : used from diag_com
- jl_gwfirst : used from diag_com
- ij_gw1 : used from diag_com
- ij_gw2 : used from diag_com
- ij_gw3 : used from diag_com
- ij_gw4 : used from diag_com
- ij_gw5 : used from diag_com
- ij_gw6 : used from diag_com
- ij_gw7 : used from diag_com
- ij_gw8 : used from diag_com
- ij_gw9 : used from diag_com
- err :
real*8, parameter
- Initial Value
= 1d-20
- t :
real*8, intent(inout), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- 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)
- sz :
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)
- calc_deform :
logical, intent(in)
- ple :
real*8, dimension(LM+1)
- pl :
real*8, dimension(LM)
- mauv :
real*8, dimension(LM)
- dut3 :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- dvt3 :
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)
- tls :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- thls :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- bvs :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- uil :
real*8, dimension(im, lm)
- vil :
real*8, dimension(im, lm)
- tlil :
real*8, dimension(im, lm)
- thil :
real*8, dimension(im, lm)
- bvil :
real*8, dimension(im, lm)
- dujl :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo, lm)
- i :
integer
- ip1 :
integer
- j :
integer
- l :
integer
- n :
integer
- bvfsq :
real*8
- angm :
real*8
- dpt :
real*8
- duang :
real*8
- xy :
real*8
- airx4 :
real*8
- dthr :
real*8
- ranmtn :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- lmax_angm :
integer, dimension(nm)
- lp10 :
integer
- lp2040 :
integer
- lpshr :
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