id	summary	reporter	owner	description	type	status	priority	milestone	component	resolution	keywords	cc
43	Plantage sur Curie - Pb lnblnk	marti	Laurent Fairhead	"Sur Curie, un débordement dans la fonction lnblnk fait planter LMDZ dans le couplé IPSLCM5A.

Ci-joint une version corrigée. A long terme, je suggère de supprimer lnblnk au profit de LEN_TRIM.

Olivier



!
! $Header$
!
      INTEGER FUNCTION lnblnk (letter)

C--------------------------------------------------------
C Fonction qui determine la longeur d'un string sans les
C blancs qui suivent.
C---------------------------------------------------------
C     ARGUMENTS
C     +++++++++
C     letter: CHARACTER*xxx (xxx < imax)
C             le string dont on determine la longuer
C     lnblnk: INTEGER
C             le nombre de characteres
C

      IMPLICIT NONE
      CHARACTER (LEN=*), INTENT (in) :: letter

      lnblnk = LEN_TRIM ( letter )

      RETURN
      END"	defect	closed	major		LMDZ	fixed