move denit outside of the if statement to make it accessible to sulfa…

…te reduction as well in case of the extended N-cycle
NorESMhub · Dec 19, 2024 · 8d6cff7 · 8d6cff7
1 parent ff84b1a
commit 8d6cff7
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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