| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_averagesflags.F |
183 |
COST_AVERAGESFLAGS |
mydatemonth = mod(mydate(1)/100,100) |
|
./pkg/ecco/cost_averagesflags.F |
185 |
COST_AVERAGESFLAGS |
if ( mydatemonth .ne. prevdatemonth ) then |
|
./pkg/ecco/cost_averagesflags.F |
192 |
COST_AVERAGESFLAGS |
mydatemonth = mod(mydate(1)/100,100) |
|
./pkg/ecco/cost_averagesflags.F |
194 |
COST_AVERAGESFLAGS |
if ( mydatemonth .ne. nextdatemonth ) then |
|
./pkg/ecco/cost_averagesflags.F |
203 |
COST_AVERAGESFLAGS |
if ( ( mydatemonth .eq. prevdatemonth ) .and. |
|
./pkg/ecco/cost_averagesflags.F |
204 |
COST_AVERAGESFLAGS |
& ( mydatemonth .eq. nextdatemonth ) ) then |
|
./pkg/ecco/cost_averagesflags.F |
79 |
COST_AVERAGESFLAGS |
integer mydatemonth |