& globalFiles,
LOGICAL globalFiles
lgf = globalFiles
glf = globalFiles
CALL WRITE_0D_L( globalFiles, INDEX_NONE,
CALL SET_WRITE_GLOBAL_FLD( globalFiles )
CALL SET_WRITE_GLOBAL_REC( globalFiles )
IF ( useOBCS .AND. globalFiles ) THEN
CALL SET_WRITE_GLOBAL_SEC( globalFiles )
IF ( nPx*nPy.NE.1 .AND. globalFiles
& readBinaryPrec, writeBinaryPrec, writeStatePrec, globalFiles,
globalFiles = .FALSE.
globalfile = globalFiles