lgf = globalFiles
& globalFiles,
LOGICAL 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 )
CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )
IF ( nPx*nPy.NE.1 .AND. globalFiles
& globalFiles, useSingleCpuIO,
globalFiles = .FALSE.