READ DYNAMIC-HEIGHT-FILE 



AT END PERi^ORM CLOSE-UP 



GO TO EXIT-READER. 



IF STANDARD-DEPTH > ST ART ING-STD-DEPTH 

 THEN PERFORM CLOSE-UP 



GO TO EXIT-READER 

 ELSE IF JULIAN-DAY > LAST-JULIAN-DAY 



THEN PERFORM CLOSE-U" 





SUBTRACT 90 FROM LATITUDE, IRO FROM LONGITUDE TO 

 CHANGE THE RANGE FROM 0-180 AND 0-360 TO -90 TO +90 

 Atn -IBO TO ♦190. 

 ELSE SUBTRACT 90 FROM LATITUDE GIVING LINK-LATITUDE 



SUBTRACT 190 FROM LONGITUDE GIVING LINK-LONGITUDE 

 MOVE DYNAMIC-HEIGHT TO LINK-DYNAMIC-HEIGHT. 



EXIT-READER. 



EXIT PROGRAM. 



CLOSE-UP. 



MOVE 1 TO EOF-FLAG, L INK-EOF-FLAG, 

 CLOSE DYNAMIC-HEIGHT-FILE. 



