98 





URIIE<6,4MI,AX(I).BX(I),CX(I),NAX(I>,I=1,NXREG) 



GRID 



97 



99 





4 FORHAT(I10,3E20.7,I10) 



GRID 



98 



100 





URIIE(6,6) 



GRID 



99 



101 





6 FORMAT (///, IX, 'Y EXPANSION C0EFS(A,6.C) AND GRIDS PER REGION',//) 



GRID 



100 



102 





WRITE(6,4HI,AY(I>,BY(I).CY(I>.NAY(I).I=1,NYREG) 



GRID 



101 



103 





WRITE(6,7) 



GRID 



102 



104 





7 F0RMAI(///,1X,'X SCALE FACTORS (XHUCXHUS )',//) 



GRID 



103 



105 





URITE(6,2)(I.XMUC(I),XMUS(I),I=1,M) 



GRID 



104 



106 





UKITE(6,8) 



GRID 



105 



107 





8 FORhAT(///,lX,'Y SCALE FACTORS (YMUC.YHUS)',//) 



GRID 



106 



103 





WRITE(6.2)(I,YHUC(I),YMUS(I).I=1.N> 



GRID 



107 



109 





2 F0RMAI(5(I5,2F10.5)> 



GRID 



108 



110 





URITE<6.10) 



GRID 



109 



111 





10 FORMAK/A'.IX.'X CENIER DISTANCES',//) 



GRID 



110 



112 





«RIIE(6.11)!I.XX(I).I=l.rt) 



GRID 



111 



113 





11 F0RMAT(8(I4,F12.3)> 



GRID 



112 



114 





URITE(6,12) 



GRID 



113 



115 





12 FORMAT (///, IX, 'Y CENIER DISTANCES' .//) 



GRID 



114 



116 





WRIIE(b,ll)(] f YY(J),J=l,N) 



GRID 



115 



117 





RETURN 



GRID 



116 



113 





END 



GRID 



117 



1 



CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ 



t ONBC 



2 



2 



C 





ONBC 



3 



3 





SUBROUTINE ONBC(DUMl) 



ONBC 



4 



4 



C 





ONBC 



5 



5 



CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ONBC 



6 



6 



C 





ONBC 



7 



7 



C 



THIS SUBROUTINE SETS THE ONSHORE BOUNDARY CONDITION . 



ONBC 



8 



3 



C 



THIS BOUNDARY CONDITION IS NOT USED IN THE COMPUTATIONAL SCHEME 



ONBC 



9 



9 



C 



SINCE IT PROCEEDS FROM OFFSHORE TOWARDS ONSHORE. 



ONBC 



10 



10 



c 





ONBC 



11 



11 



CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ONBC 



12 



12 



C 





PARAM 



2 



13 





PARAMETER! 10=95, JQ=95) 



PARAM 



3 



14 



C 





PARAM 



4 



15 





COMMON/CONST/ G,PI.PI2,RAD.HC0NVR.SC0NVR.DX,DY,DX2.DY2.I,0MEG. 



ONBC 



14 



16 





AM , N , Ml , M2 , NH1 . NN2 , IWEI . IDRY . IHEIP1 , CNIRANG , HFACT , DLEVEL 



ONBC 



15 



17 





C0MH0N/C0NS2/ IGR ID , IREF , ITAMX . IIHMX , ID IFF 



ONBC 



16 



18 





DIMENSION DUM1(IQ,JQ) 



ONBC 



17 



19 





DO 1 1=1, IDRY 



ONBC 



18 



20 





DO 1 M.N 



ONBC 



19 



21 





DUM1(I,J)=DUM1(IUEI,J) 



ONBC 



20 



~>2 





1 CONTINUE 



ONBC 



21 



23 





RETURN 



ONBC 



?" 



24 





END 



ONBC 



23 



F20 



