| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesflags.F |
198 |
COST_AVERAGESFLAGS |
mydatemonth = mod(mydate(1)/100,100) |
|
./pkg/ecco/cost_averagesflags.F |
200 |
COST_AVERAGESFLAGS |
if ( mydatemonth .ne. prevdatemonth ) then |
|
./pkg/ecco/cost_averagesflags.F |
207 |
COST_AVERAGESFLAGS |
mydatemonth = mod(mydate(1)/100,100) |
|
./pkg/ecco/cost_averagesflags.F |
209 |
COST_AVERAGESFLAGS |
if ( mydatemonth .ne. nextdatemonth ) then |
|
./pkg/ecco/cost_averagesflags.F |
218 |
COST_AVERAGESFLAGS |
if ( ( mydatemonth .eq. prevdatemonth ) .and. |
|
./pkg/ecco/cost_averagesflags.F |
219 |
COST_AVERAGESFLAGS |
& ( mydatemonth .eq. nextdatemonth ) ) then |
|
./pkg/ecco/cost_averagesflags.F |
90 |
COST_AVERAGESFLAGS |
integer mydatemonth |