| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesflags.F |
159 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
162 |
COST_AVERAGESFLAGS |
targetdate(1) = mydate(1) |
|
./pkg/ecco/cost_averagesflags.F |
163 |
COST_AVERAGESFLAGS |
targetdate(2) = 0 |
|
./pkg/ecco/cost_averagesflags.F |
164 |
COST_AVERAGESFLAGS |
targetdate(3) = mydate(3) |
|
./pkg/ecco/cost_averagesflags.F |
165 |
COST_AVERAGESFLAGS |
targetdate(4) = mydate(4) |
|
./pkg/ecco/cost_averagesflags.F |
166 |
COST_AVERAGESFLAGS |
call CAL_TIMEPASSED( modelstartdate, targetdate, datediff, |
|
./pkg/ecco/cost_averagesflags.F |
177 |
COST_AVERAGESFLAGS |
& cal_NumInts( targetdate, mydate, timediff, mythid ) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
213 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
218 |
COST_AVERAGESFLAGS |
call CAL_FULLDATE( targetdate1, targetdate2, targetdate, |
|
./pkg/ecco/cost_averagesflags.F |
233 |
COST_AVERAGESFLAGS |
& cal_NumInts( targetdate, mydate, timediff, mythid ) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
75 |
COST_AVERAGESFLAGS |
integer targetdate(4) |