C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/ATMCPL.h,v 1.2 2004/05/21 20:00:48 jmc Exp $
C $Name:  $
C
C
C     /==========================================================\
C     | ATMCPL.h                                                 |
C     | o Variables shared between atmos. component to coupler   |
C     |   layer.                                                 |
C     |==========================================================|
C     | These variables are used in the atmos component. Grid    |
C     | variables have already been mapped/interpolated to the   |
C     | atmos grid.                                              |
C     | Which variables are exported will depend on the specific |
C     | ocean coupling being utilised. The variables             |
C     | carried here will need to be customised accordingly.     |
C     \==========================================================/
C
C     COMMON /ATM_ATM2CPL_R/ 
C     atmSLPr    - Atmospheric Sea-Level pressure anomaly (Pa=N/m2)
C     HeatFlux   - Atmospheric net surface heat flux (W/m^2) (+=upward).
C     qShortWave - net shortwave radiation heat flux (W/m^2) (+=upward).
C     qSensible  - Sensible heatflux (W/m^2).
C     qLatent    - Latent heatflux (W/m^2).
C     qLongWave  - net longwave radiation heat flux  (W/m^2) (+=upward).
C     uVelGround - Zonal wind speed at the ground (m/s).
C     vVelGround - Meridional wind speed at the ground (m/s).
C     tauX       - Atmospheric zonal momentum flux at lower boundary (N/m^2).
C                  Same sign as wind. Positive zonal wind is westward.
C     tauY       - Atmospheric meridional momentum flux at lower boundary (N/m^2).
C                  Same sign as wind. Positive meridional wind is northward.
C     EvMPrFlux  - Fresh water flux (=Evap-Precip) on atmos. grid
C                      ( m/s, positive into atmosphere).
C     RunOffFlux - Fresh water flux (=RunOff) on atmos. grid
C                      ( m/s, positive is leaving the land bucket)
C     RunOffEnFx - Energy carried by RunOff (W/m2) (+=leaving land bucket)
C     iceSaltFlx - salt flux from sea-ice compon. (+=upward=leaving the ocean)
C     seaIceMass - sea-ice mass (kg/m2)
C     atmSLPrTime    - Time period over which term has been integrated.
C     HeatFluxTime   - Time period over which flux field has been integrated.
C     qShortWaveTime - Time period over which term has been integrated.
C     qSensibleTime  - Time period over which term has been integrated.
C     qLatentTime    - Time period over which term has been integrated.
C     qLongwaveTime  - Time period over which term has been integrated.
C     uVelGroundTime - Time period over which term has been integrated.
C     vVelGroundTime - Time period over which term has been integrated.
C     tauXTime       - Time period over which flux field has been integrated.
C     tauYTime       - Time period over which flux field has been integrated.
C     EvMPrTime      - Time period over which flux field has been integrated.
C     RunOffTime     - Time period over which flux field has been integrated.
C     ROEnFxTime     - Time period over which term has been integrated.
C     saltFxTime     - Time period over which term has been integrated.
C     seaIceTime     - Time period over which term has been integrated.
      COMMON /ATM_ATM2CPL_R/ 
     &                   atmSLPr, HeatFlux, qShortWave, 
c    &                   qSensible, qLatent, qLongWave,
c    &                   uVelGround, vVelGround,
     &                   tauX, tauY, 
     &                   EvMPrFlux, RunOffFlux, RunOffEnFx,
     &                   iceSaltFlx, seaIceMass,
     &                   atmSLPrTime, HeatFluxTime, qShortWaveTime, 
c    &                   qSensibleTime, qLatentTime, qLongWaveTime,
c    &                   uVelGroundTime, vVelGroundTime,
     &                   tauXtime, tauYtime,
     &                   EvMPrTime, RunOffTime, ROEnFxTime,
     &                   saltFxTime, seaIceTime
      _RL  atmSLPr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  HeatFlux  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c     _RL  qSensible (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c     _RL  qLatent   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c     _RL  qLongWave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c     _RL  uVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c     _RL  vVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  tauX      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  tauY      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  EvMPrFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  RunOffFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  RunOffEnFx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  iceSaltFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  seaIceMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  atmSLPrTime   (nSx,nSy)
      _RL  HeatFluxTime  (nSx,nSy)
      _RL  qShortWaveTime(nSx,nSy)
c     _RL  qSensibleTime (nSx,nSy)
c     _RL  qLatentTime   (nSx,nSy)
c     _RL  qLongWaveTime (nSx,nSy)
c     _RL  uVelGroundTime(nSx,nSy)
c     _RL  vVelGroundTime(nSx,nSy)
      _RL  tauXTime      (nSx,nSy)
      _RL  tauYTime      (nSx,nSy)
      _RL  EvMPrTime     (nSx,nSy)
      _RL  RunOffTime    (nSx,nSy)
      _RL  ROEnFxTime    (nSx,nSy)
      _RL  saltFxTime    (nSx,nSy)
      _RL  seaIceTime    (nSx,nSy)

C
C     COMMON /ATM_CPL2ATM_R/
C     ocMxlD  - Ocean mixed-layer depth (m). ocMxlD==0. => land.
C     SSTocn  - Ocean surface temperature (oC). Undefined data for land points.
C     SSSocn  - Ocean surface salinity (psu). Undefined data for land points.
C     vSqocn  - Ocean surface velocity square (m2/s2).
      COMMON /ATM_CPL2ATM_R/ 
     &                   ocMxlD, SSTocn, SSSocn, vSqocn
      _RL  ocMxlD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  SSTocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  SSSocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  vSqocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)