File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_averagesflags.F |
101 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( -modelstep, 'secs', timediff, mythid ) |
./pkg/ecco/cost_averagesflags.F |
102 |
COST_AVERAGESFLAGS |
call CAL_ADDTIME( mydate, timediff, prevdate, mythid ) |
./pkg/ecco/cost_averagesflags.F |
174 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |
./pkg/ecco/cost_averagesflags.F |
177 |
COST_AVERAGESFLAGS |
& cal_NumInts( targetdate, mydate, timediff, mythid ) + 1 |
./pkg/ecco/cost_averagesflags.F |
230 |
COST_AVERAGESFLAGS |
call CAL_TIMEINTERVAL( modelstep, 'secs', timediff, mythid ) |
./pkg/ecco/cost_averagesflags.F |
233 |
COST_AVERAGESFLAGS |
& cal_NumInts( targetdate, mydate, timediff, mythid ) + 1 |
./pkg/ecco/cost_averagesflags.F |
73 |
COST_AVERAGESFLAGS |
integer timediff(4) |
./pkg/cal/cal_intdays.F |
47 |
NO PROCEDURE |
integer timediff(4) |
./pkg/cal/cal_intdays.F |
56 |
NO PROCEDURE |
call CAL_SUBDATES( modelenddate, tempdate, timediff, mythid ) |
./pkg/cal/cal_intdays.F |
58 |
NO PROCEDURE |
if ( timediff(2) .ne. 0 ) then |
./pkg/cal/cal_intdays.F |
59 |
NO PROCEDURE |
cal_IntDays = timediff(1) + 1 |
./pkg/cal/cal_intdays.F |
61 |
NO PROCEDURE |
cal_IntDays = timediff(1) |
./pkg/cal/cal_set.F |
109 |
CAL_SET |
integer timediff(4) |
./pkg/cal/cal_set.F |
420 |
CAL_SET |
call CAL_TIMEINTERVAL( runtimesecs, 'secs', timediff, mythid ) |
./pkg/cal/cal_set.F |
421 |
CAL_SET |
call CAL_ADDTIME( modelstartdate, timediff, modelenddate, |