1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim/com_sflcon.h,v 1.2 2001/02/02 21:36:29 adcroft 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 SWMAX = Soil wetness (in mm) corresp. to potential evapotranspiration |
20 |
COMMON /SFLCON/ FWIND0, FTEMP0, FHUM0, |
21 |
& CDL, CDS, CHL, CHS, VGUST, SWMAX |
22 |
_RL FWIND0, FTEMP0, FHUM0 |
23 |
_RL CDL, CDS, CHL, CHS, VGUST, SWMAX |
24 |
|
25 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
26 |
#endif /* ALLOW_AIM */ |