Symbol Description Uses
ymod 33



File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 104 SEAICE_COST_CONCENTRATION
      integer yday, ymod
./pkg/seaice/seaice_cost_concentration.F 173 SEAICE_COST_CONCENTRATION
      ymod = smrareastartdate(1)/10000
./pkg/seaice/seaice_cost_concentration.F 186 SEAICE_COST_CONCENTRATION
      print *,'ymod, yday     ', ymod,yday
./pkg/seaice/seaice_cost_concentration.F 191 SEAICE_COST_CONCENTRATION
      if ( ymod .EQ. yday ) then
./pkg/seaice/seaice_cost_sss.F 105 SEAICE_COST_SSS
      integer yday, ymod
./pkg/seaice/seaice_cost_sss.F 191 SEAICE_COST_SSS
      ymod = smrareastartdate(1)/10000
./pkg/seaice/seaice_cost_sss.F 204 SEAICE_COST_SSS
      print *,'ymod, yday     ', ymod,yday
./pkg/seaice/seaice_cost_sss.F 209 SEAICE_COST_SSS
      if ( ymod .EQ. yday ) then
./pkg/seaice/seaice_cost_sst.F 103 SEAICE_COST_SST
      integer yday, ymod
./pkg/seaice/seaice_cost_sst.F 186 SEAICE_COST_SST
      ymod = smrareastartdate(1)/10000
./pkg/seaice/seaice_cost_sst.F 199 SEAICE_COST_SST
      print *,'ymod, yday     ', ymod,yday
./pkg/seaice/seaice_cost_sst.F 204 SEAICE_COST_SST
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 173 COST_GENCOST_SSTV4
             ymod = modelstartdate(1)/10000
./pkg/ecco/cost_gencost_sstv4.F 174 COST_GENCOST_SSTV4
             if ( ymod .EQ. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 311 COST_GENCOST_SSTV4
             ymod = modelstartdate(1)/10000
./pkg/ecco/cost_gencost_sstv4.F 312 COST_GENCOST_SSTV4
             if ( ymod .EQ. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 92 COST_GENCOST_SSTV4
      integer yday, ymod
./pkg/ecco/cost_generic.F 108 COST_GENERIC
      integer yday, ymod
./pkg/ecco/cost_generic.F 203 COST_GENERIC
           ymod = localstartdate(1)/10000
./pkg/ecco/cost_generic.F 204 COST_GENERIC
           if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readers.F 65 COST_READERS
      integer yday, ymod
./pkg/ecco/cost_readers.F 95 COST_READERS
      ymod = ersstartdate(1)/10000
./pkg/ecco/cost_readers.F 97 COST_READERS
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readgfo.F 65 COST_READGFO
      integer yday, ymod
./pkg/ecco/cost_readgfo.F 95 COST_READGFO
      ymod = gfostartdate(1)/10000
./pkg/ecco/cost_readgfo.F 97 COST_READGFO
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readtopex.F 65 COST_READTOPEX
      integer yday, ymod
./pkg/ecco/cost_readtopex.F 95 COST_READTOPEX
      ymod = topexstartdate(1)/10000
./pkg/ecco/cost_readtopex.F 97 COST_READTOPEX
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_sla_read.F 100 COST_SLA_READ
      ymod = sla_startdate(1)/10000
./pkg/ecco/cost_sla_read.F 102 COST_SLA_READ
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_sla_read.F 70 COST_SLA_READ
      integer yday, ymod
./pkg/ecco/cost_sla_read_yd.F 71 COST_SLA_READ_YD
      integer yday, ymod