| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesflags.F |
113 |
COST_AVERAGESFLAGS |
call CAL_GETDATE( myiter+1, mytime+modelstep, nextdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
154 |
COST_AVERAGESFLAGS |
nextdateday = mod(nextdate(1),100) |
|
./pkg/ecco/cost_averagesflags.F |
208 |
COST_AVERAGESFLAGS |
nextdatemonth = mod(nextdate(1)/100,100) |
|
./pkg/ecco/cost_averagesflags.F |
264 |
COST_AVERAGESFLAGS |
nextdateyear = int(nextdate(1)/10000) |
|
./pkg/ecco/cost_averagesflags.F |
82 |
COST_AVERAGESFLAGS |
integer nextdate(4) |