pkg/rw/set_write_global_fld.F

92a862e67a Jean*0001 #include "CPP_EEOPTIONS.h"
090cc462c0 Alis*0002
                0003       SUBROUTINE SET_WRITE_GLOBAL_FLD ( flag )
                0004       IMPLICIT NONE
                0005 C SET_WRITE_GLOBAL_FLD( flag ) sets an internal logical state to
                0006 C indicate whether files written by subsequent call to the
                0007 C READ_WRITE_FLD package should create "global" or "tiled" files.
                0008 C   flag = .TRUE.  indicates "global" files
                0009 C   flag = .FALSE. indicates "tiled" files
                0010 C
92a862e67a Jean*0011 C Arguments (input)
090cc462c0 Alis*0012       LOGICAL flag
                0013 C Common
                0014       COMMON /RD_WR_FLD/ globalFile
                0015       LOGICAL globalFile
                0016 C
                0017       globalFile=flag
                0018 C
                0019       RETURN
                0020       END