INTERFACE:
subroutine set_min_depth(fn) IMPLICIT NONEDESCRIPTION:
Read region definitions and minimum depth for those regions. Adjust the bathymetry (variable ) accordingly. 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 integer :: i1,j1 REALTYPE :: dmin