1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_sflcon.h,v 1.1 2002/11/22 17:16:06 jmc Exp $ |
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 dTstab = potential temp. increment for stability function derivative |
22 |
C FSTAB = Amplitude of stability correction (fraction) |
23 |
C HDRAG = Height scale for orographic correction |
24 |
C FHDRAG = Amplitude of orographic correction (fraction) |
25 |
COMMON /SFLCON/ FWIND0, FTEMP0, FHUM0, |
26 |
& CDL, CDS, CHL, CHS, VGUST, CTDAY, |
27 |
& DTHETA, dTstab, FSTAB, HDRAG, FHDRAG |
28 |
_RL FWIND0, FTEMP0, FHUM0 |
29 |
_RL CDL, CDS, CHL, CHS, VGUST, CTDAY |
30 |
_RL DTHETA, dTstab, FSTAB, HDRAG, FHDRAG |
31 |
|
32 |
C-- COMMON /SFLFIX/: Time-invariant fields (initial. in SFLSET) |
33 |
c COMMON /SFLFIX/ FOROG |
34 |
c _RL FOROG(NGP) |
35 |
|
36 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
37 |
#endif /* ALLOW_AIM */ |