Symbol Description Uses
mydatemonth 7



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