/[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.2 by jmc, Fri May 21 20:00:48 2004 UTC
# Line 16  C     | carried here will need to be cus Line 16  C     | carried here will need to be cus
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     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).  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.
 C     uVelGround - Zonal wind speed at the ground (m/s).  
 C     vVelGround - Meridional wind speed at the ground (m/s).  
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     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     atmSLPrTime    - Time period over which term has been integrated.
39  C     HeatFluxTime   - Time period over which flux field has been integrated.  C     HeatFluxTime   - Time period over which flux field has been integrated.
40  C     tauXTime       - Time period over which flux field has been integrated.  C     qShortWaveTime - Time period over which term has been integrated.
41  C     tauYTime       - Time period over which flux field has been integrated.  C     qSensibleTime  - Time period over which term has been integrated.
42    C     qLatentTime    - Time period over which term has been integrated.
43    C     qLongwaveTime  - Time period over which term has been integrated.
44  C     uVelGroundTime - Time period over which term has been integrated.  C     uVelGroundTime - Time period over which term has been integrated.
45  C     vVelGroundTime - Time period over which term has been integrated.  C     vVelGroundTime - Time period over which term has been integrated.
46    C     tauXTime       - Time period over which flux field has been integrated.
47    C     tauYTime       - Time period over which flux field has been integrated.
48  C     EvMPrTime      - Time period over which flux field has been integrated.  C     EvMPrTime      - Time period over which flux field has been integrated.
49  C     RunOffTime     - Time period over which flux field has been integrated.  C     RunOffTime     - Time period over which flux field has been integrated.
50  C     QsensibleTime  - Time period over which term has been integrated.  C     ROEnFxTime     - Time period over which term has been integrated.
51  C     QlatentTime    - Time period over which term has been integrated.  C     saltFxTime     - Time period over which term has been integrated.
52  C     QlongwaveTime  - Time period over which term has been integrated.  C     seaIceTime     - Time period over which term has been integrated.
 C     QshortwaveTime - Time period over which term has been integrated.  
53        COMMON /ATM_ATM2CPL_R/        COMMON /ATM_ATM2CPL_R/
54       &                   HeatFlux, tauX, tauY, EvMPrFlux, RunOffFlux,       &                   atmSLPr, HeatFlux, qShortWave,
55       &                   uVelGround, vVelGround,  c    &                   qSensible, qLatent, qLongWave,
56       &                   Qsensible, Qlatent, Qlongwave, Qshortwave,  c    &                   uVelGround, vVelGround,
57       &                   HeatFluxTime, tauXtime, tauYtime,       &                   tauX, tauY,
58       &                   uVelGroundTime, vVelGroundTime,       &                   EvMPrFlux, RunOffFlux, RunOffEnFx,
59       &                   EvMPrTime, RunOffTime,       &                   iceSaltFlx, seaIceMass,
60       &                   QsensibleTime, QlatentTime,       &                   atmSLPrTime, HeatFluxTime, qShortWaveTime,
61       &                   QlongwaveTime, QshortwaveTime  c    &                   qSensibleTime, qLatentTime, qLongWaveTime,
62    c    &                   uVelGroundTime, vVelGroundTime,
63         &                   tauXtime, tauYtime,
64         &                   EvMPrTime, RunOffTime, ROEnFxTime,
65         &                   saltFxTime, seaIceTime
66          _RL  atmSLPr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
67        _RL  HeatFlux  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  HeatFlux  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68          _RL  qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69    c     _RL  qSensible (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
70    c     _RL  qLatent   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
71    c     _RL  qLongWave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
72    c     _RL  uVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
73    c     _RL  vVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
74        _RL  tauX      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  tauX      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75        _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)  
76        _RL  EvMPrFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  EvMPrFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77        _RL  RunOffFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  RunOffFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78        _RL  Qsensible (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  RunOffEnFx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79        _RL  Qlatent   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  iceSaltFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80        _RL  Qlongwave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  seaIceMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81        _RL  Qshortwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  atmSLPrTime   (nSx,nSy)
82        _RL  HeatFluxTime(nSx,nSy)        _RL  HeatFluxTime  (nSx,nSy)
83        _RL  tauXTime(nSx,nSy)        _RL  qShortWaveTime(nSx,nSy)
84        _RL  tauYTime(nSx,nSy)  c     _RL  qSensibleTime (nSx,nSy)
85        _RL  uVelGroundTime(nSx,nSy)  c     _RL  qLatentTime   (nSx,nSy)
86        _RL  vVelGroundTime(nSx,nSy)  c     _RL  qLongWaveTime (nSx,nSy)
87        _RL  EvMPrTime (nSx,nSy)  c     _RL  uVelGroundTime(nSx,nSy)
88        _RL  RunOffTime(nSx,nSy)  c     _RL  vVelGroundTime(nSx,nSy)
89        _RL  QsensibleTime(nSx,nSy)        _RL  tauXTime      (nSx,nSy)
90        _RL  QlatentTime(nSx,nSy)        _RL  tauYTime      (nSx,nSy)
91        _RL  QlongwaveTime(nSx,nSy)        _RL  EvMPrTime     (nSx,nSy)
92        _RL  QshortwaveTime(nSx,nSy)        _RL  RunOffTime    (nSx,nSy)
93          _RL  ROEnFxTime    (nSx,nSy)
94          _RL  saltFxTime    (nSx,nSy)
95          _RL  seaIceTime    (nSx,nSy)
96    
97  C  C
98  C     COMMON /ATM_CPL2ATM_R/  C     COMMON /ATM_CPL2ATM_R/
99  C     Hocn   - Ocean depths (m). Hocn==0. => land.  C     ocMxlD  - Ocean mixed-layer depth (m). ocMxlD==0. => land.
100  C     SSTocn - Ocean surface temperature (oC). Undefined data for land points.  C     SSTocn  - Ocean surface temperature (oC). Undefined data for land points.
101    C     SSSocn  - Ocean surface salinity (psu). Undefined data for land points.
102    C     vSqocn  - Ocean surface velocity square (m2/s2).
103        COMMON /ATM_CPL2ATM_R/        COMMON /ATM_CPL2ATM_R/
104       &                   Hocn, SSTocn       &                   ocMxlD, SSTocn, SSSocn, vSqocn
105        _RL  Hocn   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  ocMxlD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
106        _RL  SSTocn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  SSTocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
107          _RL  SSSocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
108          _RL  vSqocn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22