Code: Select all
check_multifile.f90:68.33:
ncname=BRY(ng)%files(Fcount)
1
Warning: Legacy Extension: REAL array index at (1)
check_multifile.f90:93.18:
updated=.FALSE.
1
Error: Can't convert LOGICAL(4) to REAL(4) at (1)
check_multifile.f90:112.35:
ncname=FRC(i,ng)%files(Fcount)
1
Warning: Legacy Extension: REAL array index at (1)
If I add an "implicit none" statement I find there are 3 undeclared variables: Fcount, lstr (both of integer type) and updated (logical). If I add local declarations for these then the model builds and runs OK, though I don't know if the multifile-checking is actually working as it should. I note that the variable "updated" is set to .FALSE. in a couple of places but is never used.