Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
gwdcol | Module: STRAT | File: STRATDYN.f |
Author :
Version:
Declaration:
subroutine gwdcol (ple, pl, mauv)
- grav : used from constant
- rgas : used from constant
- kg2mb : used from constant
- err :
real*8, parameter
- Initial Value
= 1d-20
- h0 :
real*8, parameter
- Initial Value
= 8000.
- xfroud :
real*8, parameter
- Initial Value
= 1.
- rotk :
real*8, parameter
- Initial Value
= 1.5
- rkby3 :
real*8, parameter
- Initial Value
= ROTK*ROTK*ROTK
- ple :
real*8, intent(in), dimension(LM+1)
- pl :
real*8, intent(in), dimension(LM)
- mauv :
real*8, intent(in), dimension(LM)
- dp :
real*8, dimension(LM)
- mub :
real*8, dimension(LM+1, NM)
- mu :
real*8, dimension(NM)
- mu3hold :
real*8
- mu37hold :
real*8
- uedge :
real*8, dimension(lm)
- vedge :
real*8, dimension(lm)
- byfacs :
real*8, dimension(lm)
- wmc :
real*8, dimension(lm)
- dfm :
real*8, dimension(lm)
- dfr :
real*8, dimension(lm)
- dftl :
real*8, dimension(lm)
- ld :
integer, dimension(NM)
- l :
integer
- n :
integer
- ln :
integer
- nmx :
integer
- ld1 :
integer
- ltop :
integer
- lmax :
integer
- u0 :
real*8
- v0 :
real*8
- w0 :
real*8
- bv0 :
real*8
- zvar :
real*8
- p0 :
real*8
- du :
real*8
- dv :
real*8
- dw :
real*8
- cu :
real*8
- clddep :
real*8
- fplume :
real*8
- cldht :
real*8
- wtx :
real*8
- tedge :
real*8
- wmce :
real*8
- bvedge :
real*8
- dfmax :
real*8
- excess :
real*8
- alfa :
real*8
- xdiff :
real*8
- dft :
real*8
- dwt :
real*8
- fdefrm :
real*8
- wsrc :
real*8
- wcheck :
real*8
- dutn :
real*8
- pdn :
real*8
- ydn :
real*8
- fluxud :
real*8
- fluxvd :
real*8
- pup :
real*8
- yup :
real*8
- dx :
real*8
- dlimit :
real*8
- fluxu :
real*8
- fluxv :
real*8
- mdn :
real*8
- mup :
real*8
- mur :
real*8