C $Header: /u/gcmpack/MITgcm/pkg/cfc/CFC.h,v 1.6 2013/06/10 02:51:08 jmc Exp $ C $Name: $ C *==========================================================* C | CFC.h C *==========================================================* COMMON /CFC_2D_FIELDS/ & AtmosP, & pisVel, fIce _RL Atmosp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL pisVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL fIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) COMMON /CFC11_CHEM/ & A1_11,A2_11,A3_11,A4_11, & B1_11,B2_11,B3_11, & A1_12,A2_12,A3_12,A4_12, & B1_12,B2_12,B3_12 _RL A1_11,A2_11,A3_11,A4_11 _RL B1_11,B2_11,B3_11 _RL A1_12,A2_12,A3_12,A4_12 _RL B1_12,B2_12,B3_12 C schmidt number coefficients COMMON /CFC_SCHMIDT_NO/ & sca_11_1, sca_11_2, sca_11_3, sca_11_4, & sca_12_1, sca_12_2, sca_12_3, sca_12_4 _RL sca_11_1, sca_11_2, sca_11_3, sca_11_4 _RL sca_12_1, sca_12_2, sca_12_3, sca_12_4 C-- parameter for CFC forcing and atmospheric CFC time-series interpolation C-- COMMON /CFC_PARAMS_R/ C CFC_forcingPeriod :: record spacing time for CFC forcing (seconds) C CFC_forcingCycle :: periodic-cycle freq for CFC forcing (seconds) C atmCFC_recSepTime :: time spacing between 2 records of atmos CFC [s] C atmCFC_timeOffset :: time offset for atmos CFC (cfcTime = myTime + offSet) C atmCFC_yNorthBnd :: Northern Lat boundary for interpolation [y-unit] C atmCFC_ySouthBnd :: Southern Lat boundary for interpolation [y-unit] C CFC_monFreq :: frequency (s) to monitor CFC COMMON /CFC_PARAMS_R/ & CFC_forcingPeriod, CFC_forcingCycle, & atmCFC_recSepTime, atmCFC_timeOffset, & atmCFC_yNorthBnd, atmCFC_ySouthBnd, & CFC_monFreq _RL CFC_forcingPeriod _RL CFC_forcingCycle _RL atmCFC_recSepTime _RL atmCFC_timeOffset _RL atmCFC_yNorthBnd _RL atmCFC_ySouthBnd _RL CFC_monFreq C-- COMMON /CFC_FILENAMES/ C atmCFC_inpFile :: file name of Atmospheric CFC time series (ASCII file) C CFC_windFile :: file name of wind speeds C CFC_atmospFile :: file name of atmospheric pressure C CFC_iceFile :: file name of seaice fraction COMMON /CFC_FILENAMES/ & atmCFC_inpFile, & CFC_windFile, CFC_atmospFile, CFC_iceFile CHARACTER*(MAX_LEN_FNAM) atmCFC_inpFile CHARACTER*(MAX_LEN_FNAM) CFC_windFile CHARACTER*(MAX_LEN_FNAM) CFC_atmospFile CHARACTER*(MAX_LEN_FNAM) CFC_iceFile C-- COMMON /CFC_LOAD/ C CFC_ldRec :: time-record currently loaded (in temp arrays *[1]) COMMON /CFC_LOAD_I/ CFC_ldRec COMMON /CFC_LOAD/ & wind0, wind1, ice0, ice1, atmosp0, atmosp1 INTEGER CFC_ldRec(nSx,nSy) _RS wind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RS wind1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RS ice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RS ice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|