Back to home page

darwin3

 
 

    


File indexing completed on 2024-12-17 18:33:23 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
2fb4ee83b7 Jean*0001 CBOP
                0002 C     !ROUTINE: CFC_ATMOS.h
                0003 C     !INTERFACE:
                0004 C     #include CFC_ATMOS.h
                0005 
                0006 C     !DESCRIPTION:
                0007 C     Header file defining Atmospheric CFC time series.
                0008 CEOP
                0009 
                0010 C     ACFCrecSize :: maximum length of Atmospheric CFC time series to be loaded
                0011       INTEGER ACFCrecSize
                0012       PARAMETER ( ACFCrecSize = 100 )
                0013 
                0014 C atmospheric CFC timseries
                0015 C     ACFCyear :: calendar year of Atmospheric CFC time series
                0016       COMMON /CFC_ATMOS_R/
                0017      &                  ACFCyear, ACFC11, ACFC12
                0018       _RL ACFCyear(ACFCrecSize)
                0019       _RL ACFC11(ACFCrecSize,2)
                0020       _RL ACFC12(ACFCrecSize,2)
                0021 
                0022 C     ACFCnRec :: current number of records in Atmospheric CFC time series
                0023       INTEGER ACFCnRec
                0024       COMMON /CFC_ATMOS_I/ ACFCnRec
                0025 
                0026 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|