| Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
UNRDRAG_COM | File: ATMDYN.f |
Author :
Version:
Subroutines:
Global Variables:
- im : used from resolution
- jm : used from resolution
- r8 :
integer, parameter
- : kind parameter of real*8
Initial Value= selected_real_kind(12)
Used by: | :nonorographic_drag | :orographic_drag |
- z4var :
real, dimension(IM, 2:JM)
- : Subgrid-scale orographic variances multiplied by 4 at uv grids
- 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), allocatable, dimension(:, :)
- : sum of |momentum flux| for all +/-c (kg/m/s^2)
- n_kh :
integer, parameter
- : number of horizontal wavenumbers
Initial Value= 1 - 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 - n_c :
integer, parameter
- : number of C samples in source spectrum
Initial Value= 100 - 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) - c :
real(r8), dimension(N_C, N_Kh)
- : horizontal phase speed grid
- iz0 :
integer, dimension(2:JM)
- : vertical grid index of GW source (function of latitude)
- wavelenth :
real(r8), parameter, dimension(N_Kh)
- : wavelength of included gravity wave
Initial Value= (/100.0_r8/) - n_az :
integer, parameter
- : number of azimuths which is even.
Initial Value= 4 - kh :
real(r8), dimension(N_Kh)
- : horizontal wave number grid
- ah2 :
real(r8), dimension(N_Az)
- : used to compute components of velocity in azimuthal directions
- ah1 :
real(r8), dimension(N_Az)
- : used to compute components of velocity in azimuthal directions
- aln2 :
real(r8), parameter
- : ln(2.0)
Initial Value= 0.69314718055994529_r8 - l_min :
integer
- :