/[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.2 by jmc, Fri May 21 20:00:48 2004 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     atmSLPr    - Atmospheric Sea-Level pressure anomaly (Pa=N/m2)  C     atmSLPr    :: Atmospheric Sea-Level pressure anomaly (Pa=N/m2)
20  C     HeatFlux   - Atmospheric net surface heat flux (W/m^2) (+=upward).  C     HeatFlux   :: Atmospheric net surface heat flux (W/m^2) (+=upward).
21  C     qShortWave - net shortwave radiation heat flux (W/m^2) (+=upward).  C     qShortWave :: net shortwave radiation heat flux (W/m^2) (+=upward).
22  C     qSensible  - Sensible heatflux (W/m^2).  C     qSensible  :: Sensible heatflux (W/m^2).
23  C     qLatent    - Latent heatflux (W/m^2).  C     qLatent    :: Latent heatflux (W/m^2).
24  C     qLongWave  - net longwave radiation heat flux  (W/m^2) (+=upward).  C     qLongWave  :: net longwave radiation heat flux  (W/m^2) (+=upward).
25  C     uVelGround - Zonal wind speed at the ground (m/s).  C     uVelGround :: Zonal wind speed at the ground (m/s).
26  C     vVelGround - Meridional wind speed at the ground (m/s).  C     vVelGround :: Meridional wind speed at the ground (m/s).
27  C     tauX       - Atmospheric zonal momentum flux at lower boundary (N/m^2).  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     EvMPrFlux  - Fresh water flux (=Evap-Precip) on atmos. grid  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     RunOffEnFx - Energy carried by RunOff (W/m2) (+=leaving land bucket)  C     RunOffEnFx :: Energy carried by RunOff (W/m2) (+=leaving land bucket)
36  C     iceSaltFlx - salt flux from sea-ice compon. (+=upward=leaving the ocean)  C     iceSaltFlx :: salt flux from sea-ice compon. (+=upward=leaving the ocean)
37  C     seaIceMass - sea-ice mass (kg/m2)  C     seaIceMass :: sea-ice mass (kg/m2)
38  C     atmSLPrTime    - Time period over which term has been integrated.  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     qShortWaveTime - Time period over which term has been integrated.  C     fracIce    :: seaice fraction
41  C     qSensibleTime  - Time period over which term has been integrated.  C     atmSLPrTime    :: Time period over which term has been integrated.
42  C     qLatentTime    - Time period over which term has been integrated.  C     HeatFluxTime   :: Time period over which flux field has been integrated.
43  C     qLongwaveTime  - Time period over which term has been integrated.  C     qShortWaveTime :: Time period over which term has been integrated.
44  C     uVelGroundTime - Time period over which term has been integrated.  C     qSensibleTime  :: Time period over which term has been integrated.
45  C     vVelGroundTime - Time period over which term has been integrated.  C     qLatentTime    :: Time period over which term has been integrated.
46  C     tauXTime       - Time period over which flux field has been integrated.  C     qLongwaveTime  :: Time period over which term has been integrated.
47  C     tauYTime       - Time period over which flux field has been integrated.  C     uVelGroundTime :: Time period over which term has been integrated.
48  C     EvMPrTime      - Time period over which flux field has been integrated.  C     vVelGroundTime :: Time period over which term has been integrated.
49  C     RunOffTime     - Time period over which flux field has been integrated.  C     tauXTime       :: Time period over which flux field has been integrated.
50  C     ROEnFxTime     - Time period over which term has been integrated.  C     tauYTime       :: Time period over which flux field has been integrated.
51  C     saltFxTime     - Time period over which term has been integrated.  C     EvMPrTime      :: Time period over which flux field has been integrated.
52  C     seaIceTime     - Time period over which term has been integrated.  C     RunOffTime     :: Time period over which flux field has been integrated.
53        COMMON /ATM_ATM2CPL_R/  C     ROEnFxTime     :: Time period over which term has been integrated.
54       &                   atmSLPr, HeatFlux, qShortWave,  C     saltFxTime     :: Time period over which term has been integrated.
55    C     seaIceTime     :: Time period over which term has been integrated.
56    C     airCO2Time     :: Time period over which term has been integrated.
57    C     sWSpeedTime    :: Time period over which term has been integrated.
58    C     fracIceTime    :: Time period over which term has been integrated.
59          COMMON /ATM_ATM2CPL_R/
60         &                   atmSLPr, HeatFlux, qShortWave,
61  c    &                   qSensible, qLatent, qLongWave,  c    &                   qSensible, qLatent, qLongWave,
62  c    &                   uVelGround, vVelGround,  c    &                   uVelGround, vVelGround,
63       &                   tauX, tauY,       &                   tauX, tauY,
64       &                   EvMPrFlux, RunOffFlux, RunOffEnFx,       &                   EvMPrFlux, RunOffFlux, RunOffEnFx,
65       &                   iceSaltFlx, seaIceMass,       &                   iceSaltFlx, seaIceMass,
66       &                   atmSLPrTime, HeatFluxTime, qShortWaveTime,       &                   airCO2, sWSpeed, fracIce,
67         &                   atmSLPrTime, HeatFluxTime, qShortWaveTime,
68  c    &                   qSensibleTime, qLatentTime, qLongWaveTime,  c    &                   qSensibleTime, qLatentTime, qLongWaveTime,
69  c    &                   uVelGroundTime, vVelGroundTime,  c    &                   uVelGroundTime, vVelGroundTime,
70       &                   tauXtime, tauYtime,       &                   tauXtime, tauYtime,
71       &                   EvMPrTime, RunOffTime, ROEnFxTime,       &                   EvMPrTime, RunOffTime, ROEnFxTime,
72       &                   saltFxTime, seaIceTime       &                   saltFxTime, seaIceTime,
73         &                   airCO2Time, sWSpeedTime, fracIceTime
74        _RL  atmSLPr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _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)        _RL  qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 78  c     _RL  vVelGround(1-OLx:sNx+OLx,1-OL Line 86  c     _RL  vVelGround(1-OLx:sNx+OLx,1-OL
86        _RL  RunOffEnFx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  RunOffEnFx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87        _RL  iceSaltFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  iceSaltFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88        _RL  seaIceMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  seaIceMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89          _RL  airCO2    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90          _RL  sWSpeed   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
91          _RL  fracIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
92        _RL  atmSLPrTime   (nSx,nSy)        _RL  atmSLPrTime   (nSx,nSy)
93        _RL  HeatFluxTime  (nSx,nSy)        _RL  HeatFluxTime  (nSx,nSy)
94        _RL  qShortWaveTime(nSx,nSy)        _RL  qShortWaveTime(nSx,nSy)
# Line 93  c     _RL  vVelGroundTime(nSx,nSy) Line 104  c     _RL  vVelGroundTime(nSx,nSy)
104        _RL  ROEnFxTime    (nSx,nSy)        _RL  ROEnFxTime    (nSx,nSy)
105        _RL  saltFxTime    (nSx,nSy)        _RL  saltFxTime    (nSx,nSy)
106        _RL  seaIceTime    (nSx,nSy)        _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     ocMxlD  - Ocean mixed-layer depth (m). ocMxlD==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  C     SSSocn  - Ocean surface salinity (psu). Undefined data for land points.  C     SSSocn    :: Ocean surface salinity (psu). Undefined data for land points.
116  C     vSqocn  - Ocean surface velocity square (m2/s2).  C     vSqocn    :: Ocean surface velocity square (m2/s2).
117        COMMON /ATM_CPL2ATM_R/  C     flxCO2ocn :: Ocean flux of CO2 (mol/m2/s).
118       &                   ocMxlD, SSTocn, SSSocn, vSqocn        COMMON /ATM_CPL2ATM_R/
119        _RL  ocMxlD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &                   ocMxlD, SSTocn, SSSocn, vSqocn, flxCO2ocn
120        _RL  SSTocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  ocMxlD   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
121        _RL  SSSocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  SSTocn   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
122        _RL  vSqocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22