diff --git a/sorc/ocnice_prep.fd/ocniceprep.F90 b/sorc/ocnice_prep.fd/ocniceprep.F90 index eb66d734f..3c21e9778 100644 --- a/sorc/ocnice_prep.fd/ocniceprep.F90 +++ b/sorc/ocnice_prep.fd/ocniceprep.F90 @@ -275,7 +275,7 @@ program ocniceprep if (.not. do_ocnprep) then ! ----------------------------------------------------------------------------- ! QC the source ice files after packing. Not every possible inconsistency is - ! but these are those known to create issues in the coupled model + ! checked but these are those known to create issues in the coupled model ! ----------------------------------------------------------------------------- do n = 1,nbilin3d @@ -311,7 +311,6 @@ program ocniceprep call remapRH(k,src_field=bilin3d(:,k,:), dst_field=rgb3d(:,k,:), hmask=mask3d(k,:),rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) call ESMF_Finalize(endflag=ESMF_END_ABORT) else - call remapRH(src_field=bilin3d(:,k,:), dst_field=rgb3d(:,k,:),rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) call ESMF_Finalize(endflag=ESMF_END_ABORT) end if