Add files via upload
This commit is contained in:
Xuesong (Steve)
313
code/logical_mod.f
Normal file
313
code/logical_mod.f
Normal file
@ -0,0 +1,313 @@
|
||||
! $Id: logical_mod.f,v 1.5 2012/03/01 22:00:26 daven Exp $
|
||||
MODULE LOGICAL_MOD
|
||||
!
|
||||
!******************************************************************************
|
||||
! Module LOGICAL_MOD contains all of the logical switches used by GEOS-CHEM.
|
||||
! (bmy, 7/9/04, 9/24/07)
|
||||
!
|
||||
! Module Variables:
|
||||
! ============================================================================
|
||||
! (1 ) LAIRNOX (LOGICAL) : ON/OFF switch for aircraft NOx emissions
|
||||
! (2 ) LATEQ (LOGICAL) : --
|
||||
! (3 ) LAVHRRLAI (LOGICAL) : ON/OFF switch for reading AVHRR-derived LAI data
|
||||
! (4 ) LBIONOX (LOGICAL) : ON/OFF switch for biomass burning emissions
|
||||
! (5 ) LBBSEA (LOGICAL) : ON/OFF switch for seasonal biomass emissions
|
||||
! (6 ) LCARB (LOGICAL) : ON/OFF switch for ONLINE CARBONACEOUS AEROSOLS
|
||||
! (7 ) LCHEM (LOGICAL) : ON/OFF switch for CHEMISTRY
|
||||
! (8 ) LCONV (LOGICAL) : ON/OFF switch for CLOUD CONVECTION
|
||||
! (9 ) LDBUG (LOGICAL) : --
|
||||
! (10) LDEAD (LOGICAL) : Toggles DEAD (=T) or GOCART (=F) dust emissions
|
||||
! (11) LDIAG (LOGICAL) : --
|
||||
! (12) LDRYD (LOGICAL) : ON/OFF switch for DRY DEPOSITION
|
||||
! (13) LDUST (LOGICAL) : ON/OFF switch for online DUST MOBILIZATION
|
||||
! (14) LEMBED (LOGICAL) : ON/OFF switch for EMBEDDED CHEMISTRY
|
||||
! (15) LEMEP (LOGICAL) : ON/OFF switch for EMEP EUROPEAN EMISSIONS
|
||||
! (16) LEMIS (LOGICAL) : ON/OFF switch for EMISSIONS
|
||||
! (17) LFFNOX (LOGICAL) : ON/OFF switch for FOSSIL FUEL NOx
|
||||
! (18) LFILL (LOGICAL) : Argument for TPCORE (transport)
|
||||
! (19) LFOSSIL (LOGICAL) : ON/OFF switch for ANTHROPOGENIC EMISSIONS
|
||||
! (20) LLIGHTNOX (LOGICAL) : ON/OFF switch for LIGHTNING NOx EMISSIONS
|
||||
! (21) LCTH (LOGICAL) : ON/OFF switch for CTH LIGHTNING PARAMETERIZATION
|
||||
! (22) LMFLUX (LOGICAL) : ON/OFF switch for MFLUX LIGHTNING PARAMETERIZ'N
|
||||
! (23) LPRECON (LOGICAL) : ON/OFF switch for PRECON LIGHTNING PARAMETERIZ'N
|
||||
! (24) LMEGAN (LOGICAL): ON/OFF switch for MEGAN BIOGENIC EMISSIONS for ISOP
|
||||
! (24) LMEGANMONO (LOGICAL): ON/OFF switch for MEGAN BIOGENIC EMISSIONS
|
||||
! for MONO and MBO.
|
||||
! (25) LMFCT (LOGICAL) : Argument for TPCORE (transport)
|
||||
! (26) LMONOT (LOGICAL) : Scales acetone to monoterpene emission
|
||||
! (27) LNEI99 (LOGICAL) : Toggles on EPA/NEI 99 emissions over cont. USA
|
||||
! (28) LPRT (LOGICAL) : Toggles ND70 debug output (via DEBUG_MSG)
|
||||
! (29) LSHIPSO2 (LOGICAL) : ON/OFF switch for SO2 EMISSIONS FROM SHIP EXHAUST
|
||||
! (30) LSOA (LOGICAL) : ON/OFF switch for SECONDARY ORGANIC AEROSOLS
|
||||
! (31) LSOILNOX (LOGICAL) : ON/OFF switch for SOIL NOx EMISSIONS
|
||||
! (32) LSPLIT (LOGICAL) : Splits
|
||||
! (33) LSSALT (LOGICAL) : ON/OFF switch for online SEA SALT AEROSOLS
|
||||
! (34) LSTDRUN (LOGICAL) : ON/OFF switch to save init/final masses std runs
|
||||
! (35) LSULF (LOGICAL) : ON/OFF switch for online SULFATE AEROSOLS
|
||||
! (36) LSVGLB (LOGICAL) : ON/OFF switch for SAVING A RESTART FILE
|
||||
! (37) LTPFV (LOGICAL) : If =T, will use fvDAS TPCORE for GEOS-3 winds
|
||||
! (38) LTRAN (LOGICAL) : ON/OFF switch for TRANSPORT
|
||||
! (39) LTOMSAI (LOGICAL) : ON/OFF switch for scaling biomass w/ TOMS AI data
|
||||
! (40) LTURB (LOGICAL) : ON/OFF switch for PBL MIXING
|
||||
! (41) LUNZIP (LOGICAL) : ON/OFF switch for unzipping met field data
|
||||
! (42) LUPBD (LOGICAL) : ON/OFF switch for STRATOSPHERIC O3, NOy BC's
|
||||
! (43) LWAIT (LOGICAL) : ON/OFF switch for unzipping met fields in fg
|
||||
! (44) LWETD (LOGICAL) : ON/OFF switch for WET DEPOSITION
|
||||
! (45) LWINDO (LOGICAL) : ON/OFF switch for WINDOW TRANSPORT (usually 1x1)
|
||||
! (46) LWOODCO (LOGICAL) : ON/OFF switch for BIOFUEL EMISSIONS
|
||||
! (47) LDYNOCEAN (LOGICAL) : ON/OFF switch for OCEAN MERCURY MODULE
|
||||
! (48) LGFED2BB (LOGICAL) : ON/OFF switch for GFED2 BIOMASS BURNING
|
||||
! (49) LBRAVO (LOGICAL) : ON/OFF switch for BRAVO EMISSIONS
|
||||
! (50) LEDGAR (LOGICAL) : ON/OFF switch for EDGAR emissions
|
||||
! (51) LEDGARNOx (LOGICAL) : ON/OFF switch for EDGAR NOx emissions
|
||||
! (52) LEDGARCO (LOGICAL) : ON/OFF switch for EDGAR CO emissions
|
||||
! (53) LEDGARSHIP(LOGICAL) : ON/OFF switch for EDGAR ship exhaust emissions
|
||||
! (54) LEDGARSOx (LOGICAL) : ON/OFF switch for EDGAR SOx emissions
|
||||
! (55) LSTREETS (LOGICAL) : ON/OFF switch for David Streets' emissions
|
||||
! (56) LVARTROP (LOGICAL) : ON/OFF switch for Variable Tropopause
|
||||
! (57) LOTDREG (LOGICAL) : ON/OFF switch for OTD-LIS regional redistribution
|
||||
! (57) LOTDLOC (LOGICAL) : ON/OFF switch for OTD-LIS local redistribution
|
||||
! (58) LOTDSCALE (LOGICAL) : ON/OFF switch for scaling to OTD-LIS climatology
|
||||
! (59) LCAC (LOGICAL) : ON/OFF switch for CAC Canadian anthro emissions
|
||||
! (60) LARCSHIP (LOGICAL) : ON/OFF switch for ARCTAS ship SO2 emissions
|
||||
! (61) LEMEPSHIP (LOGICAL) : ON/OFF switch for EMEP ship emissions
|
||||
! (62) LVISTAS (LOGICAL) : ON/OFF switch for VISTAS NOX anthro emissions
|
||||
! (63) L8DAYBB (LOGICAL) : ON/OFF switch for 8-day GFED BB emissions
|
||||
! (64) L3HRBB (LOGICAL) : ON/OFF switch for 3-hr GFED BB emissions
|
||||
! (65) LSYNOPBB (LOGICAL) : ON/OFF switch for synoptic GFED BB emissions
|
||||
! (66) LICARTT (LOGICAL) : ON/OFF switch for modified NEI99-EPA
|
||||
!
|
||||
! (67) LSVCSPEC (LOGICAL) : ON/OFF switch for using CSPEC restart values
|
||||
!
|
||||
! (68) LDICARB (LOGICAL) : ON/OFF switch for SOG condensation
|
||||
! onto OC aerosols
|
||||
! (69) LCOOKE (LOGICAL) : ON/OFF switch for overwritting OC/BC emissions
|
||||
! from BOND with COOKE data over North America
|
||||
!
|
||||
! (??) LGENFF (LOGICAL) : ON/OFF switch for generic fossil fuel emisions (1995)
|
||||
! (??) LANNFF (LOGICAL) : ON/OFF switch for annual fossil fuel emissions
|
||||
! (??) LMONFF (LOGICAL) : ON/OFF switch for monthly fossil fuel emissions
|
||||
! (??) LBIONETORIG (LOGICAL) : ON/OFF switch for original Net Terrestrial Exchange
|
||||
! (??) LBIONETCLIM (LOGICAL) : ON/OFF switch for Net Terrestrial Exchange Climatology
|
||||
! (??) LBDIURNAL (LOGICAL) : ON/OFF switch for biospheric diurnal cycle
|
||||
! (??) LOCEAN (LOGICAL) : ON/OFF switch for ocean exchange
|
||||
! (??) LFFBKGRD (LOGICAL) : ON/OFF switch for saving fossil fuels in tagged CO2 background
|
||||
! (??) LOCN1997 (LOGICAL) : ON/OFF switch for generic ocean exchange (Takahashi 1997)
|
||||
! (??) LOCN2009ANN (LOGICAL) : ON/OFF switch for annual fossil fuel emissions
|
||||
! (??) LOCN2009MON (LOGICAL) : ON/OFF switch for monthly fossil fuel emissions
|
||||
! (??) LSHIPEDG (LOGICAL) : ON/OFF switch for EDGAR CO2 ship emissions
|
||||
! (??) LSHIPICO (LOGICAL) : ON/OFF switch for CO2 ship emissions from ICOADS
|
||||
! (??) LSHIPSCALE (LOGICAL) : ON/OFF switch for Temporal scaling of CO2 ship emissions
|
||||
! (??) LPLANE (LOGICAL) : ON/OFF switch for CO2 aircraft emissions
|
||||
! (??) LPLANESCALE (LOGICAL) : ON/OFF switch for Temporal scaling of CO2 aviation emissions
|
||||
! (??) LBIOSPHTAG (LOGICAL) : ON/OFF switch for land biosphere tagged CO2 regions
|
||||
! (??) LFOSSILTAG (LOGICAL) : ON/OFF switch for fossil fuel tagged CO2 regions
|
||||
! (??) LSHIPTAG (LOGICAL) : ON/OFF switch for global ship emissions tagged tracer
|
||||
! (??) LPLANETAG (LOGICAL) : ON/OFF switch for global aircraft emissions tagged tracer
|
||||
! (??) LCHEMCO2 (LOGICAL) : ON/OFF switch for global 3-D CO2 from oxidation of CO, CH4 etc.
|
||||
!
|
||||
! NOTES:
|
||||
! (1 ) Added LNEI99 switch to toggle EPA/NEI emissions (bmy, 11/5/04)
|
||||
! (2 ) Added LAVHRRLAI switch to toggle AVHRR LAI fields (bmy, 12/20/04)
|
||||
! (3 ) Added LMEGAN switch to toggle MEGAN biogenics (tmf, bmy, 10/20/05)
|
||||
! (4 ) Added LEMEP switch to toggle EMEP anthro emissions (bdf, bmy, 11/1/05)
|
||||
! (5 ) Added LDYNOCEAN switch for online ocean Hg model (bmy, 2/24/06)
|
||||
! (6 ) Added LGFED2BB switch for GFED2 BIOMASS BURNING (bmy, 4/5/06)
|
||||
! (7 ) Added LCTH, LMFLUX, LPRECON for lightning options (ltm, bmy, 5/5/06)
|
||||
! (8 ) Added LFUTURE (swu, bmy, 5/30/06)
|
||||
! (9 ) Added LBRAVO (rjp, kfb, bmy, 6/26/06)
|
||||
! (10) Added LEDGAR, LEDGARNOx, LEDGARCO, LEDGARSHIP, LEDGARSOx switches
|
||||
! for EDGAR emissions (avd, bmy, 7/6/06)
|
||||
! (11) Added LSTREETS for David Streets' emissions (bmy, 8/17/06)
|
||||
! (12) Added LVARTROP for variable tropopause (phs, 8/21/06)
|
||||
! (13) Added LOTDREG, LOTDLOC for regional or local OTD-LIS redistribution
|
||||
! of lightning flashes. (bmy, 1/31/07)
|
||||
! (14) Added LOTDSCALE (ltm, bmy, 9/24/07)
|
||||
! (15) Added LCAC, LARCSHIP, LEMEPSHIP (amv, phs, 3/8/08)
|
||||
! (16) Added LVISTAS (amv, 11/24/08)
|
||||
! (17) Added L8DAYBB, L3HRBB and LSYNOPBB for 8-day and 3-hr GFED BB
|
||||
! emissions (yc, phs, 02/12/07)
|
||||
! (18) Added LICARTT to account for Hudman corrections to EPA/NEI99
|
||||
! (phs, 1/26/09)
|
||||
! (19) Added LSVCSPEC (dkh, 02/12/09)
|
||||
! (20) Added LMEGANMONO (ccc, tmf, 3/2/09)
|
||||
! (21) Added LDICARB (ccc, tmf, 3/10/09)
|
||||
! (23) Added LCOOKE (phs, 5/18/09)
|
||||
! (24) Added support for LSCHEM from v9-01-02 (hml, dkh, 02/20/12, adj32_025)
|
||||
! 07 Sep 2011 - P. Kasibhatla - Modified to include GFED3
|
||||
!******************************************************************************
|
||||
!
|
||||
IMPLICIT NONE
|
||||
|
||||
!=================================================================
|
||||
! MODULE VARIABLES
|
||||
!=================================================================
|
||||
|
||||
! Aerosols
|
||||
LOGICAL :: LATEQ
|
||||
LOGICAL :: LCARB
|
||||
LOGICAL :: LCRYST
|
||||
LOGICAL :: LCOOKE
|
||||
LOGICAL :: LDEAD
|
||||
LOGICAL :: LDUST
|
||||
LOGICAL :: LSULF
|
||||
LOGICAL :: LSOA
|
||||
LOGICAL :: LSSALT
|
||||
LOGICAL :: LDICARB
|
||||
|
||||
! Chemistry
|
||||
LOGICAL :: LCHEM
|
||||
LOGICAL :: LEMBED
|
||||
LOGICAL :: LSCHEM ! Use linearized strat chemistry? (hml,06/29/11)
|
||||
|
||||
! Cloud convection
|
||||
LOGICAL :: LCONV
|
||||
|
||||
! Diagnostics
|
||||
LOGICAL :: LDBUG
|
||||
LOGICAL :: LDIAG
|
||||
LOGICAL :: LPRT
|
||||
LOGICAL :: LSTDRUN
|
||||
|
||||
! Dry deposition
|
||||
LOGICAL :: LDRYD
|
||||
|
||||
! Emissions
|
||||
LOGICAL :: LAIRNOX
|
||||
LOGICAL :: LANTHRO
|
||||
LOGICAL :: LBBSEA
|
||||
LOGICAL :: LBIONOX ! <-- deprecated: replace w/ LBIOMASS soon
|
||||
LOGICAL :: LBIOMASS
|
||||
LOGICAL :: LBIOFUEL
|
||||
LOGICAL :: LBIOGENIC
|
||||
LOGICAL :: LCAC
|
||||
LOGICAL :: LBRAVO
|
||||
LOGICAL :: LEDGAR
|
||||
LOGICAL :: LEDGARNOx
|
||||
LOGICAL :: LEDGARCO
|
||||
LOGICAL :: LEDGARSHIP
|
||||
LOGICAL :: LEDGARSOx
|
||||
LOGICAL :: LEMEP
|
||||
LOGICAL :: LEMIS
|
||||
LOGICAL :: LFFNOX
|
||||
LOGICAL :: LFOSSIL ! <-- deprecated: replace w/ LANTHRO soon
|
||||
LOGICAL :: LSTREETS
|
||||
LOGICAL :: LICARTT
|
||||
LOGICAL :: LICOADSSHIP ! Use ICOADS ship emissions inventory
|
||||
LOGICAL :: LLIGHTNOX
|
||||
LOGICAL :: LOTDREG
|
||||
LOGICAL :: LOTDLOC
|
||||
LOGICAL :: LOTDSCALE ! (ltm, 9/24/07)
|
||||
LOGICAL :: LCTH
|
||||
LOGICAL :: LMFLUX
|
||||
LOGICAL :: LPRECON
|
||||
LOGICAL :: LMEGAN
|
||||
LOGICAL :: LMEGANMONO
|
||||
LOGICAL :: LMONOT
|
||||
LOGICAL :: LNEI99
|
||||
LOGICAL :: LNEI05 ! Use EPA 2005 regional emissions?
|
||||
LOGICAL :: LNEI08 ! Use EPA 2008 regional emissions?
|
||||
LOGICAL :: LSHIPSO2
|
||||
LOGICAL :: LSOILNOX
|
||||
LOGICAL :: LTOMSAI
|
||||
LOGICAL :: LWOODCO ! <-- deprecated: replace w/ LBIOFUEL soon
|
||||
LOGICAL :: LAVHRRLAI
|
||||
LOGICAL :: LGFED2BB ! Use GFED2 biomass burning?
|
||||
LOGICAL :: LGFED3BB ! Use GFED3 biomass burning?
|
||||
LOGICAL :: LFUTURE
|
||||
LOGICAL :: LARCSHIP
|
||||
LOGICAL :: LEMEPSHIP
|
||||
LOGICAL :: LVISTAS
|
||||
LOGICAL :: L8DAYBB ! Use GFED2 8-day biomass burning?
|
||||
LOGICAL :: L3HRBB ! Use GFED2 3-hr biomass burning?
|
||||
LOGICAL :: LSYNOPBB ! Use GFED2 synoptic biomass burning
|
||||
LOGICAL :: LDAYBB3 ! Use GFED3 daily biomass burning?
|
||||
LOGICAL :: L3HRBB3 ! Use GFED3 3-hr biomass burning?
|
||||
LOGICAL :: LRETRO ! RETRO anthropogenic emissions (wfr, 3/8/11)
|
||||
LOGICAL :: LRCP ! RCP anthropogenic emissions (cdh, 10/14/11)
|
||||
LOGICAL :: LRCPSHIP ! RCP anthropogenic SHIP emissions (cdh, 10/14/11)
|
||||
LOGICAL :: LRCPAIR ! RCP anthro AIRCRAFT emissions (cdh,10/14/11)
|
||||
|
||||
! Transport and strat BC's
|
||||
LOGICAL :: LFILL
|
||||
LOGICAL :: LMFCT
|
||||
LOGICAL :: LTRAN
|
||||
LOGICAL :: LTPFV
|
||||
LOGICAL :: LUPBD
|
||||
LOGICAL :: LWINDO
|
||||
LOGICAL :: LLINOZ ! Use LINOZ chemistry in the stratosphere? (hml, 06/29/11)
|
||||
LOGICAL :: LWINDO2x25 ! update nested runs (lzh,02/01/2015)
|
||||
LOGICAL :: LWINDO_NA
|
||||
LOGICAL :: LWINDO_EU
|
||||
LOGICAL :: LWINDO_CH
|
||||
LOGICAL :: LWINDO_CU
|
||||
|
||||
! Met fields
|
||||
LOGICAL :: LUNZIP
|
||||
LOGICAL :: LWAIT
|
||||
|
||||
! PBL mixing
|
||||
LOGICAL :: LTURB
|
||||
|
||||
! Restart file
|
||||
LOGICAL :: LSVGLB
|
||||
LOGICAL :: LSVCSPEC
|
||||
|
||||
|
||||
! Tagged simulations
|
||||
LOGICAL :: LSPLIT
|
||||
|
||||
!Specifically for CO2 simulation (R Nassar, 2009-03-02 --> 2010-03-31)
|
||||
LOGICAL :: LGENFF
|
||||
LOGICAL :: LANNFF
|
||||
LOGICAL :: LMONFF
|
||||
LOGICAL :: LSEASBB
|
||||
LOGICAL :: LBIONETORIG
|
||||
LOGICAL :: LBIONETCLIM
|
||||
LOGICAL :: LBIODAILY
|
||||
LOGICAL :: LBIODIURNAL
|
||||
LOGICAL :: LOCEAN
|
||||
LOGICAL :: LFFBKGRD
|
||||
LOGICAL :: LBIOSPHTAG
|
||||
LOGICAL :: LFOSSILTAG
|
||||
LOGICAL :: LOCN1997
|
||||
LOGICAL :: LOCN2009ANN
|
||||
LOGICAL :: LOCN2009MON
|
||||
LOGICAL :: LSHIPEDG
|
||||
LOGICAL :: LSHIPICO
|
||||
LOGICAL :: LSHIPSCALE
|
||||
LOGICAL :: LSHIPTAG
|
||||
LOGICAL :: LPLANE
|
||||
LOGICAL :: LPLANESCALE
|
||||
LOGICAL :: LPLANETAG
|
||||
LOGICAL :: LCHEMCO2
|
||||
|
||||
|
||||
! Variable Tropopause
|
||||
LOGICAL :: LVARTROP
|
||||
|
||||
! Wet convection
|
||||
LOGICAL :: LWETD
|
||||
|
||||
! Dynamic ocean mercury model
|
||||
LOGICAL :: LDYNOCEAN
|
||||
|
||||
!%%%% For the CH4 offline simulation only %%%% (kjw, dkh, 02/12/12, adj32_023)
|
||||
LOGICAL :: LGAO ! Use gas & oil emissions?
|
||||
LOGICAL :: LCOL ! Use coal emissions?
|
||||
LOGICAL :: LLIV ! Use livestock emissions?
|
||||
LOGICAL :: LWAST ! Use waste emissions?
|
||||
LOGICAL :: LRICE ! Use rice emissions?
|
||||
LOGICAL :: LOTANT ! Use other anthropogenic emissions?
|
||||
LOGICAL :: LWETL ! Use wetland emissions?
|
||||
LOGICAL :: LSOABS ! Use soil absorption?
|
||||
LOGICAL :: LOTNAT ! Use other natural emissions?
|
||||
LOGICAL :: LBFCH4 ! Use CH4 biofuel emissions?
|
||||
LOGICAL :: LBMCH4 ! Use CH4 biomass emissions?
|
||||
LOGICAL :: LCH4BUD ! Use computing CH4 budget
|
||||
|
||||
! For HTAP
|
||||
LOGICAL :: LHTAP, LSRC_MASK, LRCPTR_MASK
|
||||
|
||||
! End of module
|
||||
END MODULE LOGICAL_MOD
|
||||
Reference in New Issue
Block a user