!:physfluxFinalize:!
        CASE (Finalize)
          ! DeAllocate local work space
          DEALLOCATE( delta,coef,sqrtrho,pres,rho,u,v,h,c,uR,vR,hR,cR,rhosq2,g1c2, &
                      u2v2,euv,STAT=iError)
          IF (iError/=OK) THEN
            PRINT *,'Cannot deallocate work space in problem module, physflux'
            STOP
          END IF