CALL SHRCOR 

 Determines and writes the grid point coordinates 

 in x,y space and the distance (nmi) between 

 grid points. 



Store X coordinate in X and 



Store y coordinate in Y for 



i = 2,3 .. NUMXI-1 



j = 1,2 . . NUMETA. 



Determine and write scale factor y (units 

 x,y space-nmi) . 



Store M in SX for i=l,2 .. NUMXI-2. 



Determine and write scale factor v (units of 

 x,y space-time minutes) . 

 Store V in SY for j=l,2 .. NUMETA. 



Determine and write dimensionless scale factor F. 

 Compute area in x,y plane of each quadrangle 

 subdivided into IQUAD intervals between E, 

 lines and JQUAD intervals between n lines. 



Store area in X 



Store 



for i=l,2 . 



. NUMXI-1 



j=l,2 . 



. NUMETA. 



for i=l,2 . 



. NUMXI-2. 



j=l,2 . 



. NUMETA. 



© 



29 



