| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_out.F |
128 |
DIAGNOSTICS_OUT |
timeRec(1) = myTime |
|
./pkg/diagnostics/diagnostics_out.F |
136 |
DIAGNOSTICS_OUT |
timeRec(2) = myTime |
|
./pkg/diagnostics/diagnostics_out.F |
141 |
DIAGNOSTICS_OUT |
timeRec(1) = myTime-deltaTClock*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
142 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
143 |
DIAGNOSTICS_OUT |
i = INT( timeRec(1) ) |
|
./pkg/diagnostics/diagnostics_out.F |
144 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
146 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).NE.tmpLev ) i = i - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
148 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
150 |
DIAGNOSTICS_OUT |
timeRec(1) = MAX( timeRec(1), startTime ) |
|
./pkg/diagnostics/diagnostics_out.F |
153 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-baseTime)/deltaTClock |
|
./pkg/diagnostics/diagnostics_out.F |
154 |
DIAGNOSTICS_OUT |
i = NINT( timeRec(1) ) |
|
./pkg/diagnostics/diagnostics_out.F |
157 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).EQ.tmpLev ) i = i - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
158 |
DIAGNOSTICS_OUT |
timeRec(1) = baseTime + deltaTClock*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
631 |
DIAGNOSTICS_OUT |
& nfields(listId), flds(1,listId), nTimRec, timeRec, |
|
./pkg/diagnostics/diagnostics_out.F |
82 |
DIAGNOSTICS_OUT |
_RL timeRec(2) |