Symbol Description Uses
mydateday 7


File Line number Procedure Code
./pkg/ecco/cost_averagesflags.F 144 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 146 COST_AVERAGESFLAGS 
      if ( mydateday .ne. prevdateday ) then
./pkg/ecco/cost_averagesflags.F 153 COST_AVERAGESFLAGS 
      mydateday   = mod(mydate(1),100)
./pkg/ecco/cost_averagesflags.F 155 COST_AVERAGESFLAGS 
      if ( mydateday .ne. nextdateday ) then
./pkg/ecco/cost_averagesflags.F 164 COST_AVERAGESFLAGS 
      if ( ( mydateday .eq. prevdateday ) .and.
./pkg/ecco/cost_averagesflags.F 165 COST_AVERAGESFLAGS 
     &     ( mydateday .eq. nextdateday )       ) then
./pkg/ecco/cost_averagesflags.F 89 COST_AVERAGESFLAGS 
      integer mydateday