Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:18 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
03c07845ac Jean*0001 C     *==========================================================*
                0002 C     | CFC.h
                0003 C     *==========================================================*
8ac664a04c Step*0004 
2fb4ee83b7 Jean*0005        COMMON /CFC_2D_FIELDS/
                0006      &              AtmosP,
                0007      &              pisVel, fIce
8ac664a04c Step*0008       _RL  Atmosp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
2fb4ee83b7 Jean*0009       _RL  pisVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0010       _RL  fIce  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
8ac664a04c Step*0011 
                0012        COMMON /CFC11_CHEM/
                0013      &              A1_11,A2_11,A3_11,A4_11,
                0014      &              B1_11,B2_11,B3_11,
                0015      &              A1_12,A2_12,A3_12,A4_12,
                0016      &              B1_12,B2_12,B3_12
                0017       _RL A1_11,A2_11,A3_11,A4_11
                0018       _RL B1_11,B2_11,B3_11
                0019       _RL A1_12,A2_12,A3_12,A4_12
                0020       _RL B1_12,B2_12,B3_12
                0021 
                0022 C schmidt number coefficients
9a5cf9751b Jean*0023       COMMON /CFC_SCHMIDT_NO/
8ac664a04c Step*0024      &                    sca_11_1, sca_11_2, sca_11_3, sca_11_4,
                0025      &                    sca_12_1, sca_12_2, sca_12_3, sca_12_4
                0026       _RL sca_11_1, sca_11_2, sca_11_3, sca_11_4
                0027       _RL sca_12_1, sca_12_2, sca_12_3, sca_12_4
                0028 
2fb4ee83b7 Jean*0029 C--   parameter for CFC forcing and atmospheric CFC time-series interpolation
                0030 C--   COMMON /CFC_PARAMS_R/
                0031 C     CFC_forcingPeriod :: record spacing time for CFC forcing (seconds)
                0032 C     CFC_forcingCycle  :: periodic-cycle freq for CFC forcing (seconds)
                0033 C     atmCFC_recSepTime :: time spacing between 2 records of atmos CFC [s]
                0034 C     atmCFC_timeOffset :: time offset for atmos CFC (cfcTime = myTime + offSet)
                0035 C     atmCFC_yNorthBnd  :: Northern Lat boundary for interpolation [y-unit]
                0036 C     atmCFC_ySouthBnd  :: Southern Lat boundary for interpolation [y-unit]
                0037 C     CFC_monFreq       :: frequency (s) to monitor CFC
                0038 
                0039       COMMON /CFC_PARAMS_R/
                0040      &    CFC_forcingPeriod, CFC_forcingCycle,
                0041      &    atmCFC_recSepTime, atmCFC_timeOffset,
                0042      &    atmCFC_yNorthBnd, atmCFC_ySouthBnd,
                0043      &    CFC_monFreq
                0044       _RL CFC_forcingPeriod
                0045       _RL CFC_forcingCycle
                0046       _RL atmCFC_recSepTime
                0047       _RL atmCFC_timeOffset
                0048       _RL atmCFC_yNorthBnd
                0049       _RL atmCFC_ySouthBnd
                0050       _RL CFC_monFreq
                0051 
                0052 C--   COMMON /CFC_FILENAMES/
                0053 C  atmCFC_inpFile  :: file name of Atmospheric CFC time series (ASCII file)
                0054 C  CFC_windFile    :: file name of wind speeds
                0055 C  CFC_atmospFile  :: file name of atmospheric pressure
                0056 C  CFC_iceFile     :: file name of seaice fraction
                0057 
                0058       COMMON /CFC_FILENAMES/
                0059      &        atmCFC_inpFile,
                0060      &        CFC_windFile, CFC_atmospFile, CFC_iceFile
                0061 
                0062       CHARACTER*(MAX_LEN_FNAM) atmCFC_inpFile
                0063       CHARACTER*(MAX_LEN_FNAM) CFC_windFile
                0064       CHARACTER*(MAX_LEN_FNAM) CFC_atmospFile
                0065       CHARACTER*(MAX_LEN_FNAM) CFC_iceFile
8ac664a04c Step*0066 
03c07845ac Jean*0067 C--   COMMON /CFC_LOAD/
                0068 C     CFC_ldRec     :: time-record currently loaded (in temp arrays *[1])
                0069 
                0070       COMMON /CFC_LOAD_I/ CFC_ldRec
9a5cf9751b Jean*0071       COMMON /CFC_LOAD/
                0072      &    wind0, wind1, ice0, ice1, atmosp0, atmosp1
03c07845ac Jean*0073 
                0074       INTEGER CFC_ldRec(nSx,nSy)
81fc45ec7e Davi*0075       _RS wind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0076       _RS wind1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0077       _RS ice0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0078       _RS ice1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0079       _RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0080       _RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0081 
03c07845ac Jean*0082 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|