Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
get_qaut | Module: | File: CLD_AEROSOLS_Menon_MBLK_MAT_E29q.f |
Author : Surabi Menon
Version:
Declaration:
subroutine get_qaut(l, pl, tl, fcld, wmx, scdncw, rcld, rhow, r6, r6c, qcrit, qaut)
- twopi : used from constant
- grav : used from constant
- by6 : used from constant
- by3 : used from constant
- rgas : used from constant
- tl :
real*8
- wmx :
real*8
- scdncw :
real*8
- qaut :
real*8
- rhow :
real*8
- fcld :
real*8
- rcld :
real*8
- rho :
real*8
- r3c :
real*8
- qcrit :
real*8
- rcr :
real*8
- dynvis :
real*8
- pl :
real*8
- qcr :
real*8
- qau :
real*8
- gama2 :
real*8
- epsi :
real*8
- epsis :
real*8
- betu6 :
real*8
- betd6 :
real*8
- bet6 :
real*8
- cwc :
real*8
- r6c :
real*8
- r6 :
real*8
- qaut1 :
real*8
- qaut2 :
real*8
- bcon :
real*8, parameter
- Initial Value
= 1.15d23
- kap2 :
real*8, parameter
- Initial Value
= 1.9d11
- l :
integer