From f1249140e3de016f233ef1eba030f1a60fe11b0a Mon Sep 17 00:00:00 2001
From: Nicholas Szapiro <149816583+NickSzapiro-NOAA@users.noreply.github.com>
Date: Fri, 27 Sep 2024 16:20:51 -0400
Subject: [PATCH] No ncat,ntrcr in call icepack_aggregate in
 ice_prescribed_mod.F90

---
 cicecore/drivers/nuopc/cmeps/ice_prescribed_mod.F90 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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), &