17 lines
702 B
Plaintext
17 lines
702 B
Plaintext
! $Id: CMN_ISOP,v 1.1 2009/06/09 21:51:53 daven Exp $
|
|
!
|
|
!-----COMMON BLOCKS FOR ISOPRENE
|
|
!
|
|
! NOTES:
|
|
! (1 ) Changed RCS ID tag comment character from "C" to "!" to allow freeform
|
|
! compilation. Also added & continuation characters in column 73
|
|
! to allow header files to be included in F90 freeform files.
|
|
! (bmy, 6/25/02)
|
|
!
|
|
REAL*8 SOPCOEFF,BASEISOP,BASEGRASS,BASEMB
|
|
COMMON /DEPSV9/ &
|
|
! polynomial fitting's coeffcients
|
|
& SOPCOEFF(NPOLY),BASEISOP(MAXIJ,NTYPE), &
|
|
! Added for EMISOP_GRASS and EMISOP_MB (bdf, bmy, 8/1/01)
|
|
& BASEGRASS(MAXIJ),BASEMB(MAXIJ)
|