SUBROUTINE  nrmerr(  gnrm2,  gnrmoo,  u,  u_exact,  tps  )
      USE numerics
      IMPLICIT  NONE
      REAL(rp),  DIMENSION(  sx-1:ex+1,  sy-1:ey+1,  sz-1:ez+1),  INTENT(IN)  ::  u
      REAL(rp),  DIMENSION(  sx-1:ex+1,  sy-1:ey+1,  sz-1:ez+1),  INTENT(IN)  ::  u_exact
      REAL(rp),  DIMENSION(2),  INTENT(OUT)  ::  gnrm2
      REAL(rp),  DIMENSION(2),  INTENT(OUT)  ::  gnrmoo
      REAL(rp),  INTENT(IN)   ::  tps
      END  SUBROUTINE  nrmerr