Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
STRAT | File: STRATDYN.f |
Author : Bob Suozzo/Jean Lerner
Version:
Subroutines:
- alloc_strat_com
- To allocate arrays whose sizes now need to be determined at
run time
- deform
- DEFORM calculate defomation terms
- dfuseq
- DFUSEQ calculate tridiagonal terms
- getvk
- GETVK calculate vertical diff. coefficient (use high wind shear)
- gwdcol
- gwdrag
- GWDRAG puts a momentum drag in the stratosphere
- init_gwdrag
- init_GWDRAG
- vdiff
- VDIFF Vertical Diffusion in stratosphere
Global Variables:
- im : used from resolution
- jm : used from resolution
- lm : used from resolution
- xcdnst :
real*8, dimension(2), dimension(2)
- parameters for GW drag (in param. database)
Used by: | STRAT:init_gwdrag |
- cshear :
real*8
- parameter for GW shear drag (in param. database)
Initial Value= 1
Used by: | STRAT:init_gwdrag |
- cmtn :
real*8
- parameter for GW MTN drag (in param. database)
Initial Value= .5
Used by: | STRAT:init_gwdrag |
- cdef :
real*8
- parameter for GW DEF drag (in param. database)
Initial Value= 3
Used by: | STRAT:init_gwdrag |
- cmc :
real*8
- parameter for GW M. Convective drag (database if LM<=40)
Initial Value= 2d-7
Used by: | STRAT:init_gwdrag |
- scvmu :
real*8
- parameter to Scale Convective MUs (database if LM>40)
Initial Value= .188d0
Used by: | STRAT:init_gwdrag |
- pbreak :
real*8
- p. level above which GW drag acts (in param. database)
Initial Value= 500.
Used by: | STRAT:init_gwdrag |
- pconpen :
real*8
- level of penetrating moist conv (in param. database)
Initial Value= 400.
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- defthresh :
real*8
- threshold for deformation wave (1/s)
Initial Value= 15d-6
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- pbreaktop :
real*8
- p. level to force GW breaking in top layer
Initial Value= 0.05d0
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- xlimit :
real*8
- per timestep limit on mixing and drag
Initial Value= .1d0
- zwt :
real*8, allocatable, dimension(:, :)
- topographic variance
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- zvary :
real*8, allocatable, dimension(:, :)
- topographic variance
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- zvarx :
real*8, allocatable, dimension(:, :)
- topographic variance
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- zvart :
real*8, allocatable, dimension(:, :)
- topographic variance
Used by: | STRAT:init_gwdrag |
- defrm :
real*8, allocatable, dimension(:, :)
- deformation field
Used by: | STRAT:deform | STRAT:gwdrag | STRAT:vdiff |
- ldefm :
- deformation levels
- ldef :
integer
- deformation levels
Used by: | STRAT:deform | STRAT:init_gwdrag |
- ld2 :
integer
- levels for various GW drag terms
Initial Value= LM
Used by: | STRAT:init_gwdrag |
- lshr :
integer
- levels for various GW drag terms
Used by: | STRAT:init_gwdrag |
- lbreak :
integer
- levels for various GW drag terms
Used by: | STRAT:init_gwdrag |
- qgwmtn :
integer
- =1 turns on GW Mountain Wave drag terms
Initial Value= 1
Used by: | STRAT:init_gwdrag |
- qgwshr :
integer
- =1 turns on GW Shear drag terms
Initial Value= 1
Used by: | STRAT:init_gwdrag |
- qgwdef :
integer
- =1 turns on GW Deformation drag terms
Initial Value= 1
Used by: | STRAT:init_gwdrag |
- qgwcnv :
integer
- =1 turns on GW Convective drag terms
Initial Value= 1
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- lpcnv :
integer
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- ang_gwd :
integer
- =1 ang mom. lost by GWDRAG is added in troposphere
Initial Value= 1
Used by: | STRAT:gwdrag | STRAT:init_gwdrag | STRAT:vdiff |
- nm :
integer, parameter
- number of gravity wave drag sources
Initial Value= 15
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- ekofj :
real*8, allocatable, dimension(:, :)
- wavenumbers as a function of GW source type and latitude J
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
- tl :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- thl :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- rho :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- bvf :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- ul :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- vl :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- dl :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- dut :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- dvt :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- dusdif :
real*8, dimension(lm)
Used by: | STRAT:gwdrag |
- ek :
real*8, dimension(nm)
Used by: | STRAT:gwdrag |
- mu_inc :
real*8, dimension(nm)
Used by: | STRAT:gwdrag |
- mu_top :
real*8, dimension(nm)
Used by: | STRAT:gwdrag |
- ur :
real*8, dimension(nm)
Used by: | STRAT:gwdrag |
- vr :
real*8, dimension(nm)
- cn :
real*8, dimension(nm)
Used by: | STRAT:gwdrag |
- wt :
real*8, dimension(nm)
Used by: | STRAT:gwdrag |
- dugwd :
real*8, dimension(LM, NM)
Used by: | STRAT:gwdrag |
- dtime :
real*8
Used by: | STRAT:gwdrag |
- bydtime :
real*8
Used by: | STRAT:gwdrag |
- coriol :
real*8
Used by: | STRAT:gwdrag |
- ranmtn :
real*8
- airxs :
real*8
Used by: | STRAT:gwdrag |
- zvarx_cell :
real*8
Used by: | STRAT:gwdrag |
- zvary_cell :
real*8
Used by: | STRAT:gwdrag |
- zwt_cell :
real*8
Used by: | STRAT:gwdrag |
- zatmo_cell :
real*8
Used by: | STRAT:gwdrag |
- defrm_cell :
real*8
Used by: | STRAT:gwdrag |
- usrc :
real*8
Used by: | STRAT:gwdrag |
- vsrc :
real*8
- lmc0 :
integer
Used by: | STRAT:gwdrag |
- lmc1 :
integer
Used by: | STRAT:gwdrag |
- ldrag :
integer
Used by: | STRAT:gwdrag |