Skip to content

Commit

Permalink
Merge pull request #417 from jmaerz/Nread-fix
Browse files Browse the repository at this point in the history
Introduce if statement in N-deposition also for default iHAMOCC
  • Loading branch information
jmaerz authored Oct 23, 2024
2 parents 6710b58 + ef6bd0e commit d1ec9aa
Showing 1 changed file with 6 additions and 3 deletions.
9 changes: 6 additions & 3 deletions hamocc/mo_read_ndep.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit d1ec9aa

Please sign in to comment.