SUBROUTINE writeprofile(nlev,data,name2,qsurf)


IMPLICIT NONE

! arguments:
INTEGER nlev
REAL data(nlev)
REAL qsurf
CHARACTER(len=30) :: name2

!local
INTEGER il

!write the data
OPEN(1,file='profile_out_'//trim(name2),form='formatted')
write(1,*) qsurf
DO il=1,nlev
    write(1,*) data(il)
ENDDO
CLOSE(1)
RETURN
END