! $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