Add MEGAN2 BVOC emission process

src/api/CMakeLists.txt

@@ -8,6 +8,7 @@ target_link_libraries(${_lib} PUBLIC CATChem_process_dust)
 target_link_libraries(${_lib} PUBLIC CATChem_process_seasalt)
 target_link_libraries(${_lib} PUBLIC CATChem_process_plumerise)
 target_link_libraries(${_lib} PUBLIC CATChem_process_drydep)
+target_link_libraries(${_lib} PUBLIC CATChem_process_bvoc)
 set_target_properties(
   ${_lib}
   PROPERTIES Fortran_MODULE_DIRECTORY ${CMAKE_BINARY_DIR}/include

src/api/catchem.F90

@@ -83,6 +83,13 @@ module CATChem
    use CCPr_DryDep_mod, only: cc_drydep_run => CCPr_DryDep_Run           !< DryDep Process Run Routine
    use CCPr_DryDep_mod, only: cc_drydep_finalize => CCPr_DryDep_Finalize !< DryDep Process Finalization Routine
 
+   ! Megan
+   use CCPr_Bvoc_Common_Mod, only: BvocStateType                              !< Megan State
+   use CCPr_Bvoc_mod, only: cc_bvoc_init => CCPr_Bvoc_Init                   !< Megan Process Initialization Routine
+   use CCPr_Bvoc_mod, only: cc_bvoc_run => CCPr_Bvoc_Run                     !< Megan Process Run Routine
+   use CCPr_Bvoc_mod, only: cc_bvoc_finalize => CCPr_Bvoc_Final              !< Megan Process Finalization Routine
+
+   !
    implicit none
 
    public

src/core/config_mod.F90

@@ -155,6 +155,15 @@ SUBROUTINE Read_Input_File( Config , GridState, EmisState, ChemState, RC, Config
          RETURN
       ENDIF
 
+      call Config_Process_Bvoc(ConfigInput, Config, RC)
+      IF ( RC /= CC_SUCCESS ) THEN
+         errMsg = 'Error in "Config_Process_Bvoc"!'
+         CALL CC_Error( errMsg, RC, thisLoc  )
+         CALL QFYAML_CleanUp( ConfigInput         )
+         CALL QFYAML_CleanUp( ConfigAnchored )
+         RETURN
+      ENDIF
+
       call Config_Process_Plumerise(ConfigInput, Config, RC)
       IF ( RC /= CC_SUCCESS ) THEN
          errMsg = 'Error in "Config_Process_Plumerise"!'
@@ -1373,4 +1382,97 @@ SUBROUTINE Config_Process_DryDep( ConfigInput, Config, RC )
    END SUBROUTINE Config_Process_DryDep
 
 
+   !> \brief Process BVOC configuration
+   !!
+   !! This function processes the biogenic VOC configuration and performs the necessary actions based on the configuration.
+   !!
+   !! \param[in] ConfigInput The YAML configuration object
+   !! \param[inout] Config The configuration object
+   !! \param[out] RC The return code
+   !!
+   !! \ingroup core_modules
+   !!!>
+   SUBROUTINE Config_Process_Bvoc( ConfigInput, Config, RC )
+      USE CharPak_Mod,    ONLY : StrSplit
+      USE Error_Mod
+      USE Config_Opt_Mod,  ONLY : ConfigType
+
+      TYPE(QFYAML_t),      INTENT(INOUT) ::ConfigInput      ! YAML Config object
+      TYPE(ConfigType),     INTENT(INOUT) :: Config   ! Input options
+
+      !
+      ! !OUTPUT PARAMETERS:
+      !
+      INTEGER,        INTENT(OUT)   :: RC          ! Success or failure
+      ! !LOCAL VARIABLES:
+      !
+      ! Scalars
+      LOGICAL                      :: v_bool
+      INTEGER                      :: v_int
+      ! Reals
+      REAL(fp)                     :: v_real
+      ! Strings
+      CHARACTER(LEN=255)           :: thisLoc
+      CHARACTER(LEN=512)           :: errMsg
+      CHARACTER(LEN=QFYAML_StrLen) :: key
+
+      !========================================================================
+      ! Config_Process_Bvoc begins here!
+      !========================================================================
+
+      ! Initialize
+      RC      = CC_SUCCESS
+      thisLoc = ' -> at Config_Process_Bvoc (in CATChem/src/core/config_mod.F90)'
+      errMsg = ''
+      ! TODO #105 Fix reading of config file
+      key   = "process%bvoc%activate"
+      v_bool = MISSING_BOOL
+      CALL QFYAML_Add_Get( ConfigInput, TRIM( key ), v_bool, "", RC )
+      IF ( RC /= CC_SUCCESS ) THEN
+         errMsg = 'Error parsing ' // TRIM( key ) // '!'
+         CALL CC_Error( errMsg, RC, thisLoc )
+         RETURN
+      ENDIF
+      Config%bvoc_activate = v_bool
+
+      key   = "process%bvoc%scheme_opt"
+      v_int = MISSING_INT
+      CALL QFYAML_Add_Get( ConfigInput, TRIM( key ), v_int, "", RC )
+      IF ( RC /= CC_SUCCESS ) THEN
+         errMsg = TRIM( key ) // 'Not Found, Setting Default to 1'
+         CALL CC_Error( errMsg, RC, thisLoc )
+         v_int = 1 ! default is one
+      ENDIF
+      Config%bvoc_scheme = v_int
+
+      key   = "process%bvoc%co2_inhib"
+      v_bool = MISSING_BOOL
+      CALL QFYAML_Add_Get( ConfigInput, TRIM( key ), v_bool, "", RC )
+      IF ( RC /= CC_SUCCESS ) THEN
+         errMsg = TRIM( key ) // 'Not Found, Setting Default to TRUE'
+         CALL CC_Error( errMsg, RC, thisLoc )
+         v_bool = .TRUE. ! default is true
+      ENDIF
+      Config%megan_co2_inhib = v_bool
+
+      key = 'process%bvoc%co2_conc_ppm'
+      v_real = MISSING_REAL
+      CALL QFYAML_Add_Get( ConfigInput, TRIM( key ), v_real, "", RC )
+      IF ( RC /= CC_SUCCESS ) THEN
+         errMsg = TRIM( key ) // 'Not Found, Setting Default to 390.0'
+         CALL CC_Error( errMsg, RC, thisLoc )
+         v_real = 390.0_fp ! default is 390 ppm
+      ENDIF
+      Config%megan_co2_conc_ppm = v_real
+
+      write(*,*) "BVOC Configuration"
+      write(*,*) '------------------------------------'
+      write(*,*) 'Config%bvoc_activate = ', Config%bvoc_activate
+      write(*,*) 'Config%bvoc_scheme = ', Config%bvoc_scheme
+      write(*,*) 'Config%megan_co2_inhib = ', Config%megan_co2_inhib
+      write(*,*) 'Config%megan_co2_conc_ppm = ', Config%megan_co2_conc_ppm
+      write(*,*) '------------------------------------'
+
+   END SUBROUTINE Config_Process_Bvoc
+
 END MODULE config_mod

src/core/config_opt_mod.F90

@@ -45,6 +45,9 @@ MODULE Config_Opt_Mod
    !! - `drydep_activate` : Activate drydep process
    !! - `drydep_scheme` : Scheme option for drydep process
    !! - `drydep_resuspension` : Activate resuspension
+   !! - `bvoc_activate` : Activate BVOC process
+   !! - `megan_co2_inhib` : use CO2 inhibition for isoprene?
+   !! - `megan_co2_conc_ppm` : If so, provide CO2 concentrations
    !!
    !! \ingroup core_modules
    !!!>
@@ -94,6 +97,12 @@ MODULE Config_Opt_Mod
       INTEGER                     :: seasalt_scheme
       real(fp)                    :: seasalt_scalefactor
 
+      ! BVOC Process
+      LOGICAL                     :: bvoc_activate
+      INTEGER                     :: bvoc_scheme
+      LOGICAL                     :: megan_co2_inhib
+      real(fp)                    :: megan_co2_conc_ppm
+
       ! Plumerise Process
       LOGICAL                     :: plumerise_activate
 
@@ -176,6 +185,12 @@ SUBROUTINE Set_Config( am_I_Root, Config, RC )
       Config%drydep_scheme = 1
       Config%drydep_resuspension = .FALSE.
 
+      !BVOC Process
+      Config%bvoc_activate = .FALSE.
+      Config%bvoc_scheme = 1
+      Config%megan_co2_inhib = .TRUE.
+      Config%megan_co2_conc_ppm = 390.0_fp
+
    END SUBROUTINE Set_Config
    !> \brief Cleanup the Config options
    !!

src/core/diagstate_mod.F90

@@ -51,6 +51,15 @@ module DiagState_Mod
       real(fp), allocatable :: drydep_frequency(:)
       real(fp), allocatable :: drydep_vel(:)
 
+      !add MEGAN historical variables
+      !TODO: this is better to be done in restart files if possible in the future
+      real(fp), allocatable :: T_LAST24H         !temperature of last 24 hours
+      real(fp), allocatable :: T_LASTXDAYS       !temperature of last NUM_DAYS
+      real(fp), allocatable :: PARDR_LASTXDAYS   !direct radiation of last NUM_DAYS
+      real(fp), allocatable :: PARDF_LASTXDAYS   !diffuse radiation of last NUM_DAYS
+      real(fp), allocatable :: PMISOLAI          !LAI of last 24 hours
+
+
       ! Species Specific Variables
 
 
@@ -124,6 +133,14 @@ subroutine Diag_Allocate(Config, DiagState, ChemState, RC)
 
       endif
 
+      ! If bvoc process is activated then allocate bvoc related diagnostics
+      if (Config%bvoc_activate) then
+         DiagState%T_LAST24H        = ZERO
+         DiagState%T_LASTXDAYS      = ZERO
+         DiagState%PARDR_LASTXDAYS  = ZERO
+         DiagState%PARDF_LASTXDAYS  = ZERO
+         DiagState%PMISOLAI         = ZERO
+      endif
 
 
    end subroutine Diag_Allocate

src/core/metstate_mod.F90

@@ -192,6 +192,29 @@ MODULE MetState_Mod
       REAL(fp), ALLOCATABLE :: PMID(:)        !< Average wet air pressure [hPa] defined as arithmetic average of edge pressures
       REAL(fp), ALLOCATABLE :: PMID_DRY(:)    !< Dry air partial pressure [hPa] defined as arithmetic avg of edge pressures
 
+      ! Some met fields need for MEGAN but not included yet. Some variables can be calculated online in the future
+      !---------------------
+      real(fp)          :: PMISOLAI           !< LAI of previous month
+      real(fp), pointer :: PFT_16(:)          !< plant functional type fraction
+      real(fp)          :: Q_DIR_2            !< surface downwelling par diffuse flux
+      real(fp)          :: Q_DIFF_2           !< surface downwelling par beam flux
+      real(fp)          :: PARDR_LASTXDAYS    !< Avg. PARDF of last NUM_DAYS
+      real(fp)          :: PARDF_LASTXDAYS    !< Avg. PARDR of last NUM_DAYS
+      real(fp)          :: T_LASTXDAYS        !< Avg. temperature of last NUM_DAYS
+      real(fp)          :: T_LAST24H          !< Avg. temperature of last 24 hours
+      real(fp)          :: LAT                !< Latitude
+      integer           :: DOY                !< Day of year
+      real(fp)          :: LocalHour          !< Local hour
+      real(fp)          :: D_BTW_M            !< Days between mid-months
+      !now move to the online calculation of EFs for these seven species
+      !real(fp)          :: AEF_ISOP           !< Emission factor of ISOP read from file
+      !real(fp)          :: AEF_MBOX           !< Emission factor of MBOX read from file
+      !real(fp)          :: AEF_BPIN           !< Emission factor of BPIN read from file
+      !real(fp)          :: AEF_CARE           !< Emission factor of CARE read from file
+      !real(fp)          :: AEF_LIMO           !< Emission factor of LIMO read from file
+      !real(fp)          :: AEF_OCIM           !< Emission factor of OCIM read from file
+      !real(fp)          :: AEF_SABI           !< Emission factor of SABI read from file
+
    END TYPE MetStateType
 
 CONTAINS

src/process/CMakeLists.txt

@@ -4,3 +4,4 @@ add_subdirectory(dust)
 add_subdirectory(seasalt)
 add_subdirectory(plumerise)
 add_subdirectory(drydep)
+add_subdirectory(bvoc)