From ef6bd0ed6c63808546783e76d909c78d8bdf65ca Mon Sep 17 00:00:00 2001 From: joeran maerz Date: Wed, 23 Oct 2024 14:46:59 +0200 Subject: [PATCH] Introduce minor addition to N-deposition reading --- hamocc/mo_read_ndep.F90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/hamocc/mo_read_ndep.F90 b/hamocc/mo_read_ndep.F90 index e4155dee..bdcbe512 100644 --- a/hamocc/mo_read_ndep.F90 +++ b/hamocc/mo_read_ndep.F90 @@ -232,15 +232,18 @@ subroutine get_ndep(kpie,kpje,kbnd,kplyear,kplmon,omask,ndep,patmnhxdep,patmnoyd !$omp parallel do private(i) do j=1,kpje do i=1,kpie - ! reduced and oxidized forms will all enter the NO3 pool - ndep(i,j,idepnoy) = (patmnoydep(i,j)+patmnhxdep(i,j))*fatmndep + if (patmnoydep(i,j) > 0. .and. patmnhxdep(i,j) > 0.) then + ! reduced and oxidized forms all enter the NO3 pool + ndep(i,j,idepnoy) = (patmnoydep(i,j)+patmnhxdep(i,j))*fatmndep + endif enddo enddo !$omp end parallel do end if else - + ! NOTE: No online coupling of the extended nitrogen cycling through MCT + ! - only input files are read! ! read ndep data from file if (kplmon /= oldmonth) then month_in_file=(max(startyear,min(endyear,kplyear))-startyear)*12+kplmon