Compile fixes

NOAA-EMC · Dec 10, 2024 · 51f8cd2 · 51f8cd2
1 parent c9d1dac
commit 51f8cd2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/dice/dice_datamode_cplhist_mod.F90 b/dice/dice_datamode_cplhist_mod.F90
@@ -180,12 +180,11 @@ subroutine dice_datamode_cplhist_restart_write(rpfile, case_name, inst_suffix, y
   end subroutine dice_datamode_cplhist_restart_write
 
   !===============================================================================
-  subroutine dice_datamode_cplhist_restart_read(rest_filem, rpfile, inst_suffix, logunit, my_task, mpicom, sdat)
+  subroutine dice_datamode_cplhist_restart_read(rest_filem, rpfile, logunit, my_task, mpicom, sdat)
 
     ! input/output arguments
     character(len=*)            , intent(inout) :: rest_filem
     character(len=*)            , intent(in)    :: rpfile
-    character(len=*)            , intent(in)    :: inst_suffix
     integer                     , intent(in)    :: logunit
     integer                     , intent(in)    :: my_task
     integer                     , intent(in)    :: mpicom
@@ -194,7 +193,7 @@ subroutine dice_datamode_cplhist_restart_read(rest_filem, rpfile, inst_suffix, l
 
     integer :: rc
 
-    call dshr_restart_read(rest_filem, rpfile, inst_suffix, nullstr, logunit, my_task, mpicom, sdat, rc)
+    call dshr_restart_read(rest_filem, rpfile, logunit, my_task, mpicom, sdat, rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
   end subroutine dice_datamode_cplhist_restart_read

diff --git a/dice/ice_comp_nuopc.F90 b/dice/ice_comp_nuopc.F90
@@ -533,7 +533,7 @@ subroutine dice_comp_run(gcomp, importstate, exportstate, target_ymd, target_tod
           case('ssmi', 'ssmi_iaf')
              call dice_datamode_ssmi_restart_read(gcomp, restfilm, rpfile, logunit, my_task, mpicom, sdat)
           case('cplhist')
-             call dice_datamode_cplhist_restart_read(restfilm, rpfile, inst_suffix, logunit, my_task, mpicom, sdat)
+             call dice_datamode_cplhist_restart_read(restfilm, rpfile, logunit, my_task, mpicom, sdat)
           end select
        end if