typo...add mod

NOAA-EMC · Aug 28, 2024 · f0bb577 · f0bb577
1 parent fde4c3b
commit f0bb577
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90
@@ -555,7 +555,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
  call ESMF_TimePrint(restartFhTimes(n), options="string", preString="restart_fh at ", unit=timestr, rc=rc)
  if (ChkErr(rc,__LINE__,u_FILE_u)) return
  if (mastertask) then
- if (fh_s,dtime) /= 0) then
+ if (mod(fh_s,dtime) /= 0) then
  write(nu_diag,'(A)')trim(subname)//trim(timestr)//' will not be written'
  else
  write(nu_diag,'(A)')trim(subname)//trim(timestr)//' will be written'