Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
e17feeaad3f23d5f51f4ba6560eafbec9390e681
GEOS-Chem-adjoint-v35-note/code/edgar_mod.f
Xuesong (Steve) e17feeaad3 Add files via upload
2018-08-28 00:43:47 -04:00

2903 lines
103 KiB
Fortran
Raw Blame History

! $Id: edgar_mod.f,v 1.1 2009/06/09 21:51:52 daven Exp $
MODULE EDGAR_MOD
!
!******************************************************************************
! Module EDGAR_MOD contains variables and routines to read anthropogenic
! emissions from the EDGAR inventory for NOx, CO and SO2.
! (avd, bmy, phs, 7/14/06, 3/10/08)
!
! Module Routines:
! ============================================================================
! (1 ) EMISS_EDGAR : Driver program for EDGAR emissions
! (2 ) COMPUTE_EDGAR_NOx : Computes EDGAR NOx emissions
! (3 ) READ_EDGAR_NOx : Reads EDGAR NOx data from disk
! (4 ) SEASCL_EDGAR_NOx : Applies seasonal scale factors to anthro NOx
! (5 ) COMPUTE_EDGAR_CO : Computes EDGAR CO emissions
! (6 ) READ_EDGAR_CO : Reads EDGAR CO data from disk
! (7 ) COMPUTE_EDGAR_SO2 : Computes EDGAR SO2 emissions
! (8 ) READ_EDGAR_SO2 : Reads EDGAR SO2 data from disk
! (9 ) SEASCL_EDGAR_ANTH_SO2 : Applies seasonal scale factors to anthro SO2
! (10) SEASCL_EDGAR_SHIP_SO2 : Applies monthy scale factors to ship SO2
! (11) READ_EDGAR_DATA : Reads an EDGAR data file for a given sector
! (12) ADD_EDGAR_DATA : Sums EDGAR data for several sectors
! (13) GET_EDGAR_NOx : Returns NOx emissions at grid box (I,J)
! (14) GET_EDGAR_CO : Returns CO emissions at grid box (I,J)
! (15) GET_EDGAR_ANTH_SO2 : Returns SOx anth emissions at grid box (I,J)
! (16) GET_EDGAR_SHIP_SO2 : Returns SOx ship emissions at grid box (I,J)
! (17) GET_EDGAR_TODN : Returns NOx time-of-day scale factors at (I,J)
! (18) READ_AROMATICS : Reads EDGAR aromatics emissions from disk
! (19) READ_C2H4 : Reads EDGAR C2H4 emissions from disk
! (20) READ_C2H2 : Reads EDGAR C2H2 emissions from disk
! (21) READ_AROMATICS_05x0666: Reads EDGAR aromatics emissions from disk
! for 0.5x0.666 resolution
! (22) READ_C2H4_05x0666 : Reads EDGAR C2H4 emissions from disk
! for 0.5x0.666 resolution
! (23) READ_C2H2_05x0666 : Reads EDGAR C2H2 emissions from disk
! for 0.5x0.666 resolution
! (24) INIT_EDGAR : Allocates and zeroes module arrays
! (25) CLEANUP_EDGAR : Deallocates module arrays
!
! GEOS-CHEM modules referenced by "edgar_mod.f"
! ============================================================================
! (1 ) bpch2_mod.f : Module w/ routines for binary punch file I/O
! (2 ) directory_mod.f : Module w/ GEOS-CHEM data & met field dirs
! (3 ) error_mod.f : Module w/ I/O error and NaN check routines
! (4 ) file_mod.f : Module w/ file unit numbers and error checks
! (5 ) future_emissions_mod.f: Module w/ routines for IPCC future emissions
! (6 ) grid_mod.f : Module w/ horizontal grid information
! (7 ) logical_mod.f : Module w/ GEOS-CHEM logical switches!
! (8 ) regrid_1x1_mod.f : Module w/ routines to regrid 1x1 data
! (9 ) time_mod.f : Module w/ routines for computing time and date
! (10) scale_anthro_mod.f : Module w/ routines to get annual scale factor
!
! NOTES:
! (1 ) Now pass the unit string to DO_REGRID_G2G_1x1 (bmy, 8/9/06)
! (2 ) Replaced READ_EDGAR_SCALE with GET_ANNUAL_SCALAR and
! GET_ANNAUL_SCALAR_1x1 from SCALE_ANTHRO_MOD (amv, phs, 3/10/08)
! (3 ) Added EDGAR_NOx_SHIP and EDGAR_CO_SHIP variables. Added SHIP flag
! to GET_EDGAR_NOx and GET_EDGAR_CO, so they can be accessed from
! outside the module (5/13/08, phs)
! (4 ) Added subroutines READ_AROMATICS, READ_C2H4 and READ_C2H2 for GLYX
! chemistry. They are PUBLIC routines as they are used by anthroems.f
! (ccc, 3/2/09)
! (5 ) Added subroutines READ_AROMATICS_05x0666, READ_C2H4_05x0666 and
! READ_C2H2_05x0666 for 0.5x0.666 resolution emissions.
! They are PUBLIC routines as they are used by anthroems.f.(ccc, 3/2/09)
!******************************************************************************
!
IMPLICIT NONE
!=================================================================
! MODULE PRIVATE DECLARATIONS -- keep certain internal variables
! and routines from being seen outside "edgar_mod.f"
!=================================================================
! Make everything PRIVATE ...
PRIVATE
! ... except these routines
PUBLIC :: CLEANUP_EDGAR
PUBLIC :: EMISS_EDGAR
PUBLIC :: GET_EDGAR_CO
PUBLIC :: GET_EDGAR_NOx
PUBLIC :: GET_EDGAR_ANTH_SO2
PUBLIC :: GET_EDGAR_SHIP_SO2
PUBLIC :: GET_EDGAR_TODN
PUBLIC :: READ_AROMATICS
PUBLIC :: READ_C2H4
PUBLIC :: READ_C2H2
PUBLIC :: READ_AROMATICS_05x0666
PUBLIC :: READ_C2H4_05x0666
PUBLIC :: READ_C2H2_05x0666
!=================================================================
! MODULE VARIABLES
!=================================================================
! Variables
REAL*8 :: SEC_IN_SEASON
REAL*8 :: SEC_IN_MONTH
REAL*8 :: SEASON_TAU0
REAL*8 :: MONTH_TAU0
CHARACTER(LEN=3) :: SEASON_NAME
CHARACTER(LEN=3) :: MONTH_NAME
! Parameters
INTEGER, PARAMETER :: N_HOURS = 24
REAL*8, PARAMETER :: SEC_IN_DAY = 86400d0
REAL*8, PARAMETER :: SEC_IN_2000 = SEC_IN_DAY * 366d0 ! leapyear
REAL*8, PARAMETER :: XNUMOL_NO2 = 6.0225d23 / 46d-3
REAL*8, PARAMETER :: XNUMOL_CO = 6.0225d23 / 28d-3
REAL*8, PARAMETER :: XNUMOL_SO2 = 6.0225d23 / 64d-3
! Arrays
REAL*8, ALLOCATABLE :: A_CM2(:)
REAL*8, ALLOCATABLE :: EDGAR_NOx(:,:)
REAL*8, ALLOCATABLE :: EDGAR_CO(:,:)
REAL*8, ALLOCATABLE :: EDGAR_SO2(:,:)
REAL*8, ALLOCATABLE :: EDGAR_SO2_SHIP(:,:)
REAL*8, ALLOCATABLE :: EDGAR_NOx_SHIP(:,:)
REAL*8, ALLOCATABLE :: EDGAR_CO_SHIP(:,:)
REAL*8, ALLOCATABLE :: EDGAR_TODN(:,:,:)
!=================================================================
! MODULE ROUTINES -- follow below the "CONTAINS" statement
!=================================================================
CONTAINS
!------------------------------------------------------------------------------
SUBROUTINE EMISS_EDGAR( YEAR, MONTH )
!
!******************************************************************************
! Subroutine EMISS_EDGAR fills emission arrays with emissions based upon
! the EDGAR inventory (avd, bmy, 7/14/06)
!
! Arguments as Input:
! ============================================================================
! (1 ) YEAR (INTEGER) : Compute EDGAR emissions for this year ...
! (2 ) MONTH (INTEGER) : ... and for this month
!
! NOTES:
!******************************************************************************
!
! Reference to F90 modules
USE BPCH2_MOD, ONLY : GET_TAU0
USE LOGICAL_MOD, ONLY : LEDGARCO, LEDGARNOx
USE LOGICAL_MOD, ONLY : LEDGARSHIP, LEDGARSOx
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
INTEGER, INTENT(IN) :: YEAR, MONTH
! Local variables
LOGICAL, SAVE :: FIRST = .TRUE.
INTEGER, SAVE :: YEAR_SAVE = -1
INTEGER, SAVE :: MONTH_SAVE = -1
REAL*8 :: E_NOX(IIPAR,JJPAR)
REAL*8 :: E_NOX_1x1(I1x1,J1x1)
REAL*8 :: E_NOX_HRLY_1x1(I1x1,J1x1)
REAL*8 :: TEMP(I1x1,J1x1,1)
! Days of year 2000
INTEGER :: M(12) = (/ 31, 29, 31, 30, 31, 30,
& 31, 31, 30, 31, 30, 31 /)
! Month names
CHARACTER(LEN=3) :: MON(12) = (/ 'JAN', 'FEB', 'MAR',
& 'APR', 'MAY', 'JUN',
& 'JUL', 'AUG', 'SEP',
& 'OCT', 'NOV', 'DEC' /)
!=================================================================
! EMISS_EDGAR begins here!
!=================================================================
! First-time initialization
IF ( FIRST ) THEN
CALL INIT_EDGAR
FIRST = .FALSE.
ENDIF
! Get variables for this month
SEC_IN_MONTH = M(MONTH) * SEC_IN_DAY
MONTH_NAME = MON(MONTH)
MONTH_TAU0 = GET_TAU0( MONTH, 1, 1985 )
! Get variables for this season
SELECT CASE( MONTH )
CASE( 12, 1, 2 )
SEC_IN_SEASON = ( M(12) + M(1 ) + M(2 ) ) * SEC_IN_DAY
SEASON_NAME = 'DJF'
SEASON_TAU0 = -744d0
CASE( 3, 4, 5 )
SEC_IN_SEASON = ( M(3 ) + M(4 ) + M(5 ) ) * SEC_IN_DAY
SEASON_NAME = 'MAM'
SEASON_TAU0 = 1416d0
CASE( 6, 7, 8 )
SEC_IN_SEASON = ( M(6 ) + M(7 ) + M(8 ) ) * SEC_IN_DAY
SEASON_NAME = 'JJA'
SEASON_TAU0 = 3624d0
CASE( 9, 10, 11 )
SEC_IN_SEASON = ( M(9 ) + M(10) + M(11) ) * SEC_IN_DAY
SEASON_NAME = 'SON'
SEASON_TAU0 = 5832d0
END SELECT
!=================================================================
! CO emissions are read once per year
!=================================================================
IF ( YEAR /= YEAR_SAVE ) THEN
! CO
IF ( LEDGARCO ) THEN
IF ( LEDGARSHIP) THEN
CALL COMPUTE_EDGAR_CO( YEAR, EDGAR_CO, EDGAR_CO_SHIP )
ELSE
CALL COMPUTE_EDGAR_CO( YEAR, EDGAR_CO )
ENDIF
ENDIF
! Reset YEAR_SAVE
YEAR_SAVE = YEAR
ENDIF
!=================================================================
! NOx and SOX are annual emissions. However, we will apply a
! seasonal scale factor to NOx and anthropogenic SO2, and a
! monthly scale factor to ship SO2. So read these every month.
!=================================================================
IF ( MONTH /= MONTH_SAVE ) THEN
!---------------
! prior 3/10/08
! ! NOx
! IF ( LEDGARNOx ) THEN
! CALL COMPUTE_EDGAR_NOX( YEAR, MONTH, EDGAR_NOx )
! ENDIF
!---------------
! Now always read NOX to get TODN (amv, phs, 3/10/08)
IF ( LEDGARSHIP ) THEN
CALL COMPUTE_EDGAR_NOX( YEAR, MONTH,
& EDGAR_NOx, EDGAR_NOx_SHIP )
ELSE
CALL COMPUTE_EDGAR_NOX( YEAR, MONTH,
& EDGAR_NOx )
ENDIF
! SO2
IF ( LEDGARSOx ) THEN
IF ( LEDGARSHIP ) THEN
CALL COMPUTE_EDGAR_SO2( YEAR, MONTH,
& EDGAR_SO2, EDGAR_SO2_SHIP )
ELSE
CALL COMPUTE_EDGAR_SO2( YEAR, MONTH,
& EDGAR_SO2 )
ENDIF
ENDIF
! Reset MONTH_SAVE
MONTH_SAVE = MONTH
ENDIF
!=================================================================
! Print EDGAR emission totals
!=================================================================
CALL EDGAR_TOTAL_Tg( YEAR, MONTH )
!### For Debug
!CALL OUTPUT_TOTAL_2D( 'EDGAR NOx', EDGAR_NOx, 'kg/season' )
!CALL OUTPUT_TOTAL_2D( 'EDGAR CO', EDGAR_CO , 'kg/yr' )
!CALL OUTPUT_TOTAL_2D( 'EDGAR SO2', EDGAR_SO2, 'kg/season' )
! Return to calling program
END SUBROUTINE EMISS_EDGAR
!------------------------------------------------------------------------------
SUBROUTINE COMPUTE_EDGAR_NOx( YEAR, MONTH, E_NOx, E_NOx_SHIP )
!
!******************************************************************************
! Subroutine COMPUTE_EDGAR_NOx computes the total EDGAR NOx emissions
! (summing over several individual sectors) and also the time-of-day
! scale factors for NOx. (avd, bmy, 7/14/06)
!
! EDGAR NOx is read as [kg NO2/yr], then converted to [molec/cm2/s] when
! you call the access function GET_EDGAR_NOx( I, J, MOLEC_CM2_S=.TRUE. )
!
! Arguments as Input:
! ============================================================================
! (1 ) YEAR (INTEGER) : Current year
! (2 ) MONTH (INTEGER) : Current month
!
! Arguments as Output:
! ============================================================================
! (3 ) E_NOX (REAL*4 ) : EDGAR NOx emissions [kg NO2/season]
! (4 ) E_NOX_SHIP (REAL*4 ) : EDGAR NOx ship emissions [kg NO2/season]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
USE LOGICAL_MOD, ONLY : LEDGARSHIP
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
USE TIME_MOD, ONLY : EXPAND_DATE
USE SCALE_ANTHRO_MOD, ONLY : GET_ANNUAL_SCALAR_1x1
! (lzh,02/01/2015) update regridding
USE REGRID_A2A_MOD, ONLY : DO_REGRID_A2A
# include "CMN_SIZE" ! Size parameters
! Arguments
INTEGER, INTENT(IN) :: YEAR, MONTH
REAL*8, INTENT(OUT) :: E_NOX(IIPAR,JJPAR)
REAL*8, INTENT(OUT), OPTIONAL :: E_NOX_SHIP(IIPAR,JJPAR)
! Local variables
INTEGER :: I, J, H, YYYYMMDD
REAL*8 :: E_NOX_1x1(I1x1,J1x1)
REAL*8 :: E_NOX_SHIP_1x1(I1x1,J1x1)
REAL*8 :: E_NOX_HRLY_1x1(I1x1,J1x1,N_HOURS)
REAL*8 :: SC_NOx_1x1(I1x1,J1x1)
REAL*8 :: GEOS_1x1(I1x1,J1x1,1)
REAL*8 :: TEMP_HRLY(IIPAR,JJPAR)
REAL*8 :: TEMP_TOT(IIPAR,JJPAR)
CHARACTER(LEN=255) :: NAME
! (lzh, 02/01/2015)
CHARACTER(LEN=255) :: LLFILENAME
REAL*8 :: INGRID(I1x1,J1x1)
REAL*8 :: OUTGRID(IIPAR,JJPAR)
!=================================================================
! COMPUTE_EDGAR_NOx begins here!
!=================================================================
! Initialize
E_NOx_1x1 = 0d0
E_NOX_HRLY_1x1 = 0d0
GEOS_1x1 = 0d0
SC_NOx_1x1 = 1d0
!----------------------------------
! Read NOx data from disk
!----------------------------------
! Read EDGAR anthro and ship NOx, and hourly NOx [kg NO2/yr]
CALL READ_EDGAR_NOx( E_NOx_1x1, E_NOX_SHIP_1x1, E_NOx_HRLY_1x1 )
!----------------------------------
! Compute NOx hourly scale factors
! (these average out to 1.0)
!----------------------------------
! Regrid anthro emissions to current resolution
!GEOS_1x1(:,:,1) = E_NOx_1x1(:,:)
!CALL DO_REGRID_1x1( 'unitless', GEOS_1x1, TEMP_TOT )
! (lzh,02/01/2015)
! File with lat/lon edges for regridding
LLFILENAME = TRIM( DATA_DIR_1x1) //
& 'MAP_A2A_Regrid_201203/MAP_A2A_latlon_geos1x1.nc'
! Regrid anthro emissions to current resolution
INGRID = E_NOx_1x1(:,:)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, TEMP_TOT, IS_MASS=1,
& netCDF=.TRUE. )
! Loop over hours
DO H = 1, N_HOURS
! Regrid hourly emissions to current resolution
!GEOS_1x1(:,:,1) = E_NOx_HRLY_1x1(:,:,H)
!CALL DO_REGRID_1x1( 'unitless', GEOS_1x1, TEMP_HRLY )
! (lzh,02/01/2015)
INGRID = E_NOx_HRLY_1x1(:,:,H)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, TEMP_HRLY, IS_MASS=1,
& netCDF=.TRUE. )
! Scale factors are just the normalized hourly emissions
DO J = 1, JJPAR
DO I = 1, IIPAR
IF ( TEMP_TOT(I,J) > 0d0 ) THEN
EDGAR_TODN(I,J,H) = TEMP_HRLY(I,J) / TEMP_TOT(I,J)
ELSE
EDGAR_TODN(I,J,H) = 1d0
ENDIF
ENDDO
ENDDO
ENDDO
!----------------------------------
! Scale NOx from 2000 -> this year
!----------------------------------
!------------------
! prior to 3/4/08
! ! Skip scaling if it's 2000
! IF ( YEAR /= 2000 ) THEN
!
! ! Scale factor file
! NAME = 'NOxScalar-YYYY-2000'
!
! ! YYYYMMDD date
! YYYYMMDD = ( MAX( MIN( YEAR, 2002 ), 1985 ) * 10000 ) + 0101
!
! ! Replace YYYY with year
! CALL EXPAND_DATE( NAME, YYYYMMDD, 000000 )
!
! ! Read NOx scale file
! CALL READ_EDGAR_SCALE( NAME, 71, 2000, SC_NOx_1x1 )
!
! ENDIF
!
CALL GET_ANNUAL_SCALAR_1x1( 71, 2000, YEAR, SC_NOx_1x1 )
! Apply scale factors at 1x1
GEOS_1x1(:,:,1) = E_NOx_1x1(:,:) * SC_NOx_1x1(:,:)
!----------------------------------
! Do the regridding
!----------------------------------
! Regrid NOx emissions to current model resolution [kg/yr]
!CALL DO_REGRID_1x1( 'kg/yr', GEOS_1x1, E_NOx )
! (lzh,02/01/2015)
INGRID = GEOS_1x1(:,:,1) !! E_NOx_1x1(:,:)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_NOx = OUTGRID
!----------------------------------
! Scale ship NOX and regrid
!----------------------------------
IF ( LEDGARSHIP ) THEN
! Re-initialize
GEOS_1x1(:,:,:) = 0d0
! Apply scale factors at 1x1
GEOS_1x1(:,:,1) = E_NOX_SHIP_1x1(:,:) * SC_NOX_1x1(:,:)
! Regrid NOX emissions to current model resolution [kg/yr]
!CALL DO_REGRID_1x1( 'kg/yr', GEOS_1x1, E_NOX_SHIP )
! (lzh,02/01/2015)
INGRID = GEOS_1x1(:,:,1) !! E_NOX_SHIP_1x1(:,:)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_NOX_SHIP = OUTGRID
ENDIF
! Return to calling program
END SUBROUTINE COMPUTE_EDGAR_NOx
!------------------------------------------------------------------------------
SUBROUTINE READ_EDGAR_NOx( E_1x1, E_SHIP_1x1, E_HRLY_1x1 )
!
!******************************************************************************
! Subroutine READ_EDGAR_NOx reads EDGAR NOx emissions for the various sectors
! and returns total and hourly emissions. The EDGAR emissions are on the
! GENERIC 1x1 GRID and are regridded to the GEOS 1x1 grid.
! (avd, bmy, 7/14/06, 8/9/06)
!
! Arguments as Output:
! ============================================================================
! (1 ) E_1x1 (REAL*8 ) : Anthro NOx on GEOS 1x1 grid [kg NO2/season]
! (2 ) E_SHIP_1x1 (REAL*8 ) : Ship NOx on GEOS 1x1 grid [kg NO2/season]
! (2 ) E_HRLY_1x1 (REAL*8 ) : Hourly NOx on GEOS 1x1 grid [kg NO2/season]
!
! NOTES:
! (1 ) Now pass the unit string to DO_REGRID_G2G_1x1 (bmy, 8/9/06)
!******************************************************************************
!
! References to F90 modules
USE LOGICAL_MOD, ONLY : LEDGARSHIP
USE REGRID_1x1_MOD, ONLY : DO_REGRID_G2G_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*8, INTENT(OUT) :: E_1x1(I1x1,J1x1)
REAL*8, INTENT(OUT) :: E_SHIP_1x1(I1x1,J1x1)
REAL*8, INTENT(OUT) :: E_HRLY_1x1(I1x1,J1x1,N_HOURS)
! Local variables
INTEGER :: H
REAL*4 :: E_IN(I1x1,J1x1)
REAL*8 :: SC(N_HOURS)
REAL*8 :: T_1x1(I1x1,J1x1-1)
REAL*8 :: T_SHIP_1x1(I1x1,J1x1-1)
REAL*8 :: T_HRLY_1x1(I1x1,J1x1-1,N_HOURS)
!=================================================================
! READ_EDGAR_NOx begins here!
!=================================================================
! Initialize
SC = 0e0
E_IN = 0e0
E_1x1 = 0d0
E_SHIP_1x1 = 0d0
E_HRLY_1x1 = 0d0
T_1x1 = 0d0
T_SHIP_1x1 = 0d0
T_HRLY_1x1 = 0d0
!-----------------------------------------------------------------
! F10 - Industry (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = (/ 0.75d0, 0.75d0, 0.78d0, 0.82d0, 0.88d0, 0.95d0,
& 1.02d0, 1.09d0, 1.16d0, 1.22d0, 1.28d0, 1.30d0,
& 1.22d0, 1.24d0, 1.25d0, 1.16d0, 1.08d0, 1.01d0,
& 0.95d0, 0.90d0, 0.85d0, 0.81d0, 0.78d0, 0.75d0 /)
! Read data
CALL READ_EDGAR_DATA( 'f1000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! F20 - Power Generation (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = (/ 0.79d0, 0.72d0, 0.72d0, 0.71d0, 0.74d0, 0.80d0,
& 0.92d0, 1.08d0, 1.19d0, 1.22d0, 1.21d0, 1.21d0,
& 1.17d0, 1.15d0, 1.14d0, 1.13d0, 1.10d0, 1.07d0,
& 1.04d0, 1.02d0, 1.02d0, 1.01d0, 0.96d0, 0.88d0 /)
! Read data
CALL READ_EDGAR_DATA( 'f2000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! F30 - Conversion (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1e0
! Read data
CALL READ_EDGAR_DATA( 'f3000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! F40 - Residential (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = (/ 0.38d0, 0.36d0, 0.36d0, 0.36d0, 0.37d0, 0.50d0,
& 1.19d0, 1.53d0, 1.57d0, 1.56d0, 1.35d0, 1.16d0,
& 1.07d0, 1.06d0, 1.00d0, 0.98d0, 0.99d0, 1.12d0,
& 1.41d0, 1.52d0, 1.39d0, 1.35d0, 1.00d0, 0.42d0 /)
! Read data
CALL READ_EDGAR_DATA( 'f4000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! F51 - Road Transport (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = (/ 0.19d0, 0.09d0, 0.06d0, 0.05d0, 0.09d0, 0.22d0,
& 0.86d0, 1.84d0, 1.86d0, 1.41d0, 1.24d0, 1.20d0,
& 1.32d0, 1.44d0, 1.45d0, 1.59d0, 2.03d0, 2.08d0,
& 1.51d0, 1.06d0, 0.74d0, 0.62d0, 0.61d0, 0.44d0 /)
! Read data
CALL READ_EDGAR_DATA( 'f5100nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! F54 - Non-Road Land Transport (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = (/ 0.19d0, 0.09d0, 0.06d0, 0.05d0, 0.09d0, 0.22d0,
& 0.86d0, 1.84d0, 1.86d0, 1.41d0, 1.24d0, 1.20d0,
& 1.32d0, 1.44d0, 1.45d0, 1.59d0, 2.03d0, 2.08d0,
& 1.51d0, 1.06d0, 0.74d0, 0.62d0, 0.61d0, 0.44d0 /)
! Read data
CALL READ_EDGAR_DATA( 'f5400nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!------------------------------------------------------------------------------
! NOTE: We don't use EDGAR aircraft data, so comment out. (avd, bmy, 7/14/06)
! !------------------------------------------------
! ! F57 - Aircraft (fuel combustion)
! !------------------------------------------------
! SC(:) = (/ 0.19d0, 0.09d0, 0.06d0, 0.05d0, 0.09d0, 0.22d0,
! & 0.86d0, 1.84d0, 1.86d0, 1.41d0, 1.24d0, 1.20d0,
! & 1.32d0, 1.44d0, 1.45d0, 1.59d0, 2.03d0, 2.08d0,
! & 1.51d0, 1.06d0, 0.74d0, 0.62d0, 0.61d0, 0.44d0 /)
!
! ! Read data
! CALL READ_EDGAR_FILE( 'f5700nox', 1, E_IN )!
!
! ! Add into cumulative arrays
! CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!------------------------------------------------------------------------------
!-----------------------------------------------------------------
! F58 - Shipping (fuel combustion)
!-----------------------------------------------------------------
IF ( LEDGARSHIP ) THEN
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'f5800nox(IEA)', 1, E_IN )
! Add into cumulative arrays
!-------------------------------------------
! prior to 5/13/08
! CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!------------------------------------------
CALL ADD_EDGAR_DATA( E_IN, T_SHIP_1x1 )
ENDIF
!-----------------------------------------------------------------
! F80 - Oil Production (fuel combustion)
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'f8000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! I10 - Iron and Steel Production
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'i1000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! I30 - Chemical Production
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'i3000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! I40 - Cement Production
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'i4000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! I50 - Pulp and Paper Production
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'i5000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! W40 - Waste Incineration
!-----------------------------------------------------------------
! Hourly scale factors
SC(:) = 1d0
! Read data
CALL READ_EDGAR_DATA( 'w4000nox', 1, E_IN )
! Add into cumulative arrays
CALL ADD_EDGAR_DATA( E_IN, T_1x1, SC, T_HRLY_1x1 )
!-----------------------------------------------------------------
! Force a seasonal variation onto the anthropogenic NOx emissions
! by applying seasonal scale factors. The scale factors are the
! ratio of (seasonal GEIA NOx / annual GEIA NOx).
!
! The emissions on which these scale factors are based are
! defined on the GENERIC 1 x 1 GRID, so apply scale factors
! BEFORE regridding!
!-----------------------------------------------------------------
! Convert [kg NO2/yr] to [kg NO2/season]
CALL SEASCL_EDGAR_NOx( T_1x1, T_SHIP_1x1, T_HRLY_1x1 )
!-----------------------------------------------------------------
! Regrid from GENERIC 1x1 grid to GEOS 1x1 grid
!-----------------------------------------------------------------
! Total NOx [kg NO2/season]
CALL DO_REGRID_G2G_1x1( 'kg/season', T_1x1, E_1x1 )
CALL DO_REGRID_G2G_1x1( 'kg/season', T_SHIP_1x1, E_SHIP_1x1 )
! Hourly NOx [kg NO2/season]
DO H = 1, N_HOURS
CALL DO_REGRID_G2G_1x1( 'kg/season', T_HRLY_1x1(:,:,H),
& E_HRLY_1x1(:,:,H) )
ENDDO
! Return to calling program
END SUBROUTINE READ_EDGAR_NOx
!------------------------------------------------------------------------------
SUBROUTINE SEASCL_EDGAR_NOx( E_NOx_1x1, E_NOx_SHIP_1x1,
& E_NOx_HRLY_1x1 )
!
!******************************************************************************
! Subroutine SEASCL_EDGAR_NOx applies seasonal scale factors (computed
! as the ratio of seasonal/total GEIA NOx emissions) to the annual EDGAR
! anthropogenic NOx emissions. This is required to impose a seasonality
! onto the EDGAR NOx emissions, which are reported as per year.
! (avd, bmy, 7/14/06)
!
! NOTE: NOx scale factors are on the GENERIC 1x1 GRID.
!
! Arguments as Input:
! ============================================================================
! (1 ) E_NOx_1x1 (REAL*8 ) : Anthro NOx 1x1 array [kg NO2/yr]
! (2 ) E_NOx_1x1 (REAL*8 ) : Anthro NOx 1x1 hourly array [kg NO2/yr]
! (3 ) E_NOx_SHIP_1x1 (REAL*8 ) : Ship NOx 1x1 array [kg NO2/yr]
!
! Arguments as Output:
! ============================================================================
! (1 ) E_NOx_1x1 (REAL*8 ) : Anthro NOx 1x1 array [kg NO2/season]
! (2 ) E_NOx_1x1 (REAL*8 ) : Anthro NOx 1x1 hourly array [kg NO2/season]
! (3 ) E_NOx_SHIP_1x1 (REAL*8 ) : Ship NOx 1x1 array [kg NO2/yr]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD, ONLY : READ_BPCH2
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*8, INTENT(INOUT) :: E_NOx_1x1(I1x1,J1x1-1)
REAL*8, INTENT(INOUT) :: E_NOx_SHIP_1x1(I1x1,J1x1-1)
REAL*8, INTENT(INOUT) :: E_NOx_HRLY_1x1(I1x1,J1x1-1,N_HOURS)
! Local variables
INTEGER :: H
REAL*4 :: ARRAY(I1x1,J1x1-1,1)
REAL*8 :: THIS_TAU
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! SEASCL_EDGAR_NOx begins here!
!=================================================================
! File name
FILENAME = TRIM( DATA_DIR_1x1 ) //
& 'EDGAR_200607/NOx/anth_NOx_scale.' // SEASON_NAME //
& '.generic.1x1'
! Echo info
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( ' - SEASCL_EDGAR_NOx: Reading ', a )
! Read scale factor data [unitless]
CALL READ_BPCH2( FILENAME, 'EDGAR-2D', 71,
& SEASON_TAU0, I1x1, J1x1-1,
& 1, ARRAY, QUIET=.TRUE. )
! Apply seasonal scale factors to anthro and ship NOx
E_NOx_1x1(:,:) = E_NOx_1x1(:,:) * ARRAY(:,:,1)
E_NOx_SHIP_1x1(:,:) = E_NOx_SHIP_1x1(:,:) * ARRAY(:,:,1)
! Apply seasonal scale factors to hourly anthro NOx
DO H = 1, N_HOURS
E_NOx_HRLY_1x1(:,:,H) = E_NOx_HRLY_1x1(:,:,H) * ARRAY(:,:,1)
ENDDO
! Return to calling program
END SUBROUTINE SEASCL_EDGAR_NOx
!------------------------------------------------------------------------------
SUBROUTINE COMPUTE_EDGAR_CO( YEAR, E_CO, E_CO_SHIP )
!
!******************************************************************************
! Subroutine COMPUTE_EDGAR_CO computes the total EDGAR CO emissions, summing
! over several individual sectors. (avd, bmy, 7/14/06)
!
! EDGAR CO is read as [kg CO/yr], then converted to [molec/cm2/s] when you
! call the access function GET_EDGAR_CO( I, J, MOLEC_CM2_S=.TRUE. )
!
! Arguments as Input:
! ============================================================================
! (1 ) YEAR (INTEGER) : Current year
!
! Arguments as Output:
! ============================================================================
! (2 ) E_CO (REAL*4 ) : EDGAR CO emissions [kg CO/year]
! (3 ) E_CO_SHIP (REAL*4 ) : EDGAR CO shipping emissions [kg CO/year]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
USE LOGICAL_MOD, ONLY : LEDGARSHIP
USE TIME_MOD, ONLY : EXPAND_DATE
USE SCALE_ANTHRO_MOD, ONLY : GET_ANNUAL_SCALAR_1x1
USE REGRID_A2A_MOD, ONLY : DO_REGRID_A2A ! (lzh,02/01/2015)
# include "CMN_SIZE" ! Size parameters
! Arguments
INTEGER, INTENT(IN) :: YEAR
REAL*8, INTENT(OUT) :: E_CO(IIPAR,JJPAR)
REAL*8, INTENT(OUT), OPTIONAL :: E_CO_SHIP(IIPAR,JJPAR)
! Local variables
INTEGER :: I, J, H, YYYYMMDD
REAL*8 :: E_CO_1x1(I1x1,J1x1)
REAL*8 :: E_CO_SHIP_1x1(I1x1,J1x1)
REAL*8 :: SC_CO_1x1(I1x1,J1x1)
REAL*8 :: GEOS_1x1(I1x1,J1x1,1)
CHARACTER(LEN=255) :: NAME
! (lzh, 02/01/2015)
CHARACTER(LEN=255) :: LLFILENAME
REAL*8 :: INGRID(I1x1,J1x1)
REAL*8 :: OUTGRID(IIPAR,JJPAR)
!=================================================================
! COMPUTE_EDGAR_CO begins here!
!=================================================================
! Initialize
GEOS_1x1(:,:,:) = 0e0
SC_CO_1x1(:,:) = 1e0
!----------------------------------
! Read CO data from disk
!----------------------------------
! Read EDGAR total NOx and hourly NOx [kg/yr]
CALL READ_EDGAR_CO( E_CO_1x1, E_CO_SHIP_1x1 )
!----------------------------------
! Scale CO from 2000 -> this year
!----------------------------------
!-------------------
! prior 3/4/08
! ! Skip scaling if it's 2000
! IF ( YEAR /= 2000 ) THEN
!
! ! Scale factor file
! NAME = 'COScalar-YYYY-2000'
!
! ! YYYYMMDD date
! YYYYMMDD = ( MAX( MIN( YEAR, 2002 ), 1985 ) * 10000 ) + 0101
!
! ! Replace YYYY with year
! CALL EXPAND_DATE( NAME, YYYYMMDD, 000000 )
!
! ! Read CO scale file
! CALL READ_EDGAR_SCALE( NAME, 72, 2000, SC_CO_1x1 )
!
! ENDIF
!-------------------
CALL GET_ANNUAL_SCALAR_1x1( 72, 2000, YEAR, SC_CO_1x1 )
! Apply scale factors at 1x1
GEOS_1x1(:,:,1) = E_CO_1x1(:,:) * SC_CO_1x1(:,:)
!----------------------------------
! Do the regridding
!----------------------------------
! Regrid CO emissions to current model resolution [kg/yr]
!CALL DO_REGRID_1x1( 'kg/yr', GEOS_1x1, E_CO )
! (lzh,02/01/2015)
! File with lat/lon edges for regridding
LLFILENAME = TRIM( DATA_DIR_1x1) //
& 'MAP_A2A_Regrid_201203/MAP_A2A_latlon_geos1x1.nc'
! Regrid anthro emissions to current resolution
INGRID = GEOS_1x1(:,:,1) !! E_NOx_1x1(:,:)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_CO = OUTGRID
!----------------------------------
! Scale ship CO and regrid
!----------------------------------
IF ( LEDGARSHIP ) THEN
! Re-initialize
GEOS_1x1(:,:,:) = 0d0
! Apply scale factors at 1x1
GEOS_1x1(:,:,1) = E_CO_SHIP_1x1(:,:) * SC_CO_1x1(:,:)
! Regrid CO emissions to current model resolution [kg/yr]
!CALL DO_REGRID_1x1( 'kg/yr', GEOS_1x1, E_CO_SHIP )
! (lzh, 02/01/2015)
INGRID = GEOS_1x1(:,:,1)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_CO_SHIP = OUTGRID
ENDIF
! Return to calling program
END SUBROUTINE COMPUTE_EDGAR_CO
!------------------------------------------------------------------------------
SUBROUTINE READ_EDGAR_CO( E_CO_1x1, E_CO_SHIP_1x1 )
!
!******************************************************************************
! Subroutine READ_EDGAR_CO reads EDGAR CO emissions for the various sectors
! and returns total and hourly emissions. The EDGAR emissions are on the
! GENERIC 1x1 GRID and are regridded to the GEOS 1x1 grid.
! (avd, bmy, 7/14/06, 8/9/06)
!
! Arguments as Output:
! ============================================================================
! (1 ) E_CO_1x1 (REAL*4) : Total EDGAR CO emissions on GEOS 1x1 grid [kg/yr]
!
! NOTES:
! (1 ) Now pass the unit string to DO_REGRID_G2G_1x1 (bmy, 8/9/06)
!******************************************************************************
!
! Reference to F90 modules
USE LOGICAL_MOD, ONLY : LEDGARSHIP
USE REGRID_1x1_MOD, ONLY : DO_REGRID_G2G_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*8, INTENT(OUT) :: E_CO_1x1(I1x1,J1x1)
REAL*8, INTENT(OUT) :: E_CO_SHIP_1x1(I1x1,J1x1)
! Local variables
REAL*4 :: E_IN(I1x1,J1x1-1)
REAL*8 :: T_CO_1x1(I1x1,J1x1-1)
REAL*8 :: T_CO_SHIP_1x1(I1x1,J1x1-1)
!=================================================================
! READ_EDGAR_CO begins here!
!=================================================================
! Initialize
E_IN = 0e0
E_CO_1x1 = 0d0
E_CO_SHIP_1x1 = 0d0
T_CO_1x1 = 0d0
T_CO_SHIP_1x1 = 0d0
!------------------------------------------------
! Compute total CO for all sectors
!------------------------------------------------
! F10 - Industrial (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f1000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F20 - Power Generation (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f2000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F30 - Conversion (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f3000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F40 - Residential + Commercial + Other (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f4000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F51 - Road Transport (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f5100co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F54 - Land (Non-Road) Transport (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f5400co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F57 - Air Transport (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f5700co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! F58 - Shipping (fossil fuel combustion)
IF ( LEDGARSHIP ) THEN
CALL READ_EDGAR_DATA( 'f5800co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_SHIP_1x1 )
ENDIF
! F80 - Oil Production (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f8000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! I10 - Iron and Steel Production
CALL READ_EDGAR_DATA( 'i1000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! I20 - Non-Ferrous Production
CALL READ_EDGAR_DATA( 'i2000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! I50 - Pulp and Paper Production
CALL READ_EDGAR_DATA( 'i5000co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
! W40 - Waste Incineration
CALL READ_EDGAR_DATA( 'w4095co', 4, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_CO_1x1 )
!------------------------------------------------
! Regrid from GENERIC 1x1 GRID to GEOS 1x1 GRID
!------------------------------------------------
! Anthro CO [kg/yr]
CALL DO_REGRID_G2G_1x1( 'kg/yr', T_CO_1x1, E_CO_1x1 )
! Ship CO [kg/yr]
CALL DO_REGRID_G2G_1x1( 'kg/yr', T_CO_SHIP_1x1, E_CO_SHIP_1x1 )
! Return to calling program
END SUBROUTINE READ_EDGAR_CO
!------------------------------------------------------------------------------
SUBROUTINE COMPUTE_EDGAR_SO2( YEAR, MONTH, E_SO2, E_SO2_SHIP )
!
!******************************************************************************
! Subroutine COMPUTE_EDGAR_SO2 computes the total EDGAR SO2 emissions
! (summing over several individual sectors) and also the time-of-day scale
! factors for SO2. (avd, bmy, 7/14/06)
!
! EDGAR anthropogenic SO2 is read as [kg SO2/yr], then converted to [kg/s]
! when you call the access functions GET_EDGAR_ANTH_SO2( I, J, KG_S=.TRUE. )
! and GET_EDGAR_ANTH_SO2( I, J, KG_S=.TRUE. )
!
! Arguments as Input:
! ============================================================================
! (1 ) YEAR (INTEGER) : Current year
! (2 ) MONTH (INTEGER) : Current month
!
! Arguments as Output:
! ============================================================================
! (3 ) E_SO2 (REAL*4 ) : EDGAR anthropogenic SO2 emissions
! (4 ) E_SO2_SHIP (REAL*4 ) : EDGAR ship exhaust SO2 emissions
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
USE LOGICAL_MOD, ONLY : LEDGARSHIP
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
USE TIME_MOD, ONLY : EXPAND_DATE
USE SCALE_ANTHRO_MOD, ONLY : GET_ANNUAL_SCALAR_1x1
USE REGRID_A2A_MOD, ONLY : DO_REGRID_A2A ! (lzh,02/01/2015)
# include "CMN_SIZE" ! Size parameters
! Arguments
INTEGER, INTENT(IN) :: YEAR, MONTH
REAL*8, INTENT(OUT) :: E_SO2(IIPAR,JJPAR)
REAL*8, INTENT(OUT), OPTIONAL :: E_SO2_SHIP(IIPAR,JJPAR)
! Local variables
INTEGER :: I, J, H, YYYYMMDD
REAL*8 :: E_SO2_1x1(I1x1,J1x1)
REAL*8 :: E_SO2_SHIP_1x1(I1x1,J1x1)
REAL*8 :: SC_SO2_1x1(I1x1,J1x1)
REAL*8 :: GEOS_1x1(I1x1,J1x1,1)
CHARACTER(LEN=255) :: NAME
! (lzh, 02/01/2015)
CHARACTER(LEN=255) :: LLFILENAME
REAL*8 :: INGRID(I1x1,J1x1)
REAL*8 :: OUTGRID(IIPAR,JJPAR)
!=================================================================
! COMPUTE_EDGAR_SO2 begins here!
!=================================================================
! Initialize
GEOS_1x1(:,:,:) = 0d0
SC_SO2_1x1(:,:) = 1d0
!----------------------------------
! Read SO2 data from disk
!----------------------------------
! Read EDGAR anthro SO2 and ship SO2
CALL READ_EDGAR_SO2( E_SO2_1x1, E_SO2_SHIP_1x1 )
!----------------------------------
! Scale SO2 from 2000 -> this year
!----------------------------------
!----------------
! prior to 3/10/08
! ! Skip scaling if it's 2000
! IF ( YEAR /= 2000 ) THEN
!
! ! Scale factor file
! NAME = 'SOxScalar-YYYY-2000'
!
! ! YYYYMMDD date
! YYYYMMDD = ( MAX( MIN( YEAR, 2002 ), 1998 ) * 10000 ) + 0101
!
! ! Replace YYYY with year
! CALL EXPAND_DATE( NAME, YYYYMMDD, 000000 )
!
! ! Read SO2 scale file
! CALL READ_EDGAR_SCALE( NAME, 73, 2000, SC_SO2_1x1 )
!
! ENDIF
CALL GET_ANNUAL_SCALAR_1x1( 73, 2000, YEAR, SC_SO2_1x1 )
!----------------------------------
! Scale anthro SO2 and regrid
!----------------------------------
! Apply scale factors at 1x1
GEOS_1x1(:,:,1) = E_SO2_1x1(:,:) * SC_SO2_1x1(:,:)
! Regrid SO2 emissions to current model resolution [kg/yr]
!CALL DO_REGRID_1x1( 'kg/yr', GEOS_1x1, E_SO2 )
! (lzh, 02/01/2015)
! File with lat/lon edges for regridding
LLFILENAME = TRIM( DATA_DIR_1x1) //
& 'MAP_A2A_Regrid_201203/MAP_A2A_latlon_geos1x1.nc'
INGRID = GEOS_1x1(:,:,1)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_SO2 = OUTGRID
!----------------------------------
! Scale ship SO2 and regrid
!----------------------------------
IF ( LEDGARSHIP ) THEN
! Re-initialize
GEOS_1x1(:,:,:) = 0d0
! Apply scale factors at 1x1
GEOS_1x1(:,:,1) = E_SO2_SHIP_1x1(:,:) * SC_SO2_1x1(:,:)
! Regrid SO2 emissions to current model resolution [kg/yr]
!CALL DO_REGRID_1x1( 'kg/yr', GEOS_1x1, E_SO2_SHIP )
! (lzh, 02/01/2015)
INGRID = GEOS_1x1(:,:,1)
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_SO2_SHIP = OUTGRID
ENDIF
! Return to calling program
END SUBROUTINE COMPUTE_EDGAR_SO2
!------------------------------------------------------------------------------
SUBROUTINE READ_EDGAR_SO2( E_SO2_1x1, E_SO2_SHIP_1x1 )
!
!******************************************************************************
! Subroutine READ_EDGAR_SO2 reads EDGAR SO2 emissions for the various sectors
! and returns both anthropogenic SO2 emissions and ship exhaust SO2 emissions.
! The EDGAR emissions are on the GENERIC 1x1 GRID and are regridded to the
! GEOS 1x1 GRID. (avd, bmy, 7/14/06, 8/9/06)
!
! Arguments as Output:
! ============================================================================
! (1 ) E_SO2_1x1 (REAL*8) : EDGAR anth SO2 on GEOS 1x1 GRID [kg/season]
! (2 ) E_SO2_SHIP_1x1 (REAL*8) : EDGAR ship SO2 on GEOS 1x1 GRID [kg/season]
!
! NOTES:
! (1 ) Now pass the unit string to DO_REGRID_G2G_1x1 (bmy, 8/9/06)
!******************************************************************************
!
! Reference to F90 modules
USE LOGICAL_MOD, ONLY : LEDGARSHIP
USE REGRID_1x1_MOD, ONLY : DO_REGRID_G2G_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*8, INTENT(OUT) :: E_SO2_1x1(I1x1,J1x1)
REAL*8, INTENT(OUT) :: E_SO2_SHIP_1x1(I1x1,J1x1)
! Local variables
REAL*4 :: E_IN(I1x1,J1x1-1)
REAL*8 :: T_SO2_1x1(I1x1,J1x1-1)
REAL*8 :: T_SO2_SHIP_1x1(I1x1,J1x1-1)
!=================================================================
! READ_EDGAR_SO2 begins here!
!=================================================================
! Initialize
E_IN = 0e0
E_SO2_1x1 = 0d0
E_SO2_SHIP_1x1 = 0d0
T_SO2_1x1 = 0d0
T_SO2_SHIP_1x1 = 0d0
!-----------------------------------------------------------------
! Read anthropogenic SO2 and ship SO2 emissions
! (on GENERIC 1x1 GRID)
!-----------------------------------------------------------------
! F10 - industrial (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f1000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F20 - Power Generation (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f2000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F30 - Conversion (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f3000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F40 - Residential + Commercial + Other (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f4000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F51 - Road Transport (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f5100so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F54 - Land (Non-Road) Transport (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f5400so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F57 - Air Transport (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f5700so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! F58 - Shipping (fossil fuel combustion)
! NOTE: Add into separate array for compatibility w/ sulfate_mod.f
IF ( LEDGARSHIP ) THEN
CALL READ_EDGAR_DATA( 'f5800so2(IEA)', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_SHIP_1x1 )
ENDIF
! F80 - Oil Production (fossil fuel combustion)
CALL READ_EDGAR_DATA( 'f8000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! I10 - Iron and Steel Production
CALL READ_EDGAR_DATA( 'i1000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! I20 - Non-Ferrous Production
CALL READ_EDGAR_DATA( 'i2000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! I30 - Chemical Production
CALL READ_EDGAR_DATA( 'i3000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! I40 - Cement Production
CALL READ_EDGAR_DATA( 'i4000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! I50 - Pulp and Paper Production
CALL READ_EDGAR_DATA( 'i5000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
! W40 - Waste Incineration
CALL READ_EDGAR_DATA( 'w4000so2', 26, E_IN )
CALL ADD_EDGAR_DATA( E_IN, T_SO2_1x1 )
!-----------------------------------------------------------------
! Force a seasonal variation onto the anthropogenic SO2 emissions
! by applying seasonal scale factors. The scale factors are the
! ratio of (seasonal GEIA SO2 / annual GEIA SO2).
!
! The emissions on which these scale factors are based are
! defined on the GENERIC 1 x 1 GRID, so apply scale factors
! BEFORE regridding!
!-----------------------------------------------------------------
! Convert [kg SO2/yr] to [kg SO2/season]
CALL SEASCL_EDGAR_ANTH_SO2( T_SO2_1x1 )
!-----------------------------------------------------------------
! Regrid SO2 from GENERIC 1x1 GRID to GEOS 1x1 GRID
!-----------------------------------------------------------------
! Anthro SO2 [kg/season]
CALL DO_REGRID_G2G_1x1( 'kg/season', T_SO2_1x1, E_SO2_1x1 )
! Ship SO2 [kg/season]
CALL DO_REGRID_G2G_1x1( 'kg/season', T_SO2_SHIP_1x1,
& E_SO2_SHIP_1x1 )
!-----------------------------------------------------------------
! Force a monthly variation onto the anthropogenic SO2 emissions
! by applying monthly scale factors. The scale factors are the
! ratio of (monthly ship SO2 / total ship SO2) as take from the
! inventory of Corbett et al.
!
! The emissions on which these scale factors are based are
! defined on the GEOS 1 x 1 GRID, so apply scale factors
! AFTER regridding!
!-----------------------------------------------------------------
! Convert [kg SO2/yr] to [kg SO2/month]
CALL SEASCL_EDGAR_SHIP_SO2( E_SO2_SHIP_1x1 )
! Return to calling program
END SUBROUTINE READ_EDGAR_SO2
!------------------------------------------------------------------------------
SUBROUTINE SEASCL_EDGAR_ANTH_SO2( E_SO2_1x1 )
!
!******************************************************************************
! Subroutine SEASCL_EDGAR_ANTH_SO2 applies seasonal scale factors (computed
! as the ratio of seasonal/total GEIA SO2 emissions) to the annual EDGAR
! anthropogenic SO2 emissions. This is required to impose a seasonality onto
! the EDGAR ship SO2 emissions, which are reported as per year.
! (avd, bmy, 7/14/06)
!
! NOTE: Ship SO2 scale factors are on the GENERIC 1x1 GRID.
!
! Arguments as Input:
! ============================================================================
! (1 ) E_SO2_1x1 (REAL*8 ) : Anthro SO2 1x1 array [kg SO2/yr]
!
! Arguments as Output:
! ============================================================================
! (1 ) E_SO2_1x1 (REAL*8 ) : Anthro SO2 1x1 array [kg SO2/season]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD, ONLY : READ_BPCH2
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*8, INTENT(INOUT) :: E_SO2_1x1(I1x1,J1x1-1)
! Local variables
INTEGER :: I, J
REAL*4 :: ARRAY(I1x1,J1x1-1,1)
REAL*8 :: THIS_TAU
CHARACTER(LEN=3) :: THIS_SEA
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! SEASCL_EDGAR_ANTH_SO2 begins here!
!=================================================================
! File name
FILENAME = TRIM( DATA_DIR_1x1 ) //
& 'EDGAR_200607/SOx/anth_SOx_scale.' // SEASON_NAME //
& '.generic.1x1'
! Echo info
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( ' - SEASCL_EDGAR_ANTH_SO2: Reading ', a )
! Read scale factor data [unitless]
CALL READ_BPCH2( FILENAME, 'EDGAR-2D', 73,
& SEASON_TAU0, I1x1, J1x1-1,
& 1, ARRAY, QUIET=.TRUE. )
! Apply seasonal scale factors to anthro SO2
E_SO2_1x1(:,:) = E_SO2_1x1(:,:) * ARRAY(:,:,1)
! Return to calling program
END SUBROUTINE SEASCL_EDGAR_ANTH_SO2
!------------------------------------------------------------------------------
SUBROUTINE SEASCL_EDGAR_SHIP_SO2( E_SO2_SHIP_1x1 )
!
!******************************************************************************
! Subroutine SEASCL_EDGAR_SHIP_SO2 applies monthly scale factors (which are
! computed as the ratio of monthly/total ship SO2 emissions from Corbett et
! al) to the annual EDGAR ship SO2 emissions. This is required to impose a
! seasonality onto the EDGAR ship SO2 emissions, which are reported as per
! year. (avd, bmy, 7/14/06)
!
! NOTE: Ship SO2 scale factors are on the GEOS 1x1 GRID.
!
! Arguments as Input:
! ============================================================================
! (1 ) E_SO2_SHIP_1x1 (REAL*8 ) : Ship SO2 1x1 array [kg SO2/yr]
!
! Arguments as Input/Output:
! ============================================================================
! (1 ) E_SO2_SHIP_1x1 (REAL*8 ) : Ship SO2 1x1 array [kg SO2/month]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD, ONLY : READ_BPCH2
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*8, INTENT(INOUT) :: E_SO2_SHIP_1x1(I1x1,J1x1)
! Local variables
INTEGER :: I, J
REAL*4 :: ARRAY(I1x1,J1x1,1)
REAL*8 :: THIS_TAU
CHARACTER(LEN=3) :: THIS_MON
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! SEASCL_EDGAR_SHIP_SO2 begins here!
!=================================================================
! File name
FILENAME = TRIM( DATA_DIR_1x1 ) //
& 'EDGAR_200607/SOx/ship_SOx_scale.' // MONTH_NAME //
& '.geos.1x1'
! Echo info
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( ' - SEASCL_EDGAR_SHIP_SO2: Reading ', a )
! Read scale factor data [unitless]
CALL READ_BPCH2( FILENAME, 'EDGAR-2D', 73,
& MONTH_TAU0, I1x1, J1x1,
& 1, ARRAY, QUIET=.TRUE. )
! Apply monthly scale factors to ship SO2
E_SO2_SHIP_1x1(:,:) = E_SO2_SHIP_1x1(:,:) * ARRAY(:,:,1)
! Return to calling program
END SUBROUTINE SEASCL_EDGAR_SHIP_SO2
!------------------------------------------------------------------------------
SUBROUTINE READ_EDGAR_DATA( NAME, TRACER, E_1x1 )
!
!******************************************************************************
! Subroutine READ_EDGAR_DATA reads EDGAR emissions data for a single sector
! from disk, in binary punch file format. (avd, bmy, 7/14/06)
!
! Arguments as Input:
! ============================================================================
! (1 ) FILENAME (CHARACTER) : string with EDGAR inventory filename
! (2 ) TRACER (INTEGER ) : Tracer number
! (3 ) E_1x1 (REAL*4 ) : Array to hold emissions
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
USE BPCH2_MOD, ONLY : GET_TAU0, READ_BPCH2
# include "CMN_SIZE" ! Size parameters
! Arguments
INTEGER, INTENT(IN) :: TRACER
REAL*4, INTENT(OUT) :: E_1x1(I1x1,J1x1-1)
CHARACTER(LEN=*), INTENT(IN) :: NAME
! Local variables
REAL*8 :: TAU0
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! READ_EDGAR_DATA begins here!
!=================================================================
! Filename
IF ( TRACER == 1 ) THEN
! NOx
FILENAME = TRIM( DATA_DIR_1x1 ) // 'EDGAR_200607/NOx/EDGAR.' //
& TRIM( NAME ) // '.generic.1x1'
ELSE IF ( TRACER == 4 ) THEN
! CO
FILENAME = TRIM( DATA_DIR_1x1 ) // 'EDGAR_200607/CO/EDGAR.' //
& TRIM( NAME ) // '.generic.1x1'
ELSE IF ( TRACER == 26 ) THEN
! SO2
FILENAME = TRIM( DATA_DIR_1x1 ) // 'EDGAR_200607/SOx/EDGAR.' //
& TRIM( NAME ) // '.generic.1x1'
ENDIF
! Echo info
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( ' - READ_EDGAR_DATA: Reading ', a )
! Use TAU0 for year 2000
TAU0 = GET_TAU0( 1, 1, 2000 )
! Read data
CALL READ_BPCH2( FILENAME, 'EDGAR-2D', TRACER,
& TAU0, I1x1, J1x1-1,
& 1, E_1x1, QUIET=.TRUE. )
! Return to calling program
END SUBROUTINE READ_EDGAR_DATA
!------------------------------------------------------------------------------
SUBROUTINE ADD_EDGAR_DATA( E, E_1x1, SC, E_HRLY_1x1 )
!
!******************************************************************************
! Subroutine ADD_EDGAR_DATA adds emissions for a given sector to cumulative
! data arrays. Computes total emissions arrays and (if requested) totals per
! hour. (avd, bmy, 7/14/06)
!
! Arguments as Input:
! ============================================================================
! (1 ) E (REAL*4) : EDGAR emissions for a given sector [kg/yr]
! (3 ) SC (REAL*8) : OPTIONAL - Hourly EDGAR scale factors [unitless]
!
! Arguments as Output:
! ============================================================================
! (2 ) E_1x1 (REAL*8) : Cumulative total of EDGAR emissions [kg/yr]
! (4 ) E_HRLY_1x1 (REAL*8) : OPTIONAL - Hourly cum total of emissions [kg/yr]
!
! NOTES:
!******************************************************************************
!
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(IN) :: E(I1x1,J1x1-1)
REAL*8, INTENT(OUT) :: E_1x1(I1x1,J1x1-1)
REAL*8, INTENT(IN), OPTIONAL :: SC(N_HOURS)
REAL*8, INTENT(OUT), OPTIONAL :: E_HRLY_1x1(I1x1,J1x1-1,N_HOURS)
! Local variables
LOGICAL :: IS_HRLY
INTEGER :: I, J, H
!=================================================================
! ADD_EDGAR_DATA begins here!
!=================================================================
! Are we computing cumulative totals for each hour?
IS_HRLY = ( PRESENT( E_HRLY_1x1 ) .and. PRESENT( SC ) )
! Create total sum
E_1x1(:,:) = E_1x1(:,:) + E(:,:)
! Create hourly sum
IF ( IS_HRLY ) THEN
!$OMP PARALLEL DO
!$OMP+DEFAULT( SHARED )
!$OMP+PRIVATE( I, J, H )
DO H = 1, N_HOURS
DO J = 1, J1x1-1
DO I = 1, I1x1
E_HRLY_1x1(I,J,H) = E_HRLY_1x1(I,J,H) + ( SC(H) * E(I,J) )
ENDDO
ENDDO
ENDDO
!$OMP END PARALLEL DO
ENDIF
! Return to calling program
END SUBROUTINE ADD_EDGAR_DATA
!------------------------------------------------------------------------------
!! ######### OBSOLETE (phs, 3/10/08) #########
!!
! SUBROUTINE READ_EDGAR_SCALE( NAME, TRACER, YEAR, S_1x1 )
!!
!!******************************************************************************
!! Subroutine READ_EDGAR_SCALE reads interannual scale factor data from disk.
!! (avd, bmy, 7/14/06)
!!
!! Arguments as Input:
!! ============================================================================
!! (1 ) FILENAME (CHARACTER) : String with EDGAR inventory filename
!! (2 ) TRACER (INTEGER ) : Tracer number
!! (3 ) YEAR (INTEGER ) : Current year
!! (4 ) S_1x1 (REAL*4 ) : Array to hold scale factors
!!
!! NOTES: ######### OBSOLETE (phs, 3/10/08) #########
!!******************************************************************************
!!
! ! References to F90 modules
! USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
! USE BPCH2_MOD, ONLY : GET_TAU0, READ_BPCH2
!
!# include "CMN_SIZE" ! Size parameters
!
! ! Arguments
! CHARACTER(LEN=*), INTENT(IN) :: NAME
! INTEGER, INTENT(IN) :: TRACER, YEAR
! REAL*8, INTENT(OUT) :: S_1x1(I1x1,J1x1)
!
! ! Local variables
! REAL*4 :: T_1x1(I1x1,J1x1)
! REAL*8 :: TAU0
! CHARACTER(LEN=255) :: FILENAME
!
! !=================================================================
! ! READ_EDGAR_SCALE begins here!
! !=================================================================
!
! ! Filename
! IF ( TRACER == 71 ) THEN
!
! ! NOx
! FILENAME = TRIM( DATA_DIR_1x1 ) // 'EDGAR_200607/NOx/EDGAR.' //
! & TRIM( NAME ) // '.geos.1x1'
!
! ELSE IF ( TRACER == 72 ) THEN
!
! ! CO
! FILENAME = TRIM( DATA_DIR_1x1 ) // 'EDGAR_200607/CO/EDGAR.' //
! & TRIM( NAME ) // '.geos.1x1'
!
! ELSE IF ( TRACER == 73 ) THEN
!
! ! SO2
! FILENAME = TRIM( DATA_DIR_1x1 ) // 'EDGAR_200607/SOx/EDGAR.' //
! & TRIM( NAME ) // '.geos.1x1'
!
! ENDIF
!
! ! Echo info
! WRITE( 6, 100 ) TRIM( FILENAME )
! 100 FORMAT( ' - READ_EDGAR_SCALE: Reading ', a )
!
! ! Use TAU0 for the current year
! TAU0 = GET_TAU0( 1, 1, YEAR )
!
! ! Read data
! CALL READ_BPCH2( FILENAME, 'EDGAR-2D', TRACER,
! & TAU0, I1x1, J1x1,
! & 1, T_1x1, QUIET=.TRUE. )
!
! ! Convert to REAL*8 and return
! S_1x1(:,:) = T_1x1(:,:)
!
! ! Return to calling program
! END SUBROUTINE READ_EDGAR_SCALE
!
!!------------------------------------------------------------------------------
!
FUNCTION GET_EDGAR_NOx( I, J, KG_S, MOLEC_CM2_S, SHIP )
& RESULT( NOx )
!
!******************************************************************************
! Function GET_EDGAR_NOx returns the EDGAR NOx emissions at grid box (I,J)
! in units of [kg/season], [kg/s], or [molec/cm2/s]. (avd, bmy, 7/14/06)
!
! Arguments:
! ============================================================================
! (1 ) I (INTEGER) : GEOS-Chem longitude index
! (2 ) J (INTEGER) : GEOS-Chem latitude index
! (3 ) KG_S (LOGICAL) : OPTIONAL - Return data in [kg/s]
! (4 ) MOLEC_CM2_S (LOGICAL) : OPTIONAL - Return data in [molec/cm2/s]
!
! NOTES:
! (1 ) Added the SHIP switch (phs, 5/13/08)
!******************************************************************************
!
! References to F90 modules
USE FUTURE_EMISSIONS_MOD, ONLY : GET_FUTURE_SCALE_NOxff
USE LOGICAL_MOD, ONLY : LFUTURE
! Arguments
INTEGER, INTENT(IN) :: I, J
LOGICAL, INTENT(IN), OPTIONAL :: KG_S, MOLEC_CM2_S, SHIP
! Local variables
LOGICAL :: DO_KGS, DO_MCS
REAL*8 :: NOx
!=================================================================
! GET_EDGAR_NOx begins here!
!=================================================================
! Initialize
DO_KGS = .FALSE.
DO_MCS = .FALSE.
! Return data in [kg/s] or [molec/cm2/s]?
IF ( PRESENT( KG_S ) ) DO_KGS = KG_S
IF ( PRESENT( MOLEC_CM2_S ) ) DO_MCS = MOLEC_CM2_S
! Get NOx [kg NOx/season]
IF ( PRESENT( SHIP ) ) THEN
IF ( SHIP ) THEN
NOx = EDGAR_NOx_SHIP(I,J)
ELSE
NOx = EDGAR_NOx(I,J)
ENDIF
ELSE
NOx = EDGAR_NOx(I,J)
ENDIF
!%%%%%%%%%%%%% KLUDGE TO EMITT SHIP NOX AS NOX %%%%%%%%%%%%%%
! ! Get NOx [kg NOx/season]
! IF ( PRESENT( SHIP ) ) THEN
! NOx = 0d0
! ELSE
! NOx = EDGAR_NOx(I,J) + EDGAR_NOx_SHIP(I,J)
! ENDIF
!%%%%%%%%%%%%% END KLUDGE %%%%%%%%%%%%%%
! Apply scale factor for future emissions (if necessary)
IF ( LFUTURE ) THEN
NOx = NOx * GET_FUTURE_SCALE_NOxff( I, J )
ENDIF
! Convert units (if necessary)
IF ( DO_KGS ) THEN
! Convert to [kg NOx/s]
NOx = NOx / SEC_IN_SEASON
ELSE IF ( DO_MCS ) THEN
! Convert to [molec/cm2/s]
NOx = NOx * XNUMOL_NO2 / ( A_CM2(J) * SEC_IN_SEASON )
ENDIF
! Return to calling program
END FUNCTION GET_EDGAR_NOx
!------------------------------------------------------------------------------
FUNCTION GET_EDGAR_CO( I, J, KG_S, MOLEC_CM2_S, SHIP )
& RESULT( CO )
!
!******************************************************************************
! Function GET_EDGAR_CO returns the EDGAR CO emissions at grid box (I,J)
! in units of [kg/yr], [kg/s], or [molec/cm2/s]. (avd, bmy, 7/14/06)
!
! Arguments:
! ============================================================================
! (1 ) I (INTEGER) : GEOS-Chem longitude index
! (2 ) J (INTEGER) : GEOS-Chem latitude index
! (3 ) KG_S (LOGICAL) : OPTIONAL - Return data in [kg/s]
! (4 ) MOLEC_CM2_S (LOGICAL) : OPTIONAL - Return data in [molec/cm2/s]
!
! NOTES:
! (1 ) Added the SHIP switch (phs, 5/13/08)
!******************************************************************************
!
! References to F90 modules
USE FUTURE_EMISSIONS_MOD, ONLY : GET_FUTURE_SCALE_COff
USE LOGICAL_MOD, ONLY : LFUTURE
! Arguments
INTEGER, INTENT(IN) :: I, J
LOGICAL, INTENT(IN), OPTIONAL :: KG_S, MOLEC_CM2_S, SHIP
! Local variables
LOGICAL :: DO_KGS, DO_MCS
REAL*8 :: CO
!=================================================================
! GET_EDGAR_CO begins here!
!=================================================================
! Initialize
DO_KGS = .FALSE.
DO_MCS = .FALSE.
! Return data in [kg/s] or [molec/cm2/s]?
IF ( PRESENT( KG_S ) ) DO_KGS = KG_S
IF ( PRESENT( MOLEC_CM2_S ) ) DO_MCS = MOLEC_CM2_S
! Get CO [kg/yr]
IF ( PRESENT( SHIP ) ) THEN
IF ( SHIP ) THEN
CO = EDGAR_CO_SHIP(I,J)
ELSE
CO = EDGAR_CO(I,J)
ENDIF
ELSE
CO = EDGAR_CO(I,J)
ENDIF
! Apply scale factor for future emissions (if necessary)
IF ( LFUTURE ) THEN
CO = CO * GET_FUTURE_SCALE_COff( I, J )
ENDIF
! Convert units (if necessary)
IF ( DO_KGS ) THEN
! Convert to [kg CO/s]
CO = CO / SEC_IN_2000
ELSE IF ( DO_MCS ) THEN
! Convert to [molec/cm2/s]
CO = CO * XNUMOL_CO / ( A_CM2(J) * SEC_IN_2000 )
ENDIF
! Return to calling program
END FUNCTION GET_EDGAR_CO
!------------------------------------------------------------------------------
FUNCTION GET_EDGAR_ANTH_SO2( I, J, KG_S, MOLEC_CM2_S ) RESULT(SO2)
!
!******************************************************************************
! Function GET_EDGAR_ANTH_SO2 returns the EDGAR anthropogenic SO2 emissions
! at grid box (I,J) in either [kg/yr] or [molec/cm2/s]. (avd, bmy, 7/14/06)
!
! Arguments:
! ============================================================================
! (1 ) I (INTEGER) : GEOS-Chem longitude index
! (2 ) J (INTEGER) : GEOS-Chem latitude index
! (3 ) KG_S (LOGICAL) : OPTIONAL - Return data in [kg/s]
! (4 ) MOLEC_CM2_S (LOGICAL) : OPTIONAL - Return data in [molec/cm2/s]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE FUTURE_EMISSIONS_MOD, ONLY : GET_FUTURE_SCALE_SO2ff
USE LOGICAL_MOD, ONLY : LFUTURE
! Arguments
INTEGER, INTENT(IN) :: I, J
LOGICAL, INTENT(IN), OPTIONAL :: KG_S, MOLEC_CM2_S
! Local variables
LOGICAL :: DO_KGS, DO_MCS
REAL*8 :: SO2
!=================================================================
! GET_EDGAR_ANTH_SO2 begins here!
!=================================================================
! Initialize
DO_KGS = .FALSE.
DO_MCS = .FALSE.
! Return data in [kg SO2/s] or [molec/cm2/s]?
IF ( PRESENT( KG_S ) ) DO_KGS = KG_S
IF ( PRESENT( MOLEC_CM2_S ) ) DO_MCS = MOLEC_CM2_S
! Get anthropogenic SO2 [kg SO2/season]
SO2 = EDGAR_SO2(I,J)
! Apply scale factor for future emissions (if necessary)
IF ( LFUTURE ) THEN
SO2 = SO2 * GET_FUTURE_SCALE_SO2ff( I, J )
ENDIF
! Convert units
IF ( DO_KGS ) THEN
! Convert to [kg SO2/s]
SO2 = SO2 / SEC_IN_SEASON
ELSE IF ( DO_MCS ) THEN
! Convert to [molec/cm2/s]
SO2 = SO2 * XNUMOL_SO2 / ( A_CM2(J) * SEC_IN_SEASON )
ENDIF
! Return to calling program
END FUNCTION GET_EDGAR_ANTH_SO2
!------------------------------------------------------------------------------
FUNCTION GET_EDGAR_SHIP_SO2( I, J, KG_S, MOLEC_CM2_S ) RESULT(SO2)
!
!******************************************************************************
! Function GET_EDGAR_SHIP_SO2 returns the EDGAR ship exhaust SO2 emissions
! at grid box (I,J) in units of [kg/month], [kg/s] or [molec/cm2/s].
! (avd, bmy, 7/14/06)
!
! Arguments:
! ============================================================================
! (1 ) I (INTEGER) : GEOS-Chem longitude index
! (2 ) J (INTEGER) : GEOS-Chem latitude index
! (3 ) KG_S (LOGICAL) : OPTIONAL - Return data in [kg/s]
! (4 ) MOLEC_CM2_S (LOGICAL) : OPTIONAL - Return data in [molec/cm2/s]
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE FUTURE_EMISSIONS_MOD, ONLY : GET_FUTURE_SCALE_SO2ff
USE LOGICAL_MOD, ONLY : LFUTURE
! Arguments
INTEGER, INTENT(IN) :: I, J
LOGICAL, INTENT(IN), OPTIONAL :: KG_S, MOLEC_CM2_S
! Function value
LOGICAL :: DO_KGS, DO_MCS
REAL*8 :: SO2
!=================================================================
! GET_EDGAR_SHIP_SO2 begins here!
!=================================================================
! Initialize
DO_KGS = .FALSE.
DO_MCS = .FALSE.
! Return data in [kg/s] or [molec/cm2/s]?
IF ( PRESENT( KG_S ) ) DO_KGS = KG_S
IF ( PRESENT( MOLEC_CM2_S ) ) DO_MCS = MOLEC_CM2_S
! Get ship SO2 [kg SO2/month]
SO2 = EDGAR_SO2_SHIP(I,J)
! Apply scale factor for future emissions (if necessary)
IF ( LFUTURE ) THEN
SO2 = SO2 * GET_FUTURE_SCALE_SO2ff( I, J )
ENDIF
! Convert units (if necessary)
IF ( DO_KGS ) THEN
! Convert to [kg SO2/s]
SO2 = SO2 / SEC_IN_MONTH
ELSE IF ( DO_MCS ) THEN
! Convert to [molec/cm2/s]
SO2 = SO2 * XNUMOL_SO2 / ( A_CM2(J) * SEC_IN_MONTH )
ENDIF
! Return to calling program
END FUNCTION GET_EDGAR_SHIP_SO2
!------------------------------------------------------------------------------
FUNCTION GET_EDGAR_TODN( I, J, HOUR ) RESULT( TODN )
!
!******************************************************************************
! Function GET_EDGAR_TODN returns the time-of-day diurnal scale factor for
! the EDGAR NOx emissions. (avd, bmy, 7/14/06)
!
! Arguments:
! ============================================================================
! (1 ) I (INTEGER) : GEOS-Chem longitude index
! (2 ) J (INTEGER) : GEOS-Chem latitude index
! (3 ) HOUR (INTEGER) : GMT hour of the day (0-23)
!
! NOTES:
!******************************************************************************
!
! Arguments
INTEGER, INTENT(IN) :: I, J, HOUR
! Local variables
INTEGER :: H
REAL*8 :: TODN
!=================================================================
! GET_EDGAR_TODN begins here!
!=================================================================
! The 1st element of the array is hour 0, so add 1
H = HOUR + 1
! Get time of day factor for NOx
TODN = EDGAR_TODN(I,J,H)
! Return to calling program
END FUNCTION GET_EDGAR_TODN
!------------------------------------------------------------------------------
SUBROUTINE EDGAR_TOTAL_Tg( YEAR, MONTH )
!
!******************************************************************************
! Subroutine EDGAR_TOTAL_Tg prints totals of EDGAR emissions species
! in units of Tg. (avd, bmy, 7/14/06)
!
! Arguments as Input:
! ============================================================================
! (1 ) YEAR (INTEGER) : Current year
! (2 ) MONTH (INTEGER) : Current month
!
! NOTES:
!******************************************************************************
!
USE LOGICAL_MOD, ONLY : LEDGARSHIP
! Arguments
INTEGER, INTENT(IN) :: YEAR, MONTH
! Local variables
REAL*8 :: T_NOx, T_CO, T_SO2an, T_SO2sh
REAL*8 :: T_NOxSh, T_COsh
!=================================================================
! EDGAR_TOTAL_Tg begins here!
!=================================================================
! Compute totals [Tg/yr]
T_NOx = SUM( EDGAR_NOx ) * ( 14d0/46d0 ) / 1d9 ! Tg N
T_CO = SUM( EDGAR_CO ) / 1d9 ! Tg CO
T_SO2an = SUM( EDGAR_SO2 ) * ( 32d0/64d0 ) / 1d9 ! Tg S
IF ( LEDGARSHIP ) THEN
T_NOxSh = SUM( EDGAR_NOx_SHIP ) * ( 14d0/46d0 ) / 1d9 ! Tg N
T_COSh = SUM( EDGAR_CO_SHIP ) / 1d9 ! Tg CO
T_SO2sh = SUM( EDGAR_SO2_SHIP ) * ( 32d0/64d0 ) / 1d9 ! Tg S
ELSE
T_COSh = 0d0
T_NOxSh = 0d0
T_SO2sh = 0d0
ENDIF
! Print totals
WRITE( 6, '(a)' ) REPEAT( '=', 79 )
WRITE( 6, '(a,/)' ) 'E D G A R E M I S S I O N S'
WRITE( 6, 100 ) YEAR, SEASON_NAME, T_NOx
WRITE( 6, 105 ) YEAR, SEASON_NAME, T_NOxSh
WRITE( 6, 110 ) YEAR, T_CO
WRITE( 6, 115 ) YEAR, T_COSh
WRITE( 6, 120 ) YEAR, SEASON_NAME, T_SO2an
WRITE( 6, 130 ) YEAR, MONTH_NAME, T_SO2sh
WRITE( 6, '(a)' ) REPEAT( '=', 79 )
! FORMAT statements
100 FORMAT( 'NOx for year ', i4, ' and season ', a3,
& ' : ', f10.4, ' [Tg N ]' )
105 FORMAT( 'NOx Ship for year ', i4, ' and season ', a3,
& ' : ', f10.4, ' [Tg N ]' )
110 FORMAT( 'CO for year ', i4, ' (annual total)',
& ' : ', f10.4, ' [Tg CO/yr]' )
115 FORMAT( 'CO Ship for year ', i4, ' (annual total)',
& ' : ', f10.4, ' [Tg CO/yr]' )
120 FORMAT( 'Anthro SO2 for year ', i4, ' and season ', a3,
& ' : ', f10.4, ' [Tg S ]' )
130 FORMAT( 'Ship SO2 for year ', i4, ' and month ', a3,
& ' : ', f10.4, ' [Tg S ]' )
! Return to calling program
END SUBROUTINE EDGAR_TOTAL_Tg
!------------------------------------------------------------------------------
SUBROUTINE READ_AROMATICS( E_BENZ, E_TOLU, E_XYLE )
!
!******************************************************************************
! Subroutine READ_AROMATICS now reads EDGARv2 inventory for Year 1985
! from a bpch file (tmf, 1/8/08).
!
! Arguments as Output
! ============================================================================
! (1 ) E_BENZ (REAL*4) : EDGARv2 anthro BENZ for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
! (2 ) E_TOLU (REAL*4) : EDGARv2 anthro TOLU for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
! (3 ) E_XYLE (REAL*4) : EDGARv2 anthro XYLE for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
USE REGRID_A2A_MOD, ONLY : DO_REGRID_A2A !(lzh,02/01/2015)
! IMPLICIT NONE
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(OUT) :: E_BENZ(IGLOB,JGLOB )
REAL*4, INTENT(OUT) :: E_TOLU(IGLOB,JGLOB )
REAL*4, INTENT(OUT) :: E_XYLE(IGLOB,JGLOB )
! Local variables
INTEGER :: L
REAL*4 :: ARRAY(I1x1,J1x1 )
CHARACTER(LEN=255) :: FILENAME
REAL*8 :: GEOS1x1(I1x1,J1x1,1)
REAL*8 :: TEMP(IGLOB,JGLOB)
! (lzh, 02/01/2015)
CHARACTER(LEN=255) :: LLFILENAME
REAL*8 :: INGRID(I1x1,J1x1)
REAL*8 :: OUTGRID(IIPAR,JJPAR)
!=================================================================
! READ_AROMATICS begins here!
!=================================================================
! Zero emission arrays
E_BENZ = 0e0
E_TOLU = 0e0
E_XYLE = 0e0
! Define the binary punch file name
!=================================================================
! Read BENZ (tracer #57): aseasonal
!=================================================================
FILENAME = TRIM( DATA_DIR_1x1 )//
& 'EDGAR_200607/BENZ/BENZ_1985_FF_IND_EDGAR2.1x1geos.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 57,
& 0.d0, I1x1, J1x1,
& 1, ARRAY, QUIET=.TRUE. )
! Regrid BENZ from GEOS 1x1 to current model resolution
! [atoms C/cm2/s] (ccc, 3/9/09)
! GEOS1x1(:,:,1) = ARRAY(:,:)
! CALL DO_REGRID_1x1('atoms C/cm2/s', GEOS1x1, TEMP)
! E_BENZ = TEMP
! (lzh, 02/01/2015)
! File with lat/lon edges for regridding
LLFILENAME = TRIM( DATA_DIR_1x1) //
& 'MAP_A2A_Regrid_201203/MAP_A2A_latlon_geos1x1.nc'
INGRID = ARRAY
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_BENZ = OUTGRID
!=================================================================
! Read TOLU (tracer #58): aseasonal
!=================================================================
FILENAME = TRIM( DATA_DIR_1x1 )//
& 'EDGAR_200607/TOLU/TOLU_1985_FF_IND_EDGAR2.1x1geos.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 58,
& 0.d0, I1x1, J1x1,
& 1, ARRAY, QUIET=.TRUE. )
! Regrid TOLU from GEOS 1x1 to current model resolution
! [atoms C/cm2/s] (ccc, 3/9/09)
! GEOS1x1(:,:,1) = ARRAY(:,:)
! CALL DO_REGRID_1x1('atoms C/cm2/s', GEOS1x1, TEMP)
! E_TOLU = TEMP
! (lzh, 02/01/2015)
INGRID = ARRAY
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_TOLU = OUTGRID
!=================================================================
! Read XYLE (tracer #59): aseasonal
!=================================================================
FILENAME = TRIM( DATA_DIR_1x1 )//
& 'EDGAR_200607/XYLE/XYLE_1985_FF_IND_EDGAR2.1x1geos.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 59,
& 0.d0, I1x1, J1x1,
& 1, ARRAY, QUIET=.TRUE. )
! Regrid XYLE from GEOS 1x1 to current model resolution
! [atoms C/cm2/s] (ccc, 3/9/09)
! GEOS1x1(:,:,1) = ARRAY(:,:)
! CALL DO_REGRID_1x1('atoms C/cm2/s', GEOS1x1, TEMP)
! E_XYLE = TEMP
! (lzh, 02/01/2015)
INGRID = ARRAY
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_XYLE = OUTGRID
100 FORMAT( 'READ_AROMATICS: Reading ', a )
! Return to calling program
END SUBROUTINE READ_AROMATICS
!------------------------------------------------------------------------------
SUBROUTINE READ_C2H4( E_C2H4 )
!
!******************************************************************************
! Subroutine READ_C2H4 now reads EDGARv2 inventory for Year 1985 from a bpch file
! (tmf, 11/10/2006).
!
! Arguments as Output:
! ============================================================================
! (1 ) E_C2H4 (REAL*4) : EDGARv2 anthro C2H4 for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD
USE DIRECTORY_MOD, ONLY : DATA_DIR
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
USE REGRID_A2A_MOD, ONLY : DO_REGRID_A2A ! (lzh,02/01/2015)
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
! IMPLICIT NONE
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(OUT) :: E_C2H4(IGLOB,JGLOB )
! Local variables
INTEGER :: L
REAL*4 :: ARRAY(I1x1,J1x1 )
CHARACTER(LEN=255) :: FILENAME
REAL*8 :: GEOS1x1(I1x1,J1x1,1)
REAL*8 :: TEMP(IGLOB,JGLOB)
! (lzh, 02/01/2015)
CHARACTER(LEN=255) :: LLFILENAME
REAL*8 :: INGRID(I1x1,J1x1)
REAL*8 :: OUTGRID(IIPAR,JJPAR)
!=================================================================
! READ_C2H4 begins here!
!=================================================================
! Zero emission arrays
E_C2H4 = 0e0
! Define the binary punch file name
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'C2H4_1985_FF_IND_EDGAR2.1x1geos.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( 'READ_C2H4: Reading ', a )
!=================================================================
! Read C2H4 (tracer #63): aseasonal
!=================================================================
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 63,
& 0.d0, I1x1, J1x1,
& 1, ARRAY, QUIET=.TRUE. )
! Regrid C2H4 from GEOS 1x1 to current model resolution
! [atoms C/cm2/s] (ccc, 3/9/09)
! GEOS1x1(:,:,1) = ARRAY(:,:)
! CALL DO_REGRID_1x1('atoms C/cm2/s', GEOS1x1, TEMP)
! E_C2H4 = TEMP
! (lzh, 02/01/2015)
! File with lat/lon edges for regridding
LLFILENAME = TRIM( DATA_DIR_1x1) //
& 'MAP_A2A_Regrid_201203/MAP_A2A_latlon_geos1x1.nc'
INGRID = ARRAY
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_C2H4 = OUTGRID
! Return to calling program
END SUBROUTINE READ_C2H4
!------------------------------------------------------------------------------
SUBROUTINE READ_C2H2( E_C2H2 )
!
!******************************************************************************
! Subroutine READ_C2H2 now reads EDGARv2 C2H2 emissions for year 1985
! (tmf, 11/10/2006).
!
! Arguments as Output:
! ============================================================================
! (1 ) E_C2H2 (REAL*4) : EDGARv2 anthro C2H2 for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD
USE DIRECTORY_MOD, ONLY : DATA_DIR
USE REGRID_1x1_MOD, ONLY : DO_REGRID_1x1
USE REGRID_A2A_MOD, ONLY : DO_REGRID_A2A ! (lzh,02/01/2015)
USE DIRECTORY_MOD, ONLY : DATA_DIR_1x1
! IMPLICIT NONE
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(OUT) :: E_C2H2(IGLOB,JGLOB )
! Local variables
INTEGER :: L
REAL*4 :: ARRAY(I1x1,J1x1 )
CHARACTER(LEN=255) :: FILENAME
REAL*8 :: GEOS1x1(I1x1,J1x1,1)
REAL*8 :: TEMP(IGLOB,JGLOB)
! (lzh, 02/01/2015)
CHARACTER(LEN=255) :: LLFILENAME
REAL*8 :: INGRID(I1x1,J1x1)
REAL*8 :: OUTGRID(IIPAR,JJPAR)
!=================================================================
! READ_C2H2 begins here!
!=================================================================
! Zero emission arrays
E_C2H2 = 0e0
! Define the binary punch file name
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'C2H2_1985_FF_IND_EDGAR2.1x1geos.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( 'READ_C2H2: Reading ', a )
!=================================================================
! Read C2H2 (tracer #64): aseasonal
!=================================================================
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 64,
& 0.d0, I1x1, J1x1,
& 1, ARRAY, QUIET=.TRUE. )
! Regrid C2H2 from GEOS 1x1 to current model resolution
! [atoms C/cm2/s] (ccc, 3/9/09)
! GEOS1x1(:,:,1) = ARRAY(:,:)
! CALL DO_REGRID_1x1('atoms C/cm2/s', GEOS1x1, TEMP)
! E_C2H2 = TEMP
! (lzh, 02/01/2015)
! File with lat/lon edges for regridding
LLFILENAME = TRIM( DATA_DIR_1x1) //
& 'MAP_A2A_Regrid_201203/MAP_A2A_latlon_geos1x1.nc'
INGRID = ARRAY
CALL DO_REGRID_A2A( LLFILENAME, I1x1, J1x1,
& INGRID, OUTGRID, IS_MASS=0,
& netCDF=.TRUE. )
E_C2H2 = OUTGRID
! Return to calling program
END SUBROUTINE READ_C2H2
!------------------------------------------------------------------------------
SUBROUTINE READ_AROMATICS_05x0666( E_BENZ, E_TOLU, E_XYLE )
!
!******************************************************************************
! Subroutine READ_AROMATICS now reads EDGARv2 inventory for Year 1985
! from a bpch file (tmf, 1/8/08).
!
! Arguments as Output
! ============================================================================
! (1 ) E_BENZ (REAL*4) : EDGARv2 anthro BENZ for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
! (2 ) E_TOLU (REAL*4) : EDGARv2 anthro TOLU for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
! (3 ) E_XYLE (REAL*4) : EDGARv2 anthro XYLE for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD
USE DIRECTORY_MOD, ONLY : DATA_DIR
! IMPLICIT NONE
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(OUT) :: E_BENZ(IGLOB,JGLOB )
REAL*4, INTENT(OUT) :: E_TOLU(IGLOB,JGLOB )
REAL*4, INTENT(OUT) :: E_XYLE(IGLOB,JGLOB )
! Local variables
INTEGER :: L
REAL*4 :: ARRAY(IGLOB,JGLOB )
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! READ_AROMATICS begins here!
!=================================================================
! Zero emission arrays
E_BENZ = 0e0
E_TOLU = 0e0
E_XYLE = 0e0
! Define the binary punch file name
!=================================================================
! Read BENZ (tracer #57): aseasonal
!=================================================================
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'BENZ_1985_FF_IND_EDGAR2.05x0666CH.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 57,
& 0.d0, IGLOB, JGLOB,
& 1, ARRAY, QUIET=.TRUE. )
E_BENZ = ARRAY
!=================================================================
! Read TOLU (tracer #58): aseasonal
!=================================================================
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'TOLU_1985_FF_IND_EDGAR2.05x0666CH.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 58,
& 0.d0, IGLOB, JGLOB,
& 1, ARRAY, QUIET=.TRUE. )
E_TOLU = ARRAY
!=================================================================
! Read XYLE (tracer #59): aseasonal
!=================================================================
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'XYLE_1985_FF_IND_EDGAR2.05x0666CH.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 59,
& 0.d0, IGLOB, JGLOB,
& 1, ARRAY, QUIET=.TRUE. )
E_XYLE = ARRAY
100 FORMAT( 'READ_AROMATICS: Reading ', a )
! Return to calling program
END SUBROUTINE READ_AROMATICS_05x0666
!------------------------------------------------------------------------------
SUBROUTINE READ_C2H4_05x0666( E_C2H4 )
!
!******************************************************************************
! Subroutine READ_C2H4 now reads EDGARv2 inventory for Year 1985 from a bpch file
! (tmf, 11/10/2006).
!
! Arguments as Output:
! ============================================================================
! (1 ) E_C2H4 (REAL*4) : EDGARv2 anthro C2H4 for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE BPCH2_MOD
USE DIRECTORY_MOD, ONLY : DATA_DIR
! IMPLICIT NONE
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(OUT) :: E_C2H4(IGLOB,JGLOB )
! Local variables
INTEGER :: L
REAL*4 :: ARRAY(IGLOB,JGLOB )
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! READ_C2H4 begins here!
!=================================================================
! Zero emission arrays
E_C2H4 = 0e0
! Define the binary punch file name
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'C2H4_1985_FF_IND_EDGAR2.05x0666CH.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( 'READ_C2H4: Reading ', a )
!=================================================================
! Read C2H4 (tracer #63): aseasonal
!=================================================================
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 63,
& 0.d0, IGLOB, JGLOB,
& 1, ARRAY, QUIET=.TRUE. )
E_C2H4 = ARRAY
! Return to calling program
END SUBROUTINE READ_C2H4_05x0666
!------------------------------------------------------------------------------
SUBROUTINE READ_C2H2_05x0666( E_C2H2 )
!
!******************************************************************************
! Subroutine READ_C2H2 now reads EDGARv2 C2H2 emissions for year 1985
! (tmf, 11/10/2006).
!
! Arguments as Output:
! ============================================================================
! (1 ) E_C2H2 (REAL*4) : EDGARv2 anthro C2H2 for year 1985
! (no seasonality, 1 level )
! [molec/cm2/s] (tmf, 7/8/05)
!
! NOTES:
!******************************************************************************
!
! References to F90 modules
USE TIME_MOD, ONLY : GET_MONTH
USE BPCH2_MOD
USE DIRECTORY_MOD, ONLY : DATA_DIR
! IMPLICIT NONE
# include "CMN_SIZE" ! Size parameters
! Arguments
REAL*4, INTENT(OUT) :: E_C2H2(IGLOB,JGLOB )
! Local variables
INTEGER :: L
REAL*4 :: ARRAY(IGLOB,JGLOB )
CHARACTER(LEN=255) :: FILENAME
!=================================================================
! READ_C2H2 begins here!
!=================================================================
! Zero emission arrays
E_C2H2 = 0e0
! Define the binary punch file name
FILENAME = '/as2/home/ccarouge/orig.emission/edgar/' //
& 'C2H2_1985_FF_IND_EDGAR2.05x0666CH.bpch'
! Write file name to stdout
WRITE( 6, 100 ) TRIM( FILENAME )
100 FORMAT( 'READ_C2H2: Reading ', a )
!=================================================================
! Read C2H2 (tracer #64): aseasonal
!=================================================================
CALL READ_BPCH2( FILENAME, 'ANTHSRCE', 64,
& 0.d0, IGLOB, JGLOB,
& 1, ARRAY, QUIET=.TRUE. )
E_C2H2 = ARRAY
! Return to calling program
END SUBROUTINE READ_C2H2_05x0666
!------------------------------------------------------------------------------
! NOTE: This should be for debugging...
! SUBROUTINE OUTPUT_TOTAL_2D( DESCRIPTION, EMISSIONS, UNITS )
!!
!!******************************************************************************
!! Subroutine OUTPUT_TOTAL outputs the total emissions for a given emissions
!! array. (amv 02/14/06)
!!
!! NOTES:
!!******************************************************************************
!
! USE TIME_MOD, ONLY : GET_TS_EMIS
!
!# include "CMN_SIZE" ! size parameters
!
! ! Local variables
! INTEGER :: I, J, K, IMAX, IMIN, JMAX, JMIN
! REAL*8 :: TOTAL, SCALAR
! CHARACTER(LEN=255) :: LOCATION
! CHARACTER(LEN=255) :: OUTUNITS
!
! ! Arguments
! CHARACTER(LEN=*), INTENT(IN) :: DESCRIPTION
! CHARACTER(LEN=*), INTENT(IN) :: UNITS
! REAL*8, INTENT(IN) :: EMISSIONS(IIPAR, JJPAR)
!
! ! Associate output units with input description
! IF ( TRIM( DESCRIPTION ) == 'EDGAR NOx' ) THEN
! !OUTUNITS = '[Tg N/yr]'
! OUTUNITS = '[Tg N/season]'
! ELSEIF ( TRIM( DESCRIPTION ) == 'GEIA NOx' ) THEN
! OUTUNITS = '[Tg N/yr]'
! ELSEIF ( TRIM( DESCRIPTION ) == 'EDGAR CO' ) THEN
! OUTUNITS = '[Tg CO/yr]'
! ELSEIF ( TRIM( DESCRIPTION ) == 'GEIA CO' ) THEN
! OUTUNITS = '[Tg CO/yr]'
! ELSEIF ( TRIM( DESCRIPTION ) == 'GEIA SO2' ) THEN
! OUTUNITS = '[Tg S/yr]'
! ELSEIF ( TRIM( DESCRIPTION ) == 'EDGAR SO2' ) THEN
! !OUTUNITS = '[Tg SO2/yr]'
! OUTUNITS = '[Tg S/season]'
! ELSE
! OUTUNITS = 'Unknown'
! ENDIF
!
! ! Scalar to convert to kg/yr from received units
! IF ( TRIM( UNITS ) == 'kg/yr' ) THEN
! SCALAR = 1.0 / 1.0d9
! ELSEIF ( TRIM( UNITS ) == 'kg/s' ) THEN
! SCALAR = 1.d0/ 1.0d9 * 365.25 * 24.0 * 60.0 * 60.0
! ELSEIF ( TRIM( UNITS ) == 'kg/ts' ) THEN
! SCALAR = 1.0 / 1.0d9 / GET_TS_EMIS() * 365.25 * 24.0 * 60.0
! ELSEIF ( TRIM( UNITS ) == 'kg/season' ) THEN
! SCALAR = 1.0 / 1d9
! ELSE
! SCALAR = 1.0
! ENDIF
!
! ! Extra conversion from NO2 -> N
! ! (NO2 is stored for NOx)
! IF ( TRIM( DESCRIPTION ) == 'EDGAR NOx' .or.
! & TRIM( DESCRIPTION ) == 'GEIA NOx' ) THEN
! SCALAR = SCALAR * 14. / 46.
! ENDIF
!
! ! Extra conversion from SO2 -> S
! ! (NO2 is stored for NOx)
! IF ( TRIM( DESCRIPTION ) == 'EDGAR NOx' .or.
! & TRIM( DESCRIPTION ) == 'GEIA NOx' ) THEN
! SCALAR = SCALAR * 32. / 64.
! ENDIF
!
! ! loop over each region
! DO K = 1,6
!
! ! reset total
! TOTAL = 0.0
!
! IF ( K == 1 ) THEN
! LOCATION = ' World'
! IMIN = 1
! IMAX = IGLOB
! JMIN = 1
! ! avoid anomylous points at pole
! IF ( TRIM(DESCRIPTION) == 'GEIA SO2') THEN
! JMAX = NINT( 170. / 180. * JGLOB )
! ELSE
! JMAX = JGLOB
! ENDIF
! ELSEIF ( K == 2 ) THEN
! LOCATION = 'North America'
! IMIN = NINT( 15. / 360. * IGLOB )
! IMAX = NINT( 140. / 360. * IGLOB )
! JMIN = NINT( 110. / 180. * JGLOB )
! JMAX = NINT( 170. / 180. * JGLOB )
! ELSEIF ( K == 3 ) THEN
! LOCATION = 'South America'
! IMIN = NINT( 90. / 360. * IGLOB )
! IMAX = NINT( 150. / 360. * IGLOB )
! JMIN = NINT( 30. / 180. * JGLOB )
! JMAX = NINT( 105. / 180. * JGLOB )
! ELSEIF ( K == 4 ) THEN
! LOCATION = ' Europe'
! IMIN = NINT( 165. / 360. * IGLOB )
! IMAX = NINT( 240. / 360. * IGLOB )
! JMIN = NINT( 125. / 180. * JGLOB )
! JMAX = NINT( 170. / 180. * JGLOB )
! ELSEIF ( K == 5 ) THEN
! LOCATION = ' Asia'
! IMIN = NINT( 240. / 360. * IGLOB )
! IMAX = NINT( 350. / 360. * IGLOB )
! JMIN = NINT( 90. / 180. * JGLOB )
! JMAX = NINT( 170. / 180. * JGLOB )
! ELSEIF ( K == 6 ) THEN
! LOCATION = ' Africa'
! IMIN = NINT( 160. / 360. * IGLOB )
! IMAX = NINT( 235. / 360. * IGLOB )
! JMIN = NINT( 50. / 180. * JGLOB )
! JMAX = NINT( 125. / 180. * JGLOB )
! ENDIF
!
! DO I = IMIN,IMAX
! DO J = JMIN,JMAX
! TOTAL = TOTAL + EMISSIONS(I,J) * SCALAR
! ENDDO
! ENDDO
!
! WRITE(6,'(a,a,a,a,a,F7.2,1x,a15)') 'Total ', TRIM(DESCRIPTION),
! & ' Emissions, ', TRIM(LOCATION), ': ', TOTAL,
! & TRIM(OUTUNITS)
!
! ENDDO
!
! ! Return to calling program
! END SUBROUTINE OUTPUT_TOTAL_2D
!
!------------------------------------------------------------------------------
SUBROUTINE INIT_EDGAR
!
!******************************************************************************
! Subroutine INIT_EDGAR allocates and initializes all module arrays.
! (avd, bmy, 7/14/06)
!
! NOTES:
! (1 ) Now allocates SHIP arrays only if LEDGARSHIP is TRUE (5/13/08)
!******************************************************************************
!
! Reference to F90 modules
USE GRID_MOD, ONLY : GET_AREA_CM2
USE ERROR_MOD, ONLY : ALLOC_ERR
USE LOGICAL_MOD, ONLY : LEDGARSHIP
# include "CMN_SIZE" ! Size parameters
! Local Variables
INTEGER :: AS, J
!============================================================
! INIT_EDGAR begins here!
!============================================================
ALLOCATE( EDGAR_NOx( IIPAR, JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_NOx' )
EDGAR_NOx = 0d0
ALLOCATE( EDGAR_CO( IIPAR, JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_CO' )
EDGAR_CO = 0d0
ALLOCATE( EDGAR_SO2( IIPAR, JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_SO2' )
EDGAR_SO2 = 0d0
! IF ( LEDGARSHIP ) THEN
ALLOCATE( EDGAR_SO2_SHIP( IIPAR, JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_SO2_SHIP' )
EDGAR_SO2_SHIP = 0d0
ALLOCATE( EDGAR_NOx_SHIP( IIPAR, JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_NOx_SHIP' )
EDGAR_NOx_SHIP = 0d0
ALLOCATE( EDGAR_CO_SHIP( IIPAR, JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_CO_SHIP' )
EDGAR_CO_SHIP = 0d0
! ENDIF
ALLOCATE( EDGAR_TODN( IIPAR, JJPAR, N_HOURS ), STAT=AS )
IF (AS /= 0 ) CALL ALLOC_ERR( 'EDGAR_TODN' )
EDGAR_TODN = 0d0
!---------------------------------------------------
! Pre-store array for grid box surface area in cm2
!---------------------------------------------------
ALLOCATE( A_CM2( JJPAR ), STAT=AS )
IF ( AS /= 0 ) CALL ALLOC_ERR( 'A_CM2' )
DO J = 1, JJPAR
A_CM2(J) = GET_AREA_CM2( J )
ENDDO
! Return to calling program
END SUBROUTINE INIT_EDGAR
!------------------------------------------------------------------------------
SUBROUTINE CLEANUP_EDGAR
!
!******************************************************************************
! Subroutine CLEANUP_EDGAR deallocates all module arrays, (avd, bmy, 7/14/06)
!
! NOTES:
!******************************************************************************
!
!=================================================================
! CLEANUP_EDGAR begins here!
!=================================================================
IF ( ALLOCATED( A_CM2 ) ) DEALLOCATE( A_CM2 )
IF ( ALLOCATED( EDGAR_NOx ) ) DEALLOCATE( EDGAR_NOx )
IF ( ALLOCATED( EDGAR_CO ) ) DEALLOCATE( EDGAR_CO )
IF ( ALLOCATED( EDGAR_SO2 ) ) DEALLOCATE( EDGAR_SO2 )
IF ( ALLOCATED( EDGAR_SO2_SHIP ) ) DEALLOCATE( EDGAR_SO2_SHIP )
IF ( ALLOCATED( EDGAR_CO_SHIP ) ) DEALLOCATE( EDGAR_CO_SHIP )
IF ( ALLOCATED( EDGAR_NOX_SHIP ) ) DEALLOCATE( EDGAR_NOx_SHIP )
IF ( ALLOCATED( EDGAR_TODN ) ) DEALLOCATE( EDGAR_TODN )
! Return to calling program
END SUBROUTINE CLEANUP_EDGAR
!------------------------------------------------------------------------------
! End of module
END MODULE EDGAR_MOD
Reference in New Issue View Git Blame Copy Permalink