From 68b2610a187d5ff66a861171e4edfe580477e53f Mon Sep 17 00:00:00 2001
From: Nicholas Szapiro <149816583+NickSzapiro-NOAA@users.noreply.github.com>
Date: Thu, 10 Oct 2024 15:09:48 -0400
Subject: [PATCH] Update call to icepack_aggregate in ice_prescribed_mod.F90
 (#980)

Was missed as part of the BGC + Icepack interface update.
---
 cicecore/drivers/mct/cesm1/ice_prescribed_mod.F90   | 4 +---
 cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 | 4 +---
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/cicecore/drivers/mct/cesm1/ice_prescribed_mod.F90 b/cicecore/drivers/mct/cesm1/ice_prescribed_mod.F90
index 27bae6eb6..d14fde505 100644
--- 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
index 2436783bc..f27c34fdd 100644
--- 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), &