pkg/aim_v23/com_physvar.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
                0002
2a80e4d00e Jean*0003 C-- Note: Variables which do not need to stay in common block (local var)
                0004 C         are declare locally in each S/R that use them (commented with "cL");
                0005 C         Some variables are not needed at all (commented with single "c").
                0006
d676f916b2 Jean*0007 C--   COMMON /PHYGR1/ : Model variables on gaussian grid (updated in PHYPAR)
                0008 C      UG1     = u-wind
                0009 C      VG1     = v-wind
                0010 C      TG1     = abs. temperature
                0011 C      QG1     = specific humidity (g/kg)
                0012 C      PHIG1   = geopotential
                0013 C      PSLG1   = log. of surface pressure
                0014 C      VsurfSq = Square of surface wind speed (grid position = as T,Q)
                0015 c     COMMON /PHYGR1/ TG1, QG1, Vsurfsq
                0016 c     _RL UG1    (NGP,NLEV)
                0017 c     _RL VG1    (NGP,NLEV)
2a80e4d00e Jean*0018 cL    _RL TG1    (NGP,NLEV)
                0019 cL    _RL QG1    (NGP,NLEV)
d676f916b2 Jean*0020 c     _RL PHIG1  (NGP,NLEV)
                0021 c     _RL PSLG1  (NGP)
2a80e4d00e Jean*0022 cL    _RL VsurfSq(NGP)
d676f916b2 Jean*0023
                0024 C--   COMMON /PHYGR2/ : Diagnosed upper-air variables (updated in PHYPAR)
                0025 C      SE     = dry static energy <- replaced by Pot.Temp.
                0026 C      RH     = relative humidity
                0027 C      QSAT   = saturation specific humidity (g/kg)
                0028 c     COMMON /PHYGR2/ SE, RH, QSAT
                0029       COMMON /PHYGR2/     RH
2a80e4d00e Jean*0030 cL    _RL SE   (NGP,NLEV)
d676f916b2 Jean*0031       _RL RH   (NGP,NLEV,MAX_NO_THREADS)
2a80e4d00e Jean*0032 cL    _RL QSAT (NGP,NLEV)
                0033
d676f916b2 Jean*0034
                0035 C--   COMMON /PHYGR3/ : Diagnosed surface variables (updated in PHYPAR)
                0036 C      PSG    = surface pressure (normalized)
                0037 C      TS     = surface temperature
                0038 C      TSKIN  = skin temperature
                0039 C      U0     = near-surface u-wind
                0040 C      V0     = near-surface v-wind
                0041 C      T0     = near-surface air temperature
                0042 C      Q0     = near-surface specific humidity (g/kg)
                0043 C      CLOUDC = total cloud cover (fraction)
                0044 C      CLTOP  = norm. pressure at cloud top
                0045 c     COMMON /PHYGR3/ PSG, TS, TSKIN,
                0046       COMMON /PHYGR3/      TS, TSKIN, T0, Q0, CLOUDC, CLTOP
2a80e4d00e Jean*0047 cL    _RL PSG   (NGP)
d676f916b2 Jean*0048       _RL TS    (NGP,MAX_NO_THREADS)
                0049       _RL TSKIN (NGP,MAX_NO_THREADS)
                0050 c     _RL U0(NGP), V0(NGP)
                0051       _RL T0    (NGP,MAX_NO_THREADS)
                0052       _RL Q0    (NGP,MAX_NO_THREADS)
                0053       _RL CLTOP (NGP,MAX_NO_THREADS)
                0054       _RL CLOUDC(NGP,MAX_NO_THREADS)
                0055
                0056 C--   COMMON /PHYTEN/ : Physical param. tendencies (updated in PHYPAR)
                0057 C      TT_CNV  =  temperature tendency due to convection
                0058 C      QT_CNV  = sp. humidity tendency due to convection
                0059 C      TT_LSC  =  temperature tendency due to large-scale condensation
                0060 C      QT_LSC  = sp. humidity tendency due to large-scale condensation
                0061 C      TT_RSW  =  temperature tendency due to short-wave radiation
                0062 C      TT_RLW  =  temperature tendency due to long-wave radiation
                0063 C      UT_PBL  =       u-wind tendency due to PBL and diffusive processes
                0064 C      VT_PBL  =       v-wind tendency due to PBL and diffusive processes
                0065 C      TT_PBL  =  temperature tendency due to PBL and diffusive processes
                0066 C      QT_PBL  = sp. humidity tendency due to PBL and diffusive processes
2a80e4d00e Jean*0067       COMMON /PHYTEN/ TT_CNV, QT_CNV, TT_LSC, QT_LSC,
d676f916b2 Jean*0068      &        TT_RSW, TT_RLW, TT_PBL, QT_PBL
                0069       _RL TT_CNV (NGP,NLEV,MAX_NO_THREADS)
                0070       _RL QT_CNV (NGP,NLEV,MAX_NO_THREADS)
                0071       _RL TT_LSC (NGP,NLEV,MAX_NO_THREADS)
                0072       _RL QT_LSC (NGP,NLEV,MAX_NO_THREADS)
                0073       _RL TT_RSW (NGP,NLEV,MAX_NO_THREADS)
                0074       _RL TT_RLW (NGP,NLEV,MAX_NO_THREADS)
                0075 c     _RL UT_PBL (NGP,NLEV,MAX_NO_THREADS)
                0076 c     _RL VT_PBL (NGP,NLEV,MAX_NO_THREADS)
                0077       _RL TT_PBL (NGP,NLEV,MAX_NO_THREADS)
                0078       _RL QT_PBL (NGP,NLEV,MAX_NO_THREADS)
                0079
                0080 C--   COMMON /FLUXES/ : Surface and upper boundary fluxes (updated in PHYPAR)
b3097ed02d Jean*0081 C      PRECNV = convective precipitation  [g/m2/s]
                0082 C      PRECLS = large-scale precipitation [g/m2/s]
                0083 C      EnPrec = energy of precipitation (snow, rain temp) [J/g]
2a80e4d00e Jean*0084 C      CBMF   = cloud-base mass flux
d676f916b2 Jean*0085 C      TSR    = top-of-atm. shortwave radiation (downward)
b3097ed02d Jean*0086 C      SSR    = surf. shortwave radiation (downward) (1:land, 2:sea, 3:sea-ice)
                0087 C      SLR    = surface longwave radiation  (upward) (1:land, 2:sea, 3:sea-ice)
d676f916b2 Jean*0088 C      OLR    = outgoing longwave radiation (upward)
b3097ed02d Jean*0089 C      USTR   = u-stress (1:land, 2:sea, 3:weighted average)
                0090 C      VSTR   = v-stress (1:land, 2:sea, 3:weighted average)
                0091 C      SHF    = sensible heat flux   (1:land, 2:sea, 3:sea-ice)
                0092 C      EVAP   = evaporation [g/m2/s] (1:land, 2:sea, 3:sea-ice)
                0093 C      DRAG   = surface Drag term (= Cd*Rho*|V|) (1:land, 2:sea, 3:sea-ice)
                0094       COMMON /FLUXES/ PRECNV, PRECLS, EnPrec,
                0095      &                CBMF, TSR, SSR, SLR, OLR,
d676f916b2 Jean*0096      &                SHF, EVAP, SPEED0, DRAG
                0097       _RL PRECNV (NGP,MAX_NO_THREADS)
                0098       _RL PRECLS (NGP,MAX_NO_THREADS)
b3097ed02d Jean*0099       _RL EnPrec (NGP,MAX_NO_THREADS)
d676f916b2 Jean*0100       _RL CBMF   (NGP,MAX_NO_THREADS)
                0101       _RL TSR    (NGP,MAX_NO_THREADS)
b3097ed02d Jean*0102       _RL SSR    (NGP,0:3,MAX_NO_THREADS)
                0103       _RL SLR    (NGP,0:3,MAX_NO_THREADS)
d676f916b2 Jean*0104       _RL OLR    (NGP,MAX_NO_THREADS)
                0105 c     _RL USTR   (NGP,3)
                0106 c     _RL VSTR   (NGP,3)
b3097ed02d Jean*0107       _RL SHF    (NGP,0:3,MAX_NO_THREADS)
                0108       _RL EVAP   (NGP,0:3,MAX_NO_THREADS)
d676f916b2 Jean*0109       _RL SPEED0 (NGP,MAX_NO_THREADS)
b3097ed02d Jean*0110       _RL DRAG   (NGP,0:3,MAX_NO_THREADS)
d676f916b2 Jean*0111
35a1a2d964 Jean*0112 #ifdef ALLOW_CLR_SKY_DIAG
e749d70ece Jean*0113 C      TT_SWclr = temp. tendency due to clear-sky short-wave radiation
                0114 C      TSWclr   = top-of-atm. clear-sky shortwave radiation (downward)
                0115 C      SSWclr   = clear-sky surf. (net) shortwave radiation (downward)
                0116 C      TT_LWclr = temp. tendency due to clear-sky long-wave radiation
                0117 C      OLWclr   = clear-sky outgoing longwave radiation (upward)
                0118 C      SLWclr   = clear-sky surf. (net) longwave radiation  (upward)
2a80e4d00e Jean*0119       COMMON /CLRSKYDIAG/
e749d70ece Jean*0120      &                 TT_SWclr, TSWclr, SSWclr,
                0121      &                 TT_LWclr, OLWclr, SLWclr
                0122       _RL TT_SWclr(NGP,NLEV,MAX_NO_THREADS)
                0123       _RL TSWclr  (NGP,MAX_NO_THREADS)
                0124       _RL SSWclr  (NGP,MAX_NO_THREADS)
                0125       _RL TT_LWclr(NGP,NLEV,MAX_NO_THREADS)
                0126       _RL OLWclr  (NGP,MAX_NO_THREADS)
                0127       _RL SLWclr  (NGP,MAX_NO_THREADS)
35a1a2d964 Jean*0128 #endif
e749d70ece Jean*0129
d676f916b2 Jean*0130 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
2a80e4d00e Jean*0131 #endif /* ALLOW_AIM */