Symbol Description Uses
mydateday 7



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