--- MITgcm/pkg/atm_compon_interf/ATMCPL.h 2003/12/15 02:44:47 1.1 +++ MITgcm/pkg/atm_compon_interf/ATMCPL.h 2004/05/21 20:00:48 1.2 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/atm_compon_interf/ATMCPL.h,v 1.1 2003/12/15 02:44:47 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/atm_compon_interf/ATMCPL.h,v 1.2 2004/05/21 20:00:48 jmc Exp $ C $Name: $ C C @@ -16,70 +16,93 @@ C \==========================================================/ C C COMMON /ATM_ATM2CPL_R/ -C HeatFlux - Atmospheric heat flux at lower boundary (W/m^2). Positive flux -C is into atmosphere. +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 uVelGround - Zonal wind speed at the ground (m/s). -C vVelGround - Meridional wind speed at the ground (m/s). 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 Qsensible - Sensible heatflux (W/m^2). -C Qlatent - Latent heatflux (W/m^2). -C Qlongwave - Downward longwave (W/m^2). -C Qshortwave - Upward shortwave (W/m^2). +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 tauXTime - Time period over which flux field has been integrated. -C tauYTime - 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 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 QshortwaveTime - Time period over which term 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/ - & HeatFlux, tauX, tauY, EvMPrFlux, RunOffFlux, - & uVelGround, vVelGround, - & Qsensible, Qlatent, Qlongwave, Qshortwave, - & HeatFluxTime, tauXtime, tauYtime, - & uVelGroundTime, vVelGroundTime, - & EvMPrTime, RunOffTime, - & QsensibleTime, QlatentTime, - & QlongwaveTime, QshortwaveTime + & 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 uVelGround(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL vVelGround(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 Qsensible (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Qlatent (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Qlongwave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Qshortwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL HeatFluxTime(nSx,nSy) - _RL tauXTime(nSx,nSy) - _RL tauYTime(nSx,nSy) - _RL uVelGroundTime(nSx,nSy) - _RL vVelGroundTime(nSx,nSy) - _RL EvMPrTime (nSx,nSy) - _RL RunOffTime(nSx,nSy) - _RL QsensibleTime(nSx,nSy) - _RL QlatentTime(nSx,nSy) - _RL QlongwaveTime(nSx,nSy) - _RL QshortwaveTime(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 Hocn - Ocean depths (m). Hocn==0. => land. -C SSTocn - Ocean surface temperature (oC). Undefined data for land points. +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/ - & Hocn, SSTocn - _RL Hocn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL SSTocn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + & 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)