Custom Query (95 matches)

Ce problème est présent dans la révision 1140. Dans "phylmd/phys_state_var_mod.F90", "zstd" est alloué avec la taille "klon". Dans "dyn3d/etat0_netcdf.F", à la ligne 461, pour remplir "rugsrel", "zstd(i)" apparaît dans une boucle de 1 à "iip1*jjp1". Il y a donc dépassement de la plage d'indices permis pour "zstd". L'erreur se manifeste dans l'exécution de "create_etat0_limit" en séquentiel sur Brodie avec les options de débogage :

• 240 Subscript error array=zstd size=738 subscript=739 eln=2113 PROG=etat0_netcdf ELN=2113(400016914)

99 Execution suspended PROG=etat0_netcdf ELN=2113(400016914)

Called from create_etat0_limit ELN=183(400001828)

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.

Dans "phyetat0.F", version 1.26, on a a la ligne 350 :

CALL get_field("SNOW",snow(:,nsrf),found)

"nsrf" vaut "nbsrf+1" (sortie d'une boucle précédente sur "nsrf" jusqu'à "nbsrf"). La taille de "snow" dans la seconde dimension est "nbsrf". On a donc une erreur à l'exécution de "gcm" avec les options de débogage :

• 240 Subscript error array=snow size=2952 subscript=2953 eln=1872 PROG=phyetat0 ELN=1872(400e9a488)

Est-ce qu'on ne voulait pas écrire en fait :

CALL get_field("SNOW",snow,found)

Lionel Guez