Custom Query (96 matches)

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

Dans les procédures "Get_Field_r1" et compagnie, on trouve :

IF (PRESENT(found)) THEN

CALL Get_field_rgen(field_name,field,1,found)

ELSE

CALL Get_field_rgen(field_name,field,1)

ENDIF

C'est un alourdissement inutile. On écrit :

CALL Get_field_rgen(field_name,field,1,found)

et le paramètre optionnel n'est retransmis que s'il est présent.

Révision 1213. Il faudrait donner des valeurs par défaut à "chtimestep" dans "phys_output_mod". Actuellement, si "chtimestep" n'est pas défini dans les ".def", le programme se plante à la ligne :

read(str(1:ipos),*) ttt

parce que "ipos=0". Message d'erreur avec "g95" :

At line 1143 of file g95_32x24x9_phylmd_seq/.config/ppsrc/phys/phys_output_mod.f90 file: "DÙíyDsyD▒wxDŸxD..." Traceback: (Innermost first)

Called from line 592 of file g95_32x24x9_phylmd_seq/.config/ppsrc/phys/phys_output_mod.f90