Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
unrdrag | Module: | File: ATMDYN.f |
Author :
Version:
Declaration:
subroutine unrdrag (pb, u, v, t, sz, unrdrag_x, unrdrag_y)
- grav : used from constant
- bygrav : used from constant
- kapa : used from constant
- rgas : used from constant
- rapvs : used from geom
- rapvn : used from geom
- ls1 : used from resolution
- psfmpt : used from resolution
- ptop : used from resolution
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- modeleclock : used from model_com
- sig : used from dynamics
- dsig : used from dynamics
- sige : used from dynamics
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_1d
- halo_update : used from domain_decomp_1d
- south : used from domain_decomp_1d
- u :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- v :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- t :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- sz :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- unrdrag_x :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- unrdrag_y :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo, lm)
- pb :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- byrgas :
real(r8), parameter
- Initial Value
= 1.0_r8/rgas
- dkapa :
real(r8), parameter
- Initial Value
= 1.0_r8 - kapa
- g_sq :
real(r8), parameter
- Initial Value
= grav * grav
- bypsfmpt :
real(r8), parameter
- Initial Value
= 1.0_r8/PSFMPT
- t2 :
real(r8), dimension(lm, im, grid%j_strt_halo:grid%j_stop_halo)
- sz2 :
real(r8), dimension(lm, im, grid%j_strt_halo:grid%j_stop_halo)
- pb2 :
real(r8), dimension(im, grid%j_strt_halo:grid%j_stop_halo)
- dp :
real(r8), dimension(lm)
- p_mid :
real(r8), dimension(lm)
- p_edge :
real(r8), dimension(lm+1)
- uc :
real(r8), dimension(lm)
- vc :
real(r8), dimension(lm)
- rho :
real(r8), dimension(lm)
- bvf_sq :
real(r8), dimension(lm)
- drag_x :
real(r8), dimension(lm)
- drag_y :
real(r8), dimension(lm)
- ue :
real(r8), dimension(2:lm)
- ve :
real(r8), dimension(2:lm)
- rhoe :
real(r8), dimension(2:lm)
- bvfe :
real(r8), dimension(2:lm)
- hb :
real(r8), dimension(2:lm)
- u_comp :
real(r8), dimension(2:lm)
- gw :
real(r8), dimension(lm)
- gwf_x :
real(r8), dimension(lm)
- gwf_y :
real(r8), dimension(lm)
- eps :
real(r8)
- : intermittency factor
- bvf_sqe :
real(r8)
- i :
integer
- j :
integer
- l :
integer
- ip1 :
integer
- ikh :
integer
- ic :
integer
- iaz :
integer
- ic0 :
integer
- mc :
integer
- h_4sq :
real
- bypb2 :
real(r8)
- by_dp_sum :
real(r8)
- bsum :
real(r8)
- ugw_s :
real(r8)
- vgw_s :
real(r8)
- u_comp_s :
real(r8)
- sgn :
real(r8)
- x :
real(r8)
- b :
real(r8), dimension(N_C, N_Az, N_kh)
- c_actual :
real(r8), dimension(N_C)
- j_0 :
integer
- j_1 :
integer
- j_0stg :
integer
- j_1stg :
integer
- j_0s :
integer
- j_1s :
integer
- j_0h :
integer
- j_1h :
integer
- have_south_pole :
logical
- have_north_pole :
logical