pkg/aim_v23/com_sflcon.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
                0002
                0003 C--   COMMON /SFLCON/: Constants for surface fluxes (initial. in INPHYS)
                0004 C      FWIND0 = ratio of near-sfc wind to lowest-level wind
                0005 C      FTEMP0 = weight for near-sfc temperature extrapolation (0-1) :
                0006 C               1 : linear extrapolation from two lowest levels
                0007 C               0 : constant potential temperature ( = lowest level)
                0008 C      FHUM0  = weight for near-sfc specific humidity extrapolation (0-1) :
                0009 C               1 : extrap. with constant relative hum. ( = lowest level)
                0010 C               0 : constant specific hum. ( = lowest level)
                0011 C      CDL    = drag coefficient for momentum over land
                0012 C      CDS    = drag coefficient for momentum over sea
                0013 C      CHL    = heat exchange coefficient over land
                0014 C      CHS    = heat exchange coefficient over sea
                0015 C      VGUST  = wind speed for sub-grid-scale gusts
                0016 C      CTDAY  = daily-cycle correction (dTskin/dSSRad)
                0017 C      DTHETA = Potential temp. gradient for stability correction
e749d70ece Jean*0018 C      dTstab = potential temp. increment for stability function derivative
d676f916b2 Jean*0019 C      FSTAB  = Amplitude of stability correction (fraction)
                0020 C      HDRAG  = Height scale for orographic correction
                0021 C      FHDRAG = Amplitude of orographic correction (fraction)
                0022       COMMON /SFLCON/ FWIND0, FTEMP0, FHUM0,
                0023      &                CDL, CDS, CHL, CHS, VGUST, CTDAY,
e749d70ece Jean*0024      &                DTHETA, dTstab, FSTAB, HDRAG, FHDRAG
d676f916b2 Jean*0025       _RL FWIND0, FTEMP0, FHUM0
                0026       _RL CDL, CDS, CHL, CHS, VGUST, CTDAY
e749d70ece Jean*0027       _RL DTHETA, dTstab, FSTAB, HDRAG, FHDRAG
d676f916b2 Jean*0028
                0029 C--   COMMON /SFLFIX/: Time-invariant fields (initial. in SFLSET)
                0030 c     COMMON /SFLFIX/ FOROG
                0031 c     _RL FOROG(NGP)
                0032
                0033 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0034 #endif /* ALLOW_AIM */