Add files via upload

This commit is contained in:
Xuesong (Steve)
2018-08-28 00:43:47 -04:00
committed by GitHub
parent b9acb75507
commit e17feeaad3
96 changed files with 68216 additions and 0 deletions

16
code/CMN_ISOP Normal file
View 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)