Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
sdrag | Module: ATMDYN | File: ATMDYN.f |
Author : Original Development Team
Version:
Declaration:
subroutine sdrag(dt1)
- grav : used from constant
- rgas : used from constant
- sha : used from constant
- ls1 : used from resolution
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- itime : used from model_com
- ma : used from atm_com
- u : used from atm_com
- v : used from atm_com
- t : used from atm_com
- pedn : used from atm_com
- pk : used from atm_com
- cosv : used from geom
- imaxj : used from geom
- kmaxj : used from geom
- idij : used from geom
- idjj : used from geom
- rapj : used from geom
- dxyv : used from geom
- dxyn : used from geom
- dxys : used from geom
- rapvs : used from geom
- rapvn : used from geom
- ajl : used from diag_com
- Initial Value
= >ajl_loc
- jl_dudtsdrg : used from diag_com
- x_sdrag : used from dynamics
- csdragl : used from dynamics
- lsdrag : used from dynamics
- lpsdrag : used from dynamics
- ang_sdrag : used from dynamics
- wc_jdrag : used from dynamics
- wmax : used from dynamics
- vsdragl : used from dynamics
- l1_rtau : used from dynamics
- rtau : used from dynamics
- linear_sdrag : used from dynamics
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- dt1 :
real*8, intent(in)
- time step (s)
- l :
integer
- (P)SDRAG lowest level at which SDRAG_lin is applied (near poles)
- dvt :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- change in momentum (kg*m/s)
- dut :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- change in momentum (kg*m/s)
- x :
real*8
- mauv :
real*8
- wl :
real*8
- tl :
real*8
- rho :
real*8
- cdn :
real*8
- mmuv :
real*8, dimension(LM)
- du :
real*8
- i :
integer
- j :
integer
- ip1 :
integer
- k :
integer
- lmax :
integer
- ang_mom :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- is the sum of angular momentun at layers LS1 to LM
- cd_lin :
logical
- wmaxp :
real*8
- =.75*wmax,the imposed limit for stratospheric winds (m/s)
- sum_mmuv :
real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- wmaxj :
real*8
- xjud :
real*8
- j_0 :
integer
- j_1 :
integer
- j_0s :
integer
- j_1s :
integer
- j_0stg :
integer
- j_1stg :
integer
- have_south_pole :
logical
- have_north_pole :
logical