fix bug in acclvl (#495)

NorESMhub · Feb 14, 2025 · 81cc72f · 81cc72f
1 parent b84bbf7
commit 81cc72f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hamocc/mo_bgcmean.F90 b/hamocc/mo_bgcmean.F90
@@ -1821,7 +1821,7 @@ subroutine acclvl(pos,fld,k,ind1,ind2,wghts)
     !
     ! Arguments
     integer, intent(in) :: pos(nbgcmax)       ! position in buffer
-    real,    intent(in) :: fld(idm,jdm,ddm)   ! input data used for accumulation
+    real,    intent(in) :: fld(idm,jdm,kdm)   ! input data used for accumulation
     integer, intent(in) :: k                  ! layer index of fld
     integer, intent(in) :: ind1(idm,jdm)      ! index field for first accumulated level
     integer, intent(in) :: ind2(idm,jdm)      ! index field for last accumulated level