;*******************************************************************************
; Filename:           CREATION DATE
;  SHIFT.M             03/22/2005
;
; Description:
;      This module shifts the polar coordinate system, so that
;      the origin of the coordinate system lies on the center
;      of the storm.
;
; Input Definition:
;      infile: same as in onefix.m
;
; Output Definition:
;      zerstre: coordinate system
;
; Revision History:
;  MM/DD/YYYY   Username        Descriptions
;  03/22/2005   Dr. G. Soukup  Generate the initial code
;
;*******************************************************************************
;SHIFT.M
werstre=float(sqrt(zerstre*conj(zerstre)))
iwm=where(werstre(icore) eq min(werstre(icore)))
xstre=xnstre+xnstre(icore(iwm(0))) & ystre=ynstre+ynstre(icore(iwm(0)))
sdx=10*sqrt(xstre^2+ystre^2)
odx=18*(atan(ystre,xstre)/!pi+1.)+1
zerstre=interpolate(zerstre,sdx,odx,cubic=-.5)
;SHIFT.M
