Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

81
code/CMN_O3 Normal file
View File

@ -0,0 +1,81 @@
! $Id: CMN_O3,v 1.1 2009/06/09 21:51:51 daven Exp $
!-----COMMON BLOCKS FOR ANTHRO EMISSIONS (via SMVGEAR!)-----
!
! 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)
! (2 ) Removed obsolete variables (bmy, 10/25/05)
! (3 ) Add anthropgenic emission species: BENZ, TOLU, XYLE, C2H2, C2H4.
! (tmf, 1/7/09)
!
!
! NOTE: Now NEMPARA = max no. of anthropogenic emissions
! NEMPARB = max no. of biogenic emissions
!
! Rural Emissions: EMISRN = NOx (1:NOXLEVELS), EMISR = all other tracers
! Total Emissions: EMISTN = NOx (1:NOXLEVELS), EMIST = all other tracers
REAL*8 EMISR, EMISRN, EMIST, EMISTN
COMMON /EMIS/
& EMISR(IGLOB,JGLOB,NEMPARA), EMISRN(IGLOB,JGLOB,NOXLEVELS),
& EMIST(IIPAR,JJPAR,NEMPARA), EMISTN(IIPAR,JJPAR,NOXLEVELS)
! Rural Emissions:
! EMISRRN = NOx emissions into sigma levels L=1,NOXEXTENT
! EMISRR = All other tracer emissions into sigma level L=1
REAL*8 EMISRR, EMISRRN
COMMON /EMIS2/
& EMISRR (IIPAR,JJPAR,NEMPARA+NEMPARB),
& EMISRRN(IIPAR,JJPAR,NOXEXTENT )
! Arrays to read emissions from updated merge file :
! NOx, CO, PRPE, C3H8, ALK4, C2H6, ACET, MEK
! NOTE: ALD2 is not emitted in GEIA so we don't need an array for
! it below...but it is emitted in EMEP. It will be saved
! into the EMISRR array for SMVGEAR. (bdf, bmy, 11/1/05)
REAL*4 EMISTNOX,EMISTCO,EMISTETHE,EMISTPRPE,EMISTC2H6, &
& EMISTC3H8,EMISTALK4,EMISTACET,EMISTMEK,EMISTSOX, &
& EMISTBENZ,EMISTTOLU,EMISTXYLE,EMISTC2H4,EMISTC2H2
COMMON/EMIS4/ &
& EMISTNOX (IGLOB,JGLOB,4,2), EMISTETHE(IGLOB,JGLOB ), &
& EMISTCO (IGLOB,JGLOB ), EMISTPRPE(IGLOB,JGLOB ), &
& EMISTC3H8(IGLOB,JGLOB ), EMISTALK4(IGLOB,JGLOB ), &
& EMISTC2H6(IGLOB,JGLOB ), EMISTSOX (IGLOB,JGLOB,4,2), &
& EMISTACET(IGLOB,JGLOB ), EMISTMEK (IGLOB,JGLOB ), &
& EMISTBENZ(IGLOB,JGLOB ), EMISTTOLU(IGLOB,JGLOB ), &
& EMISTXYLE(IGLOB,JGLOB ), EMISTC2H4(IGLOB,JGLOB ), &
& EMISTC2H2(IGLOB,JGLOB )
! Time of day and weekday/weekend scale factors
! NOTE: Now SCNR89 is (3,3) because of the weekday scale factor!!!
REAL*8 TODH, TODN, TODB, SCNR89
COMMON /PLUAD/ TODH(6), TODN(6), TODB(6), SCNR89(3,3)
! IFSCLYR = Year to use for scaling fossil fuel emissions (1985 = no scaling!)
INTEGER FSCALYR
COMMON /FSCAL1/ FSCALYR
! FTOTCO2 = yearly scale factors based on Total Fuel CO2 emissions
! FLIQCO2 = yearly scale factors based on Liquid Fuel CO2 emissions
REAL*4 FTOTCO2, FLIQCO2
COMMON /FSCAL2/ FTOTCO2(IGLOB,JGLOB), FLIQCO2(IGLOB,JGLOB)
! FRACO3, FRACNO = fractions of O3, NO
! SAVEOH, SAVENO, SAVENO3 = array to save OH, NO, & NO3 fields
! SAVENO2 = array to save NO2 fields (rvm, 5/9/00)
! FRACNO2 = fraction of NO2 (rvm, bmy, 2/27/02)
! SAVEHO2 = array to save HO2 fields (rvm, bmy, 2/27/02)
REAL*8 FRACO3, SAVEOH, FRACNO, SAVENO, SAVENO2, SAVENO3
REAL*8 FRACNO2, SAVEHO2
COMMON /FRO3/
& FRACO3(IIPAR,JJPAR,LLPAR),
& SAVEOH(IIPAR,JJPAR,LLPAR),
& FRACNO(IIPAR,JJPAR,LLPAR),
& SAVENO(IIPAR,JJPAR,LLPAR),
& SAVENO2(IIPAR,JJPAR,LLPAR),
& SAVENO3(IIPAR,JJPAR,LLPAR),
& FRACNO2(IIPAR,JJPAR,LLPAR),
& SAVEHO2(IIPAR,JJPAR,LLPAR)