From 8d6cff7e897077f38169a8610fe8aa30ff0532aa Mon Sep 17 00:00:00 2001 From: joeran maerz Date: Thu, 19 Dec 2024 15:21:18 +0100 Subject: [PATCH] move denit outside of the if statement to make it accessible to sulfate reduction as well in case of the extended N-cycle --- hamocc/mo_powach.F90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/hamocc/mo_powach.F90 b/hamocc/mo_powach.F90 index bd9b3641..5d0bc8ac 100644 --- a/hamocc/mo_powach.F90 +++ b/hamocc/mo_powach.F90 @@ -329,10 +329,9 @@ subroutine powach(kpie,kpje,kpke,kbnd,prho,omask,psao,ptho,lspin) ! Calculate nitrate reduction under anaerobic conditions explicitely !******************************************************************* + ! Denitrification rate constant of POP (disso) [1/sec]*dtbgc + denit = sed_denit if (.not. use_extNcycle) then - ! Denitrification rate constant of POP (disso) [1/sec]*dtbgc - denit = sed_denit - ! Store flux in array anaerob, for later computation of DIC and alkalinity. do k = 1, ks do i = 1, kpie