IF ( fldFile .NE. ' ' .AND. fldPeriod .EQ. 0. ) THEN
j = ILNBLNK(fldFile)
& '", loading rec=', count, ' from: ', fldFile(1:j)
I fldFile, exf_iprec,
CALL READ_REC_3D_RL( fldFile, exf_iprec, 1,
I fldName, fldFile, fldMask,
CHARACTER*(128) fldFile
IF ( fldFile .NE. ' ' .AND. fldPeriod .NE. 0. ) THEN
& 'processing field "', fldName, '", file: ', fldFile(1:j)
& ' for file: ', fldFile(1:j)
I fldFile,