diff --git a/mediator/med_phases_prep_ocn_mod.F90 b/mediator/med_phases_prep_ocn_mod.F90
index b49d717f0..11752a33c 100644
--- a/mediator/med_phases_prep_ocn_mod.F90
+++ b/mediator/med_phases_prep_ocn_mod.F90
@@ -87,7 +87,6 @@ subroutine med_phases_prep_ocn_accum(gcomp, rc)
 
     ! local variables
     type(InternalState) :: is_local
-    integer             :: n
     type(med_fldlist_type), pointer :: fldList
     character(len=*), parameter    :: subname='(med_phases_prep_ocn_accum)'
     !---------------------------------------