Skip to content

Commit

Permalink
POP%prod should be non-negative
Browse files Browse the repository at this point in the history
It was inadvertently set to zero when POC%prod was not positive. Testing
seems to show that the cases where POC%prod <= 0 and POP%prod > 0 were
rare, because CESM tests are remaining bit-for-bit with this change.
  • Loading branch information
mnlevy1981 committed Apr 11, 2018
1 parent a1a3e99 commit ec4b7d4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/marbl_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3975,7 +3975,7 @@ subroutine marbl_compute_large_detritus_prod(k, auto_cnt, zoo_cnt, &

POP%prod(k) = Qp_zoo * (sum(zoo_loss_poc(:)) + sum(zoo_graze_poc(:))) + sum(remaining_P_pop(:))

if (POC%prod(k) <= c0) POP%prod(k) = c0
if (POP%prod(k) < c0) POP%prod(k) = c0

!-----------------------------------------------------------------------
! large detrital CaCO3
Expand Down

0 comments on commit ec4b7d4

Please sign in to comment.