Add files via upload
This commit is contained in:
16
code/CMN_ISOP
Normal file
16
code/CMN_ISOP
Normal file
@ -0,0 +1,16 @@
|
||||
! $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)
|
Reference in New Issue
Block a user