Symbol Description Uses
ymod 12


File Line number Procedure Code
./pkg/ecco/cost_readgfo.F 64 COST_READGFO 
      integer yday, ymod
./pkg/ecco/cost_readgfo.F 94 COST_READGFO 
      ymod = gfostartdate(1)/10000
./pkg/ecco/cost_readgfo.F 96 COST_READGFO 
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_generic.F 105 COST_GENERIC 
      integer yday, ymod
./pkg/ecco/cost_generic.F 171 COST_GENERIC 
           ymod = localstartdate(1)/10000
./pkg/ecco/cost_generic.F 172 COST_GENERIC 
           if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readtopex.F 64 COST_READTOPEX 
      integer yday, ymod
./pkg/ecco/cost_readtopex.F 94 COST_READTOPEX 
      ymod = topexstartdate(1)/10000
./pkg/ecco/cost_readtopex.F 96 COST_READTOPEX 
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readers.F 64 COST_READERS 
      integer yday, ymod
./pkg/ecco/cost_readers.F 94 COST_READERS 
      ymod = ersstartdate(1)/10000
./pkg/ecco/cost_readers.F 96 COST_READERS 
      if ( ymod .EQ. yday ) then