fix for ensemble runs

NOAA-GFDL · Mar 27, 2023 · c292450 · c292450
1 parent 2b78653
commit c292450
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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