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 |
_RL frequency(ldimLoc) |
_RL frequency(ldimLoc), timePhase(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 |
51 |
EXTERNAL ILNBLNK |
EXTERNAL ILNBLNK |
52 |
|
|
53 |
NAMELIST / diagnostics_list / |
NAMELIST / diagnostics_list / |
54 |
& frequency, levels, fields, filename, fileflags, |
& frequency, timePhase, 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 |
67 |
|
|
68 |
DO l = 1,ldimLoc |
DO l = 1,ldimLoc |
69 |
frequency(l) = 0. |
frequency(l) = 0. |
70 |
|
timePhase(l) = UNSET_RL |
71 |
filename (l) = blkFilName |
filename (l) = blkFilName |
72 |
C eight spaces: 12345678 |
C eight spaces: 12345678 |
73 |
fileflags(l)(1:8) = ' ' |
fileflags(l)(1:8) = ' ' |
97 |
nlists = 0 |
nlists = 0 |
98 |
DO n = 1,numlists |
DO n = 1,numlists |
99 |
freq(n) = 0. |
freq(n) = 0. |
100 |
|
phase(n) = 0. |
101 |
nlevels(n) = 0 |
nlevels(n) = 0 |
102 |
nfields(n) = 0 |
nfields(n) = 0 |
103 |
fnames(n) = blkFilName |
fnames(n) = blkFilName |
131 |
IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN |
IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN |
132 |
n = nlists + 1 |
n = nlists + 1 |
133 |
freq(n) = frequency(l) |
freq(n) = frequency(l) |
134 |
|
IF ( timePhase(l).NE. UNSET_RL ) THEN |
135 |
|
phase(n) = timePhase(l) |
136 |
|
ELSEIF ( frequency(l) .LT. 0. ) THEN |
137 |
|
phase(n) = -0.5 _d 0 * frequency(l) |
138 |
|
ENDIF |
139 |
fnames(n) = filename (l) |
fnames(n) = filename (l) |
140 |
fflags(n) = fileflags(l) |
fflags(n) = fileflags(l) |
141 |
nlevels(n) = 0 |
nlevels(n) = 0 |
212 |
DO n = 1,nlists |
DO n = 1,nlists |
213 |
WRITE(msgBuf,'(2a)') 'Creating Output Stream: ',fnames(n) |
WRITE(msgBuf,'(2a)') 'Creating Output Stream: ',fnames(n) |
214 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
215 |
WRITE(msgBuf,*) 'Frequency: ',freq(n) |
c WRITE(msgBuf,*) 'Frequency: ',freq(n) |
216 |
|
WRITE(msgBuf,'(2(A,F17.6))') 'Frequency : ',freq(n), |
217 |
|
& ' ; Phase: ', phase(n) |
218 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
219 |
IF ( nlevels(n).EQ.-1 ) THEN |
IF ( nlevels(n).EQ.-1 ) THEN |
220 |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |