| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_out.F |
116 |
DIAGNOSTICS_OUT |
timeRec(1) = myTime |
|
./pkg/diagnostics/diagnostics_out.F |
124 |
DIAGNOSTICS_OUT |
timeRec(2) = myTime |
|
./pkg/diagnostics/diagnostics_out.F |
129 |
DIAGNOSTICS_OUT |
timeRec(1) = myTime-deltaTClock*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
130 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
131 |
DIAGNOSTICS_OUT |
i = INT( timeRec(1) ) |
|
./pkg/diagnostics/diagnostics_out.F |
132 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_out.F |
134 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).NE.tmpLoc ) i = i - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
136 |
DIAGNOSTICS_OUT |
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
138 |
DIAGNOSTICS_OUT |
timeRec(1) = MAX( timeRec(1), startTime ) |
|
./pkg/diagnostics/diagnostics_out.F |
141 |
DIAGNOSTICS_OUT |
timeRec(1) = (timeRec(1)-baseTime)/deltaTClock |
|
./pkg/diagnostics/diagnostics_out.F |
142 |
DIAGNOSTICS_OUT |
i = NINT( timeRec(1) ) |
|
./pkg/diagnostics/diagnostics_out.F |
145 |
DIAGNOSTICS_OUT |
IF ( timeRec(1).EQ.tmpLoc ) i = i - 1 |
|
./pkg/diagnostics/diagnostics_out.F |
146 |
DIAGNOSTICS_OUT |
timeRec(1) = baseTime + deltaTClock*FLOAT(i) |
|
./pkg/diagnostics/diagnostics_out.F |
449 |
DIAGNOSTICS_OUT |
& nTimRec, timeRec, undefRL, |
|
./pkg/diagnostics/diagnostics_out.F |
80 |
DIAGNOSTICS_OUT |
_RL timeRec(2) |