From c29245058e8b9f7a1ef771d8c09cc4774814d7e6 Mon Sep 17 00:00:00 2001
From: Uriel Ramirez <uriel.ramirez@noaa.gov>
Date: Mon, 27 Mar 2023 12:30:18 -0400
Subject: [PATCH] fix for ensemble runs

---
 src/icebergs_fms2io.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/icebergs_fms2io.F90 b/src/icebergs_fms2io.F90
index 2d785f9..56c1b2d 100644
--- a/src/icebergs_fms2io.F90
+++ b/src/icebergs_fms2io.F90
@@ -1497,7 +1497,9 @@ subroutine read_restart_calving(bergs)
 
   ! Read stored ice
   filename=trim(restart_input_dir)//'calving.res.nc'
-  if (open_file(fileobj, filename, "read", grd%domain)) then
+  ! The call to get_instance_filename is required because this is not read in as a restart file
+  call get_instance_filename(filename, actual_filename)
+  if (open_file(fileobj, actual_filename, "read", grd%domain)) then
     call register_axis_wrapper(fileobj)
     if (verbose.and.mpp_pe().eq.mpp_root_pe()) write(*,'(2a)') &
      'KID, read_restart_calving: reading ',filename