File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_averagesflags.F |
129 |
COST_AVERAGESFLAGS |
mydateday = mod(mydate(1),100) |
./pkg/ecco/cost_averagesflags.F |
131 |
COST_AVERAGESFLAGS |
if ( mydateday .ne. prevdateday ) then |
./pkg/ecco/cost_averagesflags.F |
138 |
COST_AVERAGESFLAGS |
mydateday = mod(mydate(1),100) |
./pkg/ecco/cost_averagesflags.F |
140 |
COST_AVERAGESFLAGS |
if ( mydateday .ne. nextdateday ) then |
./pkg/ecco/cost_averagesflags.F |
149 |
COST_AVERAGESFLAGS |
if ( ( mydateday .eq. prevdateday ) .and. |
./pkg/ecco/cost_averagesflags.F |
150 |
COST_AVERAGESFLAGS |
& ( mydateday .eq. nextdateday ) ) then |
./pkg/ecco/cost_averagesflags.F |
78 |
COST_AVERAGESFLAGS |
integer mydateday |