From d3ec9542b0cbfde566b14c78e103b57713679858 Mon Sep 17 00:00:00 2001 From: JorgSchwinger Date: Thu, 30 May 2024 15:27:57 +0200 Subject: [PATCH] group call to apply_fedep together with other routines for external inputs --- hamocc/mo_hamocc4bcm.F90 | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/hamocc/mo_hamocc4bcm.F90 b/hamocc/mo_hamocc4bcm.F90 index ec5f6c3a..ba6f86d1 100644 --- a/hamocc/mo_hamocc4bcm.F90 +++ b/hamocc/mo_hamocc4bcm.F90 @@ -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 @@ -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)