40aa780b3d
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]] Former-commit-id:8485b90ff8Former-commit-id: 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5] Former-commit-id:33a67cdd82
53 lines
1.5 KiB
Text
53 lines
1.5 KiB
Text
C************************************************************************
|
|
C GRDCMN *
|
|
C* *
|
|
C* Grid library common area. *
|
|
C** *
|
|
C* Log: *
|
|
C* M. desJardins/GSFC 6/87 *
|
|
C* M. desJardins/GSFC 11/88 Save nav and anl blocks *
|
|
C* M. desJardins/GSFC 4/89 Added new time sorting *
|
|
C* R. Tian/SAIC 1/04 Added gdflnm, iflacc, nflnum, nucode, *
|
|
C* MXFLNM, use LLNNAV & LLNANL *
|
|
C* R. Tian/SAIC 3/05 Added mgrid *
|
|
C************************************************************************
|
|
PARAMETER (MXFLNM=1000000000)
|
|
LOGICAL gdwrt, nucode
|
|
CHARACTER gdflnm*(MXFLSZ)
|
|
C*
|
|
COMMON /GRDCMN/
|
|
+ mgrid (MMFILE),
|
|
C! Maximum number of grids
|
|
+ kgrid (MMFILE),
|
|
C! Number of grids
|
|
+ gdwrt (MMFILE),
|
|
C! Write access flag
|
|
+ khdrln (MMFILE),
|
|
C! Grid header length
|
|
+ kbfhdr (LLGDHD),
|
|
C! Buffer for grid header
|
|
+ savnav (LLNNAV,MMFILE),
|
|
C! Navigation block
|
|
+ lnavbl (MMFILE),
|
|
C! Length of navigation block
|
|
+ savanl (LLNANL,MMFILE),
|
|
C! Analysis block
|
|
+ lanlbl (MMFILE),
|
|
C! Length of analysis block
|
|
+ igdatm (3,LLMXGT,MMFILE),
|
|
C! Sorted integer times
|
|
+ ndattm (LLMXGT,MMFILE),
|
|
C! Number of occations of times
|
|
+ ktgrid (MMFILE),
|
|
C! Number of times
|
|
+ ksrtl (2,MMHDRS,MMFILE),
|
|
C! Sorted time/level list
|
|
+ gdflnm (MMFILE),
|
|
C! Names of open files
|
|
+ iflacc (MMFILE),
|
|
C! File access numbers
|
|
+ nflnum,
|
|
C! Integer counter for access #s
|
|
+ nucode
|
|
C! Flag to use new code
|
|
C*
|