1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
C- |
#ifdef ALLOW_AIM |
|
C-- /VDICON/: Constants for vertical dif. and sh. conv. (init. in INPHYS) |
|
|
C-- TRVDI = relaxation time (in hours) for moisture diffusion |
|
|
C-- TRSHC = relaxation time (in hours) for shallow convection |
|
5 |
|
|
6 |
|
C-- COMMON /VDICON/: Constants for vertical dif. and sh. conv. |
7 |
|
C (init. in INPHYS) |
8 |
|
C TRVDI = relaxation time (in hours) for moisture diffusion |
9 |
|
C TRSHC = relaxation time (in hours) for shallow convection |
10 |
COMMON /VDICON/ TRVDI, TRSHC |
COMMON /VDICON/ TRVDI, TRSHC |
11 |
|
_RL TRVDI, TRSHC |
12 |
|
|
13 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
14 |
|
#endif /* ALLOW_AIM */ |