1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C-- COMMON /SFLCON/: Constants for surface fluxes (initial. in INPHYS) |
7 |
C FWIND0 = ratio of near-sfc wind to lowest-level wind |
8 |
C FTEMP0 = weight for near-sfc temperature extrapolation (0-1) : |
9 |
C 1 : linear extrapolation from two lowest levels |
10 |
C 0 : constant potential temperature ( = lowest level) |
11 |
C FHUM0 = weight for near-sfc specific humidity extrapolation (0-1) : |
12 |
C 1 : extrap. with constant relative hum. ( = lowest level) |
13 |
C 0 : constant specific hum. ( = lowest level) |
14 |
C CDL = drag coefficient for momentum over land |
15 |
C CDS = drag coefficient for momentum over sea |
16 |
C CHL = heat exchange coefficient over land |
17 |
C CHS = heat exchange coefficient over sea |
18 |
C VGUST = wind speed for sub-grid-scale gusts |
19 |
C CTDAY = daily-cycle correction (dTskin/dSSRad) |
20 |
C DTHETA = Potential temp. gradient for stability correction |
21 |
C FSTAB = Amplitude of stability correction (fraction) |
22 |
C HDRAG = Height scale for orographic correction |
23 |
C FHDRAG = Amplitude of orographic correction (fraction) |
24 |
COMMON /SFLCON/ FWIND0, FTEMP0, FHUM0, |
25 |
& CDL, CDS, CHL, CHS, VGUST, CTDAY, |
26 |
& DTHETA, FSTAB, HDRAG, FHDRAG |
27 |
_RL FWIND0, FTEMP0, FHUM0 |
28 |
_RL CDL, CDS, CHL, CHS, VGUST, CTDAY |
29 |
_RL DTHETA, FSTAB, HDRAG, FHDRAG |
30 |
|
31 |
C-- COMMON /SFLFIX/: Time-invariant fields (initial. in SFLSET) |
32 |
c COMMON /SFLFIX/ FOROG |
33 |
c _RL FOROG(NGP) |
34 |
|
35 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
36 |
#endif /* ALLOW_AIM */ |