INTERFACE:
subroutine adjust_bathymetry(fn) IMPLICIT NONEDESCRIPTION:
Read bathymetry adjustments from file. INPUT PARAMETERS:
character(len=*), intent(in) :: fnREVISION HISTORY:
LOCAL VARIABLES:
integer :: unit = 25 ! kbk character(len=255) :: line integer :: iostat integer :: i,j,k=0,n=-1 integer :: il,jl,ih,jh REALTYPE :: x