Fix diagnostics call for sedFe

darwinproject · Jun 25, 2024 · 3424165 · 3424165
1 parent 2a97638
commit 3424165
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pkg/darwin/darwin_forcing.F b/pkg/darwin/darwin_forcing.F
@@ -1036,7 +1036,7 @@ SUBROUTINE DARWIN_FORCING( Ptrdummy,
 #endif
        CALL DIAGNOSTICS_FILL(scavRate,'scavRate',0,Nr,2,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(scavLoss,'scvLosFe',0,Nr,2,bi,bj,myThid)
-       CALL DIAGNOSTICS_FILL(sedFe,   'sedFe   ',0,Nr,1,bi,bj,myThid)
+       CALL DIAGNOSTICS_FILL(sedFe,   'sedFe   ',0,Nr,2,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(sedFlxFe,'sedFlxFe',0,1,2,bi,bj,myThid)
        IF (DIAGNOSTICS_IS_ON('sfcSolFe', myThid)) THEN
         DO j=jMin,jMax