In cicecore/drivers/mct/cesm1/ice_prescribed_mod.F90 too

CICE-Consortium · Oct 8, 2024 · cda3312 · cda3312
1 parent 5e57a89
commit cda3312
Showing 1 changed file with 1 addition and 3 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), &