Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 5 additions & 3 deletions biogeochem/EDPatchDynamicsMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3619,14 +3619,16 @@ subroutine terminate_patches(currentSite, bc_in)
end do

if ( associated(largest_patch) ) then
warn_msg = 'small nocomp patch wasnt able to find a matching patch to '// &
if(debug) then
warn_msg = 'small nocomp patch wasnt able to find a matching patch to '// &
'fuse with; relabelling and fusing into the largest patch of '// &
'the same land-use label. '// &
'nocomp pft: '//trim(I2S(currentPatch%nocomp_pft_label))// &
'lu label: '//trim(I2S(currentPatch%land_use_label))// &
'area: '//trim(N2S(currentPatch%area))
call FatesWarn(warn_msg,index=5)


call FatesWarn(warn_msg,index=5)
end if
Comment on lines +3622 to +3631
! relabel currentPatch to the allowed pft before fusing so the
! nocomp_pft_label check in fuse_2_patches passes
currentPatch%nocomp_pft_label = largest_patch%nocomp_pft_label
Expand Down