Update call to icepack_aggregate in ice_prescribed_mod.F90 (CICE-Cons…

…ortium#980) Was missed as part of the BGC + Icepack interface update.
apcraig · Oct 10, 2024 · 68b2610 · 68b2610
1 parent 6428405
commit 68b2610
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/cicecore/drivers/mct/cesm1/ice_prescribed_mod.F90 b/cicecore/drivers/mct/cesm1/ice_prescribed_mod.F90
@@ -549,8 +549,7 @@ subroutine ice_prescribed_phys
       ! compute aggregate ice state and open water area
       !--------------------------------------------------------------------
       if (tmask(i,j,iblk)) &
-         call icepack_aggregate(ncat  = ncat,                      &
-                                aicen = aicen(i,j,:,iblk),         &
+         call icepack_aggregate(aicen = aicen(i,j,:,iblk),         &
                                 trcrn = trcrn(i,j,1:ntrcr,:,iblk), &
                                 vicen = vicen(i,j,:,iblk),         &
                                 vsnon = vsnon(i,j,:,iblk),         &
@@ -559,7 +558,6 @@ subroutine ice_prescribed_phys
                                 vice  = vice (i,j,  iblk),         &
                                 vsno  = vsno (i,j,  iblk),         &
                                 aice0 = aice0(i,j,  iblk),         &
-                                ntrcr = ntrcr,                     &
                                 trcr_depend   = trcr_depend(1:ntrcr),   &
                                 trcr_base     = trcr_base(1:ntrcr,:),   &
                                 n_trcr_strata = n_trcr_strata(1:ntrcr), &

diff --git a/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 b/cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90
@@ -446,8 +446,7 @@ subroutine ice_prescribed_phys()
                 !--------------------------------------------------------------------
                 ! compute aggregate ice state and open water area
                 !--------------------------------------------------------------------
-                call icepack_aggregate(ncat  = ncat,                  &
-                                       aicen = aicen(i,j,:,iblk),     &
+                call icepack_aggregate(aicen = aicen(i,j,:,iblk),     &
                                        trcrn = trcrn(i,j,1:ntrcr,:,iblk), &
                                        vicen = vicen(i,j,:,iblk),     &
                                        vsnon = vsnon(i,j,:,iblk),     &
@@ -456,7 +455,6 @@ subroutine ice_prescribed_phys()
                                        vice  = vice (i,j,  iblk),     &
                                        vsno  = vsno (i,j,  iblk),     &
                                        aice0 = aice0(i,j,  iblk),     &
-                                       ntrcr = ntrcr,                 &
                                        trcr_depend   = trcr_depend(1:ntrcr),   &
                                        trcr_base     = trcr_base(1:ntrcr,:),   &
                                        n_trcr_strata = n_trcr_strata(1:ntrcr), &