Symbol Description Uses
ymod 26



File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 120 SEAICE_COST_CONCENTRATION
      integer yday, ymod
./pkg/seaice/seaice_cost_concentration.F 187 SEAICE_COST_CONCENTRATION
      ymod = smrareastartdate(1)/10000
./pkg/seaice/seaice_cost_concentration.F 200 SEAICE_COST_CONCENTRATION
      print *,'ymod, yday     ', ymod,yday
./pkg/seaice/seaice_cost_concentration.F 205 SEAICE_COST_CONCENTRATION
      if ( ymod .EQ. yday ) then
./pkg/seaice/seaice_cost_sss.F 118 SEAICE_COST_SSS
      integer yday, ymod
./pkg/seaice/seaice_cost_sss.F 202 SEAICE_COST_SSS
      ymod = smrareastartdate(1)/10000
./pkg/seaice/seaice_cost_sss.F 215 SEAICE_COST_SSS
      print *,'ymod, yday     ', ymod,yday
./pkg/seaice/seaice_cost_sss.F 220 SEAICE_COST_SSS
      if ( ymod .EQ. yday ) then
./pkg/seaice/seaice_cost_sst.F 116 SEAICE_COST_SST
      integer yday, ymod
./pkg/seaice/seaice_cost_sst.F 202 SEAICE_COST_SST
      ymod = smrareastartdate(1)/10000
./pkg/seaice/seaice_cost_sst.F 215 SEAICE_COST_SST
      print *,'ymod, yday     ', ymod,yday
./pkg/seaice/seaice_cost_sst.F 220 SEAICE_COST_SST
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_gencal.F 101 COST_GENCAL
           if ( ymod .GE. yday ) then
./pkg/ecco/cost_gencal.F 65 COST_GENCAL
      integer yday, ymod
./pkg/ecco/cost_gencal.F 96 COST_GENCAL
           ymod = modelstartdate(1)/10000
./pkg/ecco/cost_gencost_sstv4.F 206 COST_GENCOST_SSTV4
             ymod = locstartdate(1)/10000
./pkg/ecco/cost_gencost_sstv4.F 207 COST_GENCOST_SSTV4
             if ( ymod .GE. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 227 COST_GENCOST_SSTV4
     &      yday,' ',ymod,' ',localrec,' ',diffsecs
./pkg/ecco/cost_gencost_sstv4.F 364 COST_GENCOST_SSTV4
             ymod = locstartdate(1)/10000
./pkg/ecco/cost_gencost_sstv4.F 365 COST_GENCOST_SSTV4
             if ( ymod .GE. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 385 COST_GENCOST_SSTV4
     &      yday,' ',ymod,' ',localrec,' ',diffsecs
./pkg/ecco/cost_gencost_sstv4.F 97 COST_GENCOST_SSTV4
      integer yday, ymod
./pkg/ecco/cost_sla_read.F 101 COST_SLA_READ
      ymod = sla_startdate(1)/10000
./pkg/ecco/cost_sla_read.F 103 COST_SLA_READ
      if ( ymod .GE. yday ) then
./pkg/ecco/cost_sla_read.F 71 COST_SLA_READ
      integer yday, ymod
./pkg/ecco/cost_sla_read_yd.F 71 COST_SLA_READ_YD
      integer yday, ymod