CALL WINDF 



computes wind and atmospheric pressure 



fields WIND(i,j) , P(i,j) 



CALL ELEV 

 computes water level anomaly GRIDl(i,j) 



i 



CALL DRAW1_ 



outputs H, Q5*/D and Q'j'*/D at hourly time 



intervals and saves information for output 



at progi-am completion 



CALL FLUX 

 computes transports, GRIDl (i,j) and GRID2(i,j) 



40 



