C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/cfc/CFC.h,v 1.4 2008/04/09 16:07:41 jmc Exp $
C $Name:  $

C     /==========================================================\
C     | CFC.h                                                |
C     |==========================================================|

       COMMON /CFC_NEEDS/
     &              AtmosCFC11, AtmosCFC12, AtmosP,
     &              pisvel,fice
      _RL  AtmosCFC11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  AtmosCFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _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 atmospheric CFC timseries
      COMMON /CFC_ATMOSDATA/
     &                  ACFC11, ACFC12,
     &                  cfc_yearbeg, cfc_yearend
      _RL ACFC11(100,2)
      _RL ACFC12(100,2)
      INTEGER cfc_yearbeg, cfc_yearend

      COMMON /CFC_LOAD/
     &    wind0, wind1, ice0, ice1, atmosp0, atmosp1
      _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--   COMMON /CFC_FILENAMES/
C  CFC_windFile    :: file name of wind speeds
C  CFC_atmospFile  :: file name of atmospheric pressure
C  CFC_iceFile     :: file name of seaice fraction
C  CFC_forcingPeriod :: periodic forcing parameter specific for cfc (seconds)
C  CFC_forcingCycle  :: periodic forcing parameter specific for cfc (seconds)

      COMMON /CFC_FILENAMES/
     &        CFC_windFile, CFC_atmospFile, CFC_iceFile,
     &        CFC_forcingPeriod, CFC_forcingCycle

      CHARACTER*(MAX_LEN_FNAM) CFC_windFile
      CHARACTER*(MAX_LEN_FNAM) CFC_atmospFile
      CHARACTER*(MAX_LEN_FNAM) CFC_iceFile
      _RL     CFC_forcingPeriod
      _RL     CFC_forcingCycle