set_min_depth() - set the minimum depth in regions

INTERFACE:

    subroutine set_min_depth(fn)
    IMPLICIT NONE

DESCRIPTION:

Read region definitions and minimum depth for those regions. Adjust the bathymetry (variable $H$) accordingly. INPUT PARAMETERS:

    character(len=*), intent(in)        :: fn

REVISION 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