pkg/rw/get_write_global_fld.F

92a862e67a Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003       SUBROUTINE GET_WRITE_GLOBAL_FLD ( flag )
                0004       IMPLICIT NONE
                0005 C GET_WRITE_GLOBAL_FLD( flag ) gets the internal logical state
                0006 C that indicates whether to write a "global" or "tiled" files.
                0007 C READ_WRITE_FLD package should return
                0008 C   flag = .TRUE.  indicates "global" files
                0009 C   flag = .FALSE. indicates "tiled" files
                0010 C
                0011 C Arguments (ouput)
                0012       LOGICAL flag
                0013 C Common
                0014       COMMON /RD_WR_FLD/ globalFile
                0015       LOGICAL globalFile
                0016 C
                0017       flag=globalFile
                0018 C
                0019       RETURN
                0020       END