37 |
PARAMETER ( ldimLoc = 2*numlists ) |
PARAMETER ( ldimLoc = 2*numlists ) |
38 |
PARAMETER ( kdimLoc = 2*numLevels ) |
PARAMETER ( kdimLoc = 2*numLevels ) |
39 |
PARAMETER ( fdimLoc = 2*numperlist ) |
PARAMETER ( fdimLoc = 2*numperlist ) |
40 |
INTEGER frequency(ldimLoc) |
_RL frequency(ldimLoc) |
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 |
66 |
ENDDO |
ENDDO |
67 |
|
|
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 |
C eight spaces: 12345678 |
72 |
fileflags(l)(1:8) = ' ' |
fileflags(l)(1:8) = ' ' |
95 |
C Initialise diag_choices common block |
C Initialise diag_choices common block |
96 |
nlists = 0 |
nlists = 0 |
97 |
DO n = 1,numlists |
DO n = 1,numlists |
98 |
freq(n) = 0 |
freq(n) = 0. |
99 |
nlevels(n) = 0 |
nlevels(n) = 0 |
100 |
nfields(n) = 0 |
nfields(n) = 0 |
101 |
fnames(n) = blkFilName |
fnames(n) = blkFilName |
120 |
|
|
121 |
DO l = 1,ldimLoc |
DO l = 1,ldimLoc |
122 |
iL = ILNBLNK(filename(l)) |
iL = ILNBLNK(filename(l)) |
123 |
IF ( frequency(l).NE.0 .AND. iL.EQ.0 ) THEN |
IF ( frequency(l).NE.0. .AND. iL.EQ.0 ) THEN |
124 |
WRITE(msgBuf,'(2A,I3,A,I6)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3,A,I6)') 'DIAGNOSTICS_READPARMS: ', |
125 |
& 'Empty File-name ! (list l=', l, ' ), freq:',frequency(l) |
& 'Empty File-name ! (list l=', l, ' ), freq:',frequency(l) |
126 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
127 |
STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS' |
STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS' |
128 |
ENDIF |
ENDIF |
129 |
IF ( frequency(l).NE.0 .AND. nlists.LT.numlists ) THEN |
IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN |
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) |
176 |
ENDDO |
ENDDO |
177 |
nlists = nlists + 1 |
nlists = nlists + 1 |
178 |
c write(6,*) 'list summary:',n,nfields(n),nlevels(n) |
c write(6,*) 'list summary:',n,nfields(n),nlevels(n) |
179 |
ELSEIF ( frequency(l).NE.0 ) THEN |
ELSEIF ( frequency(l).NE.0. ) THEN |
180 |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
181 |
& 'Exceed Max.Num. of list numlists=', numlists |
& 'Exceed Max.Num. of list numlists=', numlists |
182 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |