1 |
jmc |
1.1 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef ALLOW_AIM |
5 |
|
|
|
6 |
|
|
C-- COMMON /VDICON/: Constants for vertical diffusion and shallow convection |
7 |
|
|
C (initial. in INPHYS) |
8 |
|
|
C TRSHC = relaxation time (in hours) for shallow convection |
9 |
|
|
C TRVDI = relaxation time (in hours) for moisture diffusion |
10 |
|
|
C TRVDS = relaxation time (in hours) for super-adiab. conditions |
11 |
|
|
C RHGRAD = maximum gradient of relative humidity (d_RH/d_sigma) |
12 |
|
|
C SEGRAD = minimum gradient of dry static energy (d_DSE/d_phi) |
13 |
|
|
COMMON /VDICON/ TRSHC, TRVDI, TRVDS, RHGRAD, SEGRAD |
14 |
|
|
_RL TRSHC, TRVDI, TRVDS, RHGRAD, SEGRAD |
15 |
|
|
|
16 |
|
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
17 |
|
|
#endif /* ALLOW_AIM */ |