c********************************************

	SUBROUTINE csv_write_real_2d( lun, array )

! write a 2D array of reals to the CSV-file
! cvs_file_2d.f90 --
!     Include file for csv_file.f90:
!     contains the body of the two-dimensional version of the
!     writing routines.
!
!     $Id: csv_file_2d.f90,v 1.2 2006/03/26 19:03:53 arjenmarkus Exp $

c Auteurs: T.Guillot, P.Morel (adaptation à CESAM2k) Laboratoire Lagrange, OCA

c--------------------------------------------------------

	USE mod_kind
	
	IMPLICIT NONE
	
	REAL (kind=sp), DIMENSION(:,:), INTENT(in)   :: array
	INTEGER, INTENT(in) :: lun

	LOGICAL :: adv
	INTEGER :: i

c-----------------------------------------------------------

	adv = .TRUE.
	DO i = 1,SIZE(array,2)
	 CALL csv_write( lun, array(:,i), adv )
	ENDDO
	
	RETURN

	END SUBROUTINE csv_write_real_2d