You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
if (use_pflotran .and. pf_cmode) then
! note: the follwoing should be useful to non-pflotran-coupled, but seems cause 1 BFB test unmatching.
! add up all vertical transport tendency terms and calculate total som leaching loss as the sum of these
do l = 1, ndecomp_pools
do fc = 1,num_soilc
c = filter_soilc(fc)
this%decomp_cpools_leached(c,l) = 0._r8
end do
do j = 1, nlev
do fc = 1,num_soilc
c = filter_soilc(fc)
this%decomp_cpools_leached(c,l) = &
this%decomp_cpools_leached(c,l) + &
this%decomp_cpools_transport_tendency(c,j,l) * dzsoi_decomp(j)
end do
end do
do fc = 1,num_soilc
c = filter_soilc(fc)
this%som_c_leached(c) = &
this%som_c_leached(c) + &
this%decomp_cpools_leached(c,l)
end do
end do
end if
Above, the col_cf%decomp_cpools_leached and col_cf%som_c_leached are only calculated with pflotran. This is inconsistent with the corresponding Nitrogen and Phosphorus pools so this is likely a bug.
Removing the if block yields DIFFs in these tests:
The code block in question is here:
ColumnDataType.F90 L7533
Above, the
col_cf%decomp_cpools_leached
andcol_cf%som_c_leached
are only calculated with pflotran. This is inconsistent with the corresponding Nitrogen and Phosphorus pools so this is likely a bug.Removing the if block yields DIFFs in these tests:
The text was updated successfully, but these errors were encountered: