From 0ec43dcb188f7793c6a56f493a1fdbdbcceeda22 Mon Sep 17 00:00:00 2001 From: mvdebolskiy Date: Tue, 3 Dec 2024 17:37:21 +0100 Subject: [PATCH] revert check for sp, add patch type in the endrun. --- src/biogeochem/VOCEmissionMod.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/biogeochem/VOCEmissionMod.F90 b/src/biogeochem/VOCEmissionMod.F90 index affb3d5073..6310cc3088 100644 --- a/src/biogeochem/VOCEmissionMod.F90 +++ b/src/biogeochem/VOCEmissionMod.F90 @@ -85,14 +85,14 @@ module VOCEmissionMod !------------------------------------------------------------------------ subroutine Init(this, bounds) - use clm_varctl, only : use_fates, use_fates_nocomp, use_fates_sp + use clm_varctl, only : use_fates, use_fates_nocomp class(vocemis_type) :: this type(bounds_type), intent(in) :: bounds if ( shr_megan_mechcomps_n > 0) then if (use_fates) then - if (.not. (use_fates_nocomp .or. use_fates_sp)) then + if (.not. use_fates_nocomp) then ! SP implies NOCOMP is on. call endrun( msg='ERROR: MEGAN currently only works with when FATES is in SP and/or NOCOMP mode '//& errMsg(sourcefile, __LINE__)) end if @@ -626,7 +626,7 @@ subroutine VOCEmission (bounds, num_soilp, filter_soilp, & if (trim(meg_cmp%name) == 'isoprene') then ! Check of valid intercellular co2 pressure values. if (cisha_z(p,nlevcan) < smallValue .or. cisun_z(p,nlevcan) < smallValue) then - write(iulog,*) 'Invalid intercellular co2 pressure (sunlit, shaded): ',cisun_z(p,nlevcan),cisha_z(p,nlevcan) + write(iulog,*) 'Invalid intercellular co2 pressure (patch itype, sunlit, shaded): ', l_pft_itype(p),cisun_z(p,nlevcan),cisha_z(p,nlevcan) call endrun(subgrid_index=p, subgrid_level=subgrid_level_patch, msg=errMsg(sourcefile, __LINE__)) endif co2_ppmv = 1.e6_r8*forc_pco2(g)/forc_pbot(c)