No ncat,ntrcr in call icepack_aggregate in ice_prescribed_mod.F90

CICE-Consortium · Sep 27, 2024 · f124914 · f124914
1 parent 6428405
commit f124914
Showing 1 changed file with 1 addition and 3 deletions.
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), &