save_sur Subroutine

private subroutine save_sur(tab, scal)

Save the surface in the file specified in the job file

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(inout),		dimension(:,:)	::	tab	array containing the surface
type(SCALE_SURF),	intent(inout)			::	scal	SCALE_SURF object