|
||||
File indexing completed on 2018-03-02 18:43:06 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC92a862e67a 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |