Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
UNRDRAG_COM | File: ATMDYN.f |
Author :
Version:
Subroutines:
Global Variables:
- int_days_per_year : used from timeconstants_mod
- im : used from resolution
- jm : used from resolution
- r8 :
integer, parameter
- : kind parameter of real*8
Initial Value= selected_real_kind(12)
Used by: | :init_unrdrag | :nonorographic_drag | :orographic_drag |
- z4var :
real, dimension(IM, 2:JM)
- : Subgrid-scale orographic variances multiplied by 4 at uv grids
Used by: | :init_unrdrag |
- eke_by2 :
real(r8)
- : It is a tunable parameter from Eq.(3.1b) in McFarlane (JAS, 1987).
Initial Value= 5.5E-6_r8
- flag :
integer, parameter
- = 1 for B1 ( peak flux at c0 = 0 )
Initial Value= 0
- bt :
real(r8), dimension(JM, INT_DAYS_PER_YEAR)
- : sum of |momentum flux| for all +/-c (kg/m/s^2)
Used by: | :init_unrdrag |
- n_kh :
integer, parameter
- : number of horizontal wavenumbers
Initial Value= 1
Used by: | :init_unrdrag |
- bm :
real(r8), parameter, dimension(N_Kh)
- : amplitude for the spectrum (m^2/s^2) ~ u'w'
Initial Value= (/0.01_r8/)
- cw :
real(r8), parameter, dimension(N_Kh)
- : half-width for the spectrum in C (m/s)
Initial Value= (/10.0_r8/)
- c_inf :
real(r8), parameter, dimension(N_Kh)
- Initial Value
= -3.0_r8 * Cw
Used by: | :init_unrdrag |
- n_c :
integer, parameter
- : number of C samples in source spectrum
Initial Value= 100
Used by: | :init_unrdrag |
- c_sup :
real(r8), parameter, dimension(N_Kh)
- Initial Value
= 3.0_r8 * Cw
- dc :
real(r8), parameter, dimension(N_Kh)
- : spectral resolution (m/s)
Initial Value= (C_sup - C_inf)
Used by: | :init_unrdrag |
- c :
real(r8), dimension(N_C, N_Kh)
- : horizontal phase speed grid
Used by: | :init_unrdrag |
- iz0 :
integer, dimension(2:JM)
- : vertical grid index of GW source (function of latitude)
Used by: | :init_unrdrag |
- wavelenth :
real(r8), parameter, dimension(N_Kh)
- : wavelength of included gravity wave
Initial Value= (/100.0_r8/)
Used by: | :init_unrdrag |
- n_az :
integer, parameter
- : number of azimuths which is even.
Initial Value= 4
Used by: | :init_unrdrag |
- kh :
real(r8), dimension(N_Kh)
- : horizontal wave number grid
Used by: | :init_unrdrag |
- ah2 :
real(r8), dimension(N_Az)
- : used to compute components of velocity in azimuthal directions
Used by: | :init_unrdrag |
- ah1 :
real(r8), dimension(N_Az)
- : used to compute components of velocity in azimuthal directions
Used by: | :init_unrdrag |
- aln2 :
real(r8), parameter
- : ln(2.0)
Initial Value= 0.69314718055994529_r8
Used by: | :init_unrdrag |
- l_min :
integer
- :
Used by: | :init_unrdrag |