Plantage sur Curie - Pb lnblnk

[marti]

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

[lguez]

C'est fait sur le tronc depuis la révision r1606. Lionel

[Laurent Fairhead]

Plus d'appel à lnblnk depuis la release r1639