read_sur Subroutine

private subroutine read_sur(tab, scal)

Read a surface file

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(out),		allocatable, dimension(:,:)	::	tab	array for the surface file
type(SCALE_SURF),	intent(out)			::	scal	SCALE_SURF object