C $Header: /u/gcmpack/MITgcm/pkg/rw/get_write_global_fld.F,v 1.1 2004/11/11 01:25:05 jmc Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"

      SUBROUTINE GET_WRITE_GLOBAL_FLD ( flag )
      IMPLICIT NONE
C GET_WRITE_GLOBAL_FLD( flag ) gets the internal logical state
C that indicates whether to write a "global" or "tiled" files.
C READ_WRITE_FLD package should return 
C   flag = .TRUE.  indicates "global" files
C   flag = .FALSE. indicates "tiled" files
C
C Arguments (ouput)
      LOGICAL flag
C Common
      COMMON /RD_WR_FLD/ globalFile
      LOGICAL globalFile
C
      flag=globalFile
C
      RETURN
      END