35 |
C averagingFreq :: frequency (in s) for periodic averaging interval |
C averagingFreq :: frequency (in s) for periodic averaging interval |
36 |
C averagingPhase :: phase (in s) for periodic averaging interval |
C averagingPhase :: phase (in s) for periodic averaging interval |
37 |
C repeatCycle :: number of averaging intervals in 1 cycle |
C repeatCycle :: number of averaging intervals in 1 cycle |
38 |
|
C mising_value :: missing value for floats in output |
39 |
|
C mising_value_int :: missing value for integers in output |
40 |
C levels :: List Output Levels |
C levels :: List Output Levels |
41 |
C fields :: List Output Fields |
C fields :: List Output Fields |
42 |
C filename :: List Output Filename |
C filename :: List Output Filename |
57 |
_RL frequency(ldimLoc), timePhase(ldimLoc) |
_RL frequency(ldimLoc), timePhase(ldimLoc) |
58 |
_RL averagingFreq(ldimLoc), averagingPhase(ldimLoc) |
_RL averagingFreq(ldimLoc), averagingPhase(ldimLoc) |
59 |
INTEGER repeatCycle(ldimLoc) |
INTEGER repeatCycle(ldimLoc) |
60 |
|
_RL missing_value(ldimLoc) |
61 |
|
INTEGER missing_value_int(ldimLoc) |
62 |
_RL levels(kdimLoc,ldimLoc) |
_RL levels(kdimLoc,ldimLoc) |
63 |
_RL stat_freq(ldimLoc), stat_phase(ldimLoc) |
_RL stat_freq(ldimLoc), stat_phase(ldimLoc) |
64 |
CHARACTER*8 fields(fdimLoc,ldimLoc) |
CHARACTER*8 fields(fdimLoc,ldimLoc) |
81 |
NAMELIST / DIAGNOSTICS_LIST / |
NAMELIST / DIAGNOSTICS_LIST / |
82 |
& frequency, timePhase, |
& frequency, timePhase, |
83 |
& averagingFreq, averagingPhase, repeatCycle, |
& averagingFreq, averagingPhase, repeatCycle, |
84 |
|
& missing_value, missing_value_int, |
85 |
& levels, fields, filename, fileflags, |
& levels, fields, filename, fileflags, |
86 |
& dumpAtLast, diag_mnc, |
& dumpAtLast, diag_mnc, |
87 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
109 |
averagingPhase(l)= 0. |
averagingPhase(l)= 0. |
110 |
repeatCycle(l) = 0 |
repeatCycle(l) = 0 |
111 |
filename(l) = blkFilName |
filename(l) = blkFilName |
112 |
|
missing_value(l) = UNSET_RL |
113 |
|
missing_value_int(l) = UNSET_I |
114 |
C eight spaces: 12345678 |
C eight spaces: 12345678 |
115 |
c fileflags(l)(1:8) = ' ' |
c fileflags(l)(1:8) = ' ' |
116 |
fileflags(l) = blk8c |
fileflags(l) = blk8c |
190 |
nlevels(n) = 0 |
nlevels(n) = 0 |
191 |
nfields(n) = 0 |
nfields(n) = 0 |
192 |
fnames(n) = blkFilName |
fnames(n) = blkFilName |
193 |
|
misvalFlt(n) = UNSET_RL |
194 |
|
misvalInt(n) = UNSET_I |
195 |
DO k = 1,numLevels |
DO k = 1,numLevels |
196 |
levs(k,n) = 0 |
levs(k,n) = 0 |
197 |
ENDDO |
ENDDO |
251 |
averageFreq(n) = frequency(l) |
averageFreq(n) = frequency(l) |
252 |
averagePhase(n) = phase(n) |
averagePhase(n) = phase(n) |
253 |
ENDIF |
ENDIF |
254 |
|
IF ( missing_value(l) .NE. UNSET_RL ) |
255 |
|
& misvalFlt(n) = missing_value(l) |
256 |
|
IF ( missing_value_int(l) .NE. UNSET_I ) |
257 |
|
& misvalInt(n) = missing_value_int(l) |
258 |
fnames(n) = filename (l) |
fnames(n) = filename (l) |
259 |
fflags(n) = fileflags(l) |
fflags(n) = fileflags(l) |
260 |
nlevels(n) = 0 |
nlevels(n) = 0 |
474 |
& ' Averaging Freq.:', averageFreq(n), |
& ' Averaging Freq.:', averageFreq(n), |
475 |
& ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n) |
& ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n) |
476 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
477 |
|
WRITE(msgBuf,'(A,E18.6,A,I18))') |
478 |
|
& 'missing value: ', misvalFlt(n), |
479 |
|
& ' ; for integers: ', misvalInt(n) |
480 |
|
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
481 |
IF ( nlevels(n).EQ.-1 ) THEN |
IF ( nlevels(n).EQ.-1 ) THEN |
482 |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
483 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |