/[MITgcm]/MITgcm/pkg/atm_compon_interf/ATMCPL.h
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/ATMCPL.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Mon Dec 15 02:44:47 2003 UTC revision 1.3 by jmc, Mon Jun 18 21:28:52 2007 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3  C  C
4  C  C
5  C     /==========================================================\  C     *==========================================================*
6  C     | ATMCPL.h                                                 |  C     | ATMCPL.h
7  C     | o Variables shared between atmos. component to coupler   |  C     | o Variables shared between atmos. component to coupler
8  C     |   layer.                                                 |  C     |   layer.
9  C     |==========================================================|  C     *==========================================================*
10  C     | These variables are used in the atmos component. Grid    |  C     | These variables are used in the atmos component. Grid
11  C     | variables have already been mapped/interpolated to the   |  C     | variables have already been mapped/interpolated to the
12  C     | atmos grid.                                              |  C     | atmos grid.
13  C     | Which variables are exported will depend on the specific |  C     | Which variables are exported will depend on the specific
14  C     | ocean coupling being utilised. The variables             |  C     | ocean coupling being utilised. The variables
15  C     | carried here will need to be customised accordingly.     |  C     | carried here will need to be customised accordingly.
16  C     \==========================================================/  C     *==========================================================*
17  C  C
18  C     COMMON /ATM_ATM2CPL_R/  C     COMMON /ATM_ATM2CPL_R/
19  C     HeatFlux   - Atmospheric heat flux at lower boundary (W/m^2). Positive flux  C     atmSLPr    :: Atmospheric Sea-Level pressure anomaly (Pa=N/m2)
20  C                  is into atmosphere.  C     HeatFlux   :: Atmospheric net surface heat flux (W/m^2) (+=upward).
21  C     tauX       - Atmospheric zonal momentum flux at lower boundary (N/m^2).  C     qShortWave :: net shortwave radiation heat flux (W/m^2) (+=upward).
22    C     qSensible  :: Sensible heatflux (W/m^2).
23    C     qLatent    :: Latent heatflux (W/m^2).
24    C     qLongWave  :: net longwave radiation heat flux  (W/m^2) (+=upward).
25    C     uVelGround :: Zonal wind speed at the ground (m/s).
26    C     vVelGround :: Meridional wind speed at the ground (m/s).
27    C     tauX       :: Atmospheric zonal momentum flux at lower boundary (N/m^2).
28  C                  Same sign as wind. Positive zonal wind is westward.  C                  Same sign as wind. Positive zonal wind is westward.
29  C     tauY       - Atmospheric meridional momentum flux at lower boundary (N/m^2).  C     tauY       :: Atmospheric meridional momentum flux at lower boundary (N/m^2).
30  C                  Same sign as wind. Positive meridional wind is northward.  C                  Same sign as wind. Positive meridional wind is northward.
31  C     uVelGround - Zonal wind speed at the ground (m/s).  C     EvMPrFlux  :: Fresh water flux (=Evap-Precip) on atmos. grid
 C     vVelGround - Meridional wind speed at the ground (m/s).  
 C     EvMPrFlux  - Fresh water flux (=Evap-Precip) on atmos. grid  
32  C                      ( m/s, positive into atmosphere).  C                      ( m/s, positive into atmosphere).
33  C     RunOffFlux - Fresh water flux (=RunOff) on atmos. grid  C     RunOffFlux :: Fresh water flux (=RunOff) on atmos. grid
34  C                      ( m/s, positive is leaving the land bucket)  C                      ( m/s, positive is leaving the land bucket)
35  C     Qsensible  - Sensible heatflux (W/m^2).  C     RunOffEnFx :: Energy carried by RunOff (W/m2) (+=leaving land bucket)
36  C     Qlatent    - Latent heatflux (W/m^2).  C     iceSaltFlx :: salt flux from sea-ice compon. (+=upward=leaving the ocean)
37  C     Qlongwave  - Downward longwave (W/m^2).  C     seaIceMass :: sea-ice mass (kg/m2)
38  C     Qshortwave - Upward shortwave (W/m^2).  C     airCO2     :: atmospheric CO2 (parts by volume)
39  C     HeatFluxTime   - Time period over which flux field has been integrated.  C     sWSpeed    :: surface wind speed (m/s)
40  C     tauXTime       - Time period over which flux field has been integrated.  C     fracIce    :: seaice fraction
41  C     tauYTime       - Time period over which flux field has been integrated.  C     atmSLPrTime    :: Time period over which term has been integrated.
42  C     uVelGroundTime - Time period over which term has been integrated.  C     HeatFluxTime   :: Time period over which flux field has been integrated.
43  C     vVelGroundTime - Time period over which term has been integrated.  C     qShortWaveTime :: Time period over which term has been integrated.
44  C     EvMPrTime      - Time period over which flux field has been integrated.  C     qSensibleTime  :: Time period over which term has been integrated.
45  C     RunOffTime     - Time period over which flux field has been integrated.  C     qLatentTime    :: Time period over which term has been integrated.
46  C     QsensibleTime  - Time period over which term has been integrated.  C     qLongwaveTime  :: Time period over which term has been integrated.
47  C     QlatentTime    - Time period over which term has been integrated.  C     uVelGroundTime :: Time period over which term has been integrated.
48  C     QlongwaveTime  - Time period over which term has been integrated.  C     vVelGroundTime :: Time period over which term has been integrated.
49  C     QshortwaveTime - Time period over which term has been integrated.  C     tauXTime       :: Time period over which flux field has been integrated.
50        COMMON /ATM_ATM2CPL_R/  C     tauYTime       :: Time period over which flux field has been integrated.
51       &                   HeatFlux, tauX, tauY, EvMPrFlux, RunOffFlux,  C     EvMPrTime      :: Time period over which flux field has been integrated.
52       &                   uVelGround, vVelGround,  C     RunOffTime     :: Time period over which flux field has been integrated.
53       &                   Qsensible, Qlatent, Qlongwave, Qshortwave,  C     ROEnFxTime     :: Time period over which term has been integrated.
54       &                   HeatFluxTime, tauXtime, tauYtime,  C     saltFxTime     :: Time period over which term has been integrated.
55       &                   uVelGroundTime, vVelGroundTime,  C     seaIceTime     :: Time period over which term has been integrated.
56       &                   EvMPrTime, RunOffTime,  C     airCO2Time     :: Time period over which term has been integrated.
57       &                   QsensibleTime, QlatentTime,  C     sWSpeedTime    :: Time period over which term has been integrated.
58       &                   QlongwaveTime, QshortwaveTime  C     fracIceTime    :: Time period over which term has been integrated.
59          COMMON /ATM_ATM2CPL_R/
60         &                   atmSLPr, HeatFlux, qShortWave,
61    c    &                   qSensible, qLatent, qLongWave,
62    c    &                   uVelGround, vVelGround,
63         &                   tauX, tauY,
64         &                   EvMPrFlux, RunOffFlux, RunOffEnFx,
65         &                   iceSaltFlx, seaIceMass,
66         &                   airCO2, sWSpeed, fracIce,
67         &                   atmSLPrTime, HeatFluxTime, qShortWaveTime,
68    c    &                   qSensibleTime, qLatentTime, qLongWaveTime,
69    c    &                   uVelGroundTime, vVelGroundTime,
70         &                   tauXtime, tauYtime,
71         &                   EvMPrTime, RunOffTime, ROEnFxTime,
72         &                   saltFxTime, seaIceTime,
73         &                   airCO2Time, sWSpeedTime, fracIceTime
74          _RL  atmSLPr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75        _RL  HeatFlux  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  HeatFlux  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76          _RL  qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77    c     _RL  qSensible (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78    c     _RL  qLatent   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79    c     _RL  qLongWave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80    c     _RL  uVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81    c     _RL  vVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82        _RL  tauX      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  tauX      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83        _RL  tauY      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  tauY      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
       _RL  uVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RL  vVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
84        _RL  EvMPrFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  EvMPrFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
85        _RL  RunOffFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  RunOffFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
86        _RL  Qsensible (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  RunOffEnFx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87        _RL  Qlatent   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  iceSaltFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88        _RL  Qlongwave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  seaIceMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89        _RL  Qshortwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  airCO2    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90        _RL  HeatFluxTime(nSx,nSy)        _RL  sWSpeed   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
91        _RL  tauXTime(nSx,nSy)        _RL  fracIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
92        _RL  tauYTime(nSx,nSy)        _RL  atmSLPrTime   (nSx,nSy)
93        _RL  uVelGroundTime(nSx,nSy)        _RL  HeatFluxTime  (nSx,nSy)
94        _RL  vVelGroundTime(nSx,nSy)        _RL  qShortWaveTime(nSx,nSy)
95        _RL  EvMPrTime (nSx,nSy)  c     _RL  qSensibleTime (nSx,nSy)
96        _RL  RunOffTime(nSx,nSy)  c     _RL  qLatentTime   (nSx,nSy)
97        _RL  QsensibleTime(nSx,nSy)  c     _RL  qLongWaveTime (nSx,nSy)
98        _RL  QlatentTime(nSx,nSy)  c     _RL  uVelGroundTime(nSx,nSy)
99        _RL  QlongwaveTime(nSx,nSy)  c     _RL  vVelGroundTime(nSx,nSy)
100        _RL  QshortwaveTime(nSx,nSy)        _RL  tauXTime      (nSx,nSy)
101          _RL  tauYTime      (nSx,nSy)
102          _RL  EvMPrTime     (nSx,nSy)
103          _RL  RunOffTime    (nSx,nSy)
104          _RL  ROEnFxTime    (nSx,nSy)
105          _RL  saltFxTime    (nSx,nSy)
106          _RL  seaIceTime    (nSx,nSy)
107          _RL  airCO2Time    (nSx,nSy)
108          _RL  sWSpeedTime   (nSx,nSy)
109          _RL  fracIceTime   (nSx,nSy)
110    
111    
 C  
112  C     COMMON /ATM_CPL2ATM_R/  C     COMMON /ATM_CPL2ATM_R/
113  C     Hocn   - Ocean depths (m). Hocn==0. => land.  C     ocMxlD    :: Ocean mixed-layer depth (m). ocMxlD==0. => land.
114  C     SSTocn - Ocean surface temperature (oC). Undefined data for land points.  C     SSTocn    :: Ocean surface temperature (oC). Undefined data for land points.
115        COMMON /ATM_CPL2ATM_R/  C     SSSocn    :: Ocean surface salinity (psu). Undefined data for land points.
116       &                   Hocn, SSTocn  C     vSqocn    :: Ocean surface velocity square (m2/s2).
117        _RL  Hocn   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C     flxCO2ocn :: Ocean flux of CO2 (mol/m2/s).
118        _RL  SSTocn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        COMMON /ATM_CPL2ATM_R/
119         &                   ocMxlD, SSTocn, SSSocn, vSqocn, flxCO2ocn
120          _RL  ocMxlD   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
121          _RL  SSTocn   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
122          _RL  SSSocn   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
123          _RL  vSqocn   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
124          _RL  flxCO2ocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22