From e10619f58cc40c26f609881f5b9ca55f57e3b27c Mon Sep 17 00:00:00 2001 From: Keith Lindsay Date: Fri, 26 May 2017 16:49:33 -0600 Subject: [PATCH] Tag Summary: fix bug #163 Testing: verified that this fixed an ERS failure that sometimes happened with high-PE count Files Modified: modified: src/marbl_mod.F90 --- src/marbl_mod.F90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/marbl_mod.F90 b/src/marbl_mod.F90 index ca2602de..1f5ff8b7 100644 --- a/src/marbl_mod.F90 +++ b/src/marbl_mod.F90 @@ -2018,6 +2018,16 @@ subroutine marbl_compute_particulate_terms(k, domain, & (flux - POC%sed_loss(k) - (sed_denitrif*dz_loc*denitrif_C_N)) endif + else + + if (ladjust_bury_coeff) then + glo_avg_fields_interior(glo_avg_field_ind_interior_POC_bury) = c0 + glo_avg_fields_interior(glo_avg_field_ind_interior_d_POC_bury_d_bury_coeff) = c0 + + glo_avg_fields_interior(glo_avg_field_ind_interior_POP_bury) = c0 + glo_avg_fields_interior(glo_avg_field_ind_interior_d_POP_bury_d_bury_coeff) = c0 + endif + endif flux = P_SiO2%sflux_out(k) + P_SiO2%hflux_out(k)