diff --git a/src/ALE/MOM_remapping.F90 b/src/ALE/MOM_remapping.F90 index 0797cd928e..704fdad396 100644 --- a/src/ALE/MOM_remapping.F90 +++ b/src/ALE/MOM_remapping.F90 @@ -537,7 +537,7 @@ subroutine remapping_core( CS, n0, h0, u0, n1, dx, u1 ) ! Maximum error based on guess at maximum roundoff if (abs(totalHU2-totalHU0) > (err0+err2)*max(real(n0), real(n1)) .and. (err0+err2)/=0.) then ! Maximum relative error - if (abs(totalHU2-totalHU0) / totalHU2 > 1e-6) then + if (abs(totalHU2-totalHU0) / totalHU2 > 1e-09) then ! Maximum absolute error if (abs(totalHU2-totalHU0) > 1e-18) then write(0,*) 'h0=',h0 @@ -547,7 +547,7 @@ subroutine remapping_core( CS, n0, h0, u0, n1, dx, u1 ) write(0,*) 'total HU0,HUf,f-0=',totalHU0,totalHU2,totalHU2-totalHU0 write(0,*) 'err0,errF=',err0,err2 call MOM_error( FATAL, 'MOM_remapping, remapping_core: '//& - 'Total stuff on h0 and hF differ by more than roundoff' ) + 'Total stuff on h0 and hF differ by more than maximum errors' ) endif endif endif