** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Thu, 8 Apr 2026 05:09:16 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/rw/set_write_global_fld.F
Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:43:08 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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