Back to home page

MITgcm

 
 

    


File indexing completed on 2021-04-08 05:12:14 UTC

view on githubraw file Latest commit ba0b0470 on 2021-04-08 01:06:32 UTC
1a1199da4c Jean*0001 C     *==========================================================*
                0002 C     | OCNCPL.h
                0003 C     | o Variables shared between coupling layer and ocean
                0004 C     |   component.
                0005 C     *==========================================================*
                0006 C     | These variables are used in the ocean component. Grid
                0007 C     | variables have already been mapped/interpolated to the
                0008 C     | ocean grid.
                0009 C     | Which variables are exported will depend on the specific
                0010 C     | model coupling being utilised. The variables carried here
                0011 C     | will need to be customised accordingly.
                0012 C     *==========================================================*
90578acae6 Jean*0013 
                0014 C--   fields sent from ATM to OCN:
                0015 
5c0693fa62 Jean*0016 C     COMMON /OCN_CPL2OCN_R/
1a1199da4c Jean*0017 C     landMask   :: Atmosphere land mask (=1 : full land grid-point;
                0018 C                   =0 : full ocean grid-point);
                0019 C                   Used in checking consistency of land/sea regions.
                0020 C     atmSLPr    :: Atmospheric Sea-Level pressure anomaly (Pa=N/m2)
                0021 C     HeatFlux   :: Surface heat flux (W/m2). Positive flux is out of ocean
                0022 C     qShortWave :: net shortwave radiation heat flux (W/m^2) (+=upward).
                0023 C     tauX       :: Zonal      surface wind-stress (N/m^2). Same sign as the
                0024 C                   wind : Zonal  wind is positive for westward flow.
                0025 C     tauY       :: Meridional surface wind-stress (N/m^2). Same sign as the
                0026 C                   wind : Merid. wind is positive for northward flow.
                0027 C     FWFlux     :: Surface flux of fresh water (kg/m2/s). Positive flux
                0028 C                   is out of ocean.
90578acae6 Jean*0029 C     iceSaltFlx :: salt flux from seaice compon. (+=upward=leaving the ocean)
                0030 C     seaIceMass :: seaice mass (kg/m2)
                0031 
5c0693fa62 Jean*0032       COMMON /OCN_CPL2OCN_R/
90578acae6 Jean*0033      &            landMask,
                0034      &            atmSLPr, HeatFlux, qShortWave,
                0035      &            tauX, tauY,
                0036      &            FWFlux,
                0037      &            iceSaltFlx, seaIceMass
1a1199da4c Jean*0038       _RL landMask  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e596558d31 Jean*0039       _RL atmSLPr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0040       _RL HeatFlux  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0041       _RL qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0042       _RL tauX      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0043       _RL tauY      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0044       _RL FWFlux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0045       _RL iceSaltFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0046       _RL seaIceMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90578acae6 Jean*0047 
                0048 #ifdef ALLOW_SALT_PLUME
                0049 C     COMMON /OCN_CPL2SALTPLM_R/
                0050 C     saltPlmFlx_cpl :: salt-plume flux for salt_plume pkg
                0051       COMMON /OCN_CPL2SALTPLM_R/
                0052      &            saltPlmFlx_cpl
                0053       _RL saltPlmFlx_cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0054 #endif /* ALLOW_SALT_PLUME */
                0055 
                0056 #ifdef ALLOW_DIC
                0057 C     COMMON /OCN_CPL2DIC_R/
                0058 C     RunOff_cpl :: Run-Off (kg/m2/s) used for DIC pkg calculations
                0059 C     airCO2     :: atmospheric CO2 (parts by volume)
                0060 C     surfWSpeed :: atmospheric surface wind speed (m/s)
                0061       COMMON /OCN_CPL2DIC_R/
                0062      &                   RunOff_cpl,
                0063      &                   airCO2, surfWSpeed
                0064       _RL RunOff_cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e7c6a47db7 Jeff*0065       _RL airCO2    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0066       _RL surfWSpeed(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90578acae6 Jean*0067 #endif /* ALLOW_DIC */
                0068 
                0069 C--   fields used for multiple purpose:
                0070 #if (defined ALLOW_DIC) || (defined ALLOW_THSICE)
                0071 C     COMMON /OCN_CPL_ICE_R/
                0072 C     sIceFrac_cpl   :: seaice fraction (from external model)
                0073       COMMON /OCN_CPL_ICE_R/
                0074      &            sIceFrac_cpl
                0075       _RL sIceFrac_cpl  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0076 #endif /* ALLOW_DIC or ALLOW_THSICE */
                0077 
                0078 C--   fields sent in both direction:
                0079 #ifdef ALLOW_THSICE
                0080 C     COMMON /OCN_CPL_2WAYS_R/
                0081 C     sIceThick_cpl  :: seaice thickness [m]
                0082 C     sIceSnowH_cpl  :: snow thickness over seaice  [m]
                0083 C     sIceQ1_cpl     :: seaice enthalpy of ice layer 1 [J/kg]
                0084 C     sIceQ2_cpl     :: seaice enthalpy of ice layer 2 [J/kg]
                0085       COMMON /OCN_CPL_2WAYS_R/
                0086      &            sIceThick_cpl, sIceSnowH_cpl, sIceQ1_cpl, sIceQ2_cpl
                0087       _RL sIceThick_cpl (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0088       _RL sIceSnowH_cpl (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0089       _RL sIceQ1_cpl    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0090       _RL sIceQ2_cpl    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0091 #endif /* ALLOW_THSICE */
                0092 
                0093 C--   fields sent from OCN to ATM:
69e21e3ef0 Jean*0094 
5c0693fa62 Jean*0095 C     COMMON /OCN_OCN2CPL_R/
1a1199da4c Jean*0096 C     ocMxlD2cpl :: Ocean mixed-layer depth exported to coupler (m)
                0097 C     SSTocn2cpl :: Ocean surface temperature map exported to
                0098 C                   coupling layer (oC).
ba0b047096 Mart*0099 C     SSSocn2cpl :: Ocean surface salinity exported to coupler (g/kg)
1a1199da4c Jean*0100 C     vSqocn2cpl :: Ocean surface velocity square exported to
                0101 C                   coupler (m2/s2)
90578acae6 Jean*0102 
5c0693fa62 Jean*0103       COMMON /OCN_OCN2CPL_R/
90578acae6 Jean*0104      &            ocMxlD2cpl, SSTocn2cpl, SSSocn2cpl, vSqocn2cpl
e596558d31 Jean*0105       _RL ocMxlD2cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69e21e3ef0 Jean*0106       _RL SSTocn2cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e596558d31 Jean*0107       _RL SSSocn2cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0108       _RL vSqocn2cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90578acae6 Jean*0109 
                0110 #ifdef ALLOW_DIC
                0111 C     COMMON /OCN_DIC2CPL_R/
                0112 C     fluxCO2cpl :: ocean flux of CO2 exported to atm (mol/m2/s)
                0113       COMMON /OCN_DIC2CPL_R/
                0114      &            fluxCO2cpl
e7c6a47db7 Jeff*0115       _RL fluxCO2cpl(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90578acae6 Jean*0116 #endif /* ALLOW_DIC */
6c5a9380b0 Ed H*0117 
                0118 CEH3 ;;; Local Variables: ***
                0119 CEH3 ;;; mode:fortran ***
                0120 CEH3 ;;; End: ***