Skip to content

Commit

Permalink
group call to apply_fedep together with other routines for external i…
Browse files Browse the repository at this point in the history
…nputs
  • Loading branch information
JorgSchwinger committed Jun 3, 2024
1 parent 916352e commit d3ec954
Showing 1 changed file with 3 additions and 7 deletions.
10 changes: 3 additions & 7 deletions hamocc/mo_hamocc4bcm.F90
Original file line number Diff line number Diff line change
Expand Up @@ -208,13 +208,6 @@ subroutine hamocc4bcm(kpie,kpje,kpke,kbnd,kplyear,kplmon,kplday,kldtday,pdlxp,pd
!---------------------------------------------------------------------
! Biogeochemistry
!
! Apply dust (iron) deposition
! This routine should be moved to the other routines that handle
! external inputs below for consistency. For now we keep it here
! to maintain bit-for-bit reproducibility with the CMIP6 version of
! the model
call apply_fedep(kpie,kpje,kpke,pddpo,omask,dust)

call ocprod(kpie,kpje,kpke,kbnd,pdlxp,pdlyp,pddpo,omask,ptho,pi_ph,psao,ppao,prho)

if (use_PBGC_CK_TIMESTEP ) then
Expand Down Expand Up @@ -267,6 +260,9 @@ subroutine hamocc4bcm(kpie,kpje,kpke,kbnd,kplyear,kplmon,kplday,kldtday,pdlxp,pd
call inventory_bgc(kpie,kpje,kpke,pdlxp,pdlyp,pddpo,omask,0)
endif

! Apply dust (iron) deposition
call apply_fedep(kpie,kpje,kpke,pddpo,omask,dust)

! Apply n-deposition
call apply_ndep(kpie,kpje,kpke,pddpo,omask,ndep)

Expand Down

0 comments on commit d3ec954

Please sign in to comment.