/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by jmc, Thu Mar 17 01:22:43 2005 UTC revision 1.7 by edhill, Mon May 2 21:24:12 2005 UTC
# Line 41  C     filename  :: List Output Filename Line 41  C     filename  :: List Output Filename
41        _RL         levels(kdimLoc,ldimLoc)        _RL         levels(kdimLoc,ldimLoc)
42        CHARACTER*8 fields(fdimLoc,ldimLoc)        CHARACTER*8 fields(fdimLoc,ldimLoc)
43        CHARACTER*80 filename(ldimLoc), blkFilName        CHARACTER*80 filename(ldimLoc), blkFilName
44          CHARACTER*8 fileflags(ldimLoc)
45        CHARACTER*8 blk8c        CHARACTER*8 blk8c
46        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
47        INTEGER ku, stdUnit        INTEGER ku, stdUnit
# Line 50  C     filename  :: List Output Filename Line 51  C     filename  :: List Output Filename
51        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
52    
53        NAMELIST / diagnostics_list /        NAMELIST / diagnostics_list /
54       &     frequency, levels, fields, filename,       &     frequency, levels, fields, filename, fileflags,
55       &     diag_mnc,       &     diag_mnc,
56       &     diag_pickup_read,     diag_pickup_write,       &     diag_pickup_read,     diag_pickup_write,
57       &     diag_pickup_read_mnc, diag_pickup_write_mnc       &     diag_pickup_read_mnc, diag_pickup_write_mnc
# Line 67  C     Initialize and Read Diagnostics Na Line 68  C     Initialize and Read Diagnostics Na
68        DO l = 1,ldimLoc        DO l = 1,ldimLoc
69          frequency(l) = 0          frequency(l) = 0
70          filename (l) = blkFilName          filename (l) = blkFilName
71    C       eight spaces:        12345678
72            fileflags(l)(1:8) = '        '
73          DO k = 1,kdimLoc          DO k = 1,kdimLoc
74            levels (k,l) = undef            levels (k,l) = undef
75          ENDDO          ENDDO
# Line 127  C     Fill Diagnostics Common Block with Line 130  C     Fill Diagnostics Common Block with
130           n = nlists + 1           n = nlists + 1
131           freq(n)    = frequency(l)           freq(n)    = frequency(l)
132           fnames(n)  = filename (l)           fnames(n)  = filename (l)
133             fflags(n)  = fileflags(l)
134           nlevels(n) = 0           nlevels(n) = 0
135           IF ( levels(1,l).NE.undef ) THEN           IF ( levels(1,l).NE.undef ) THEN
136             DO k=1,kdimLoc             DO k=1,kdimLoc
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22