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
08a25024dc Jean*0001 #ifndef CFC_SIZE_H
                0002 #define CFC_SIZE_H
                0003 
                0004 CBOP
                0005 C    !ROUTINE: CFC_SIZE.h
                0006 C    !INTERFACE:
                0007 C #include CFC_SIZE.h
                0008 
                0009 C    !DESCRIPTION:
                0010 C Contains CFC tracer array size (number of tracers).
                0011 
                0012 C CFC_Tr_num   :: defines how many CFC tracer are allocated.
                0013       INTEGER CFC_Tr_num
                0014       PARAMETER( CFC_Tr_num = 2 )
                0015 
                0016 C CFC_pTr_i1   :: pTracer index of first CFC tracer
                0017       COMMON /CFC_INDEX/ CFC_pTr_i1
                0018       INTEGER CFC_pTr_i1
                0019 CEOP
                0020 #endif /* CFC_SIZE_H */
                0021 
                0022 CEH3 ;;; Local Variables: ***
                0023 CEH3 ;;; mode:fortran ***
                0024 CEH3 ;;; End: ***