Symbol Description Uses
yday 65


File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 104 SEAICE_COST_CONCENTRATION 
      integer yday, ymod
./pkg/seaice/seaice_cost_concentration.F 172 SEAICE_COST_CONCENTRATION 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/seaice/seaice_cost_concentration.F 182 SEAICE_COST_CONCENTRATION 
      print *,'yday :         ', yday
./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_concentration.F 194 SEAICE_COST_CONCENTRATION 
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_concentration.F 215 SEAICE_COST_CONCENTRATION 
     &       localobsfile(1:il), '_', yday
./pkg/seaice/seaice_cost_sss.F 105 SEAICE_COST_SSS 
      integer yday, ymod
./pkg/seaice/seaice_cost_sss.F 190 SEAICE_COST_SSS 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/seaice/seaice_cost_sss.F 200 SEAICE_COST_SSS 
      print *,'yday :         ', yday
./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_sss.F 212 SEAICE_COST_SSS 
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_sss.F 233 SEAICE_COST_SSS 
     &      localobsfile(1:il), '_', yday
./pkg/seaice/seaice_cost_sst.F 103 SEAICE_COST_SST 
      integer yday, ymod
./pkg/seaice/seaice_cost_sst.F 185 SEAICE_COST_SST 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/seaice/seaice_cost_sst.F 195 SEAICE_COST_SST 
      print *,'yday :         ', yday
./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/seaice/seaice_cost_sst.F 207 SEAICE_COST_SST 
         middate(1) = yday*10000+100+1
./pkg/seaice/seaice_cost_sst.F 228 SEAICE_COST_SST 
     &      localobsfile(1:il), '_', yday
./pkg/dic/insol.F 41 INSOL 
       _RL  dayfrac, yday, delta
./pkg/dic/insol.F 58 INSOL 
        yday = 2. _d 0*PI*dayfrac                    !convert to radians
./pkg/dic/insol.F 60 INSOL 
     &         -(0.399912 _d 0*cos(yday))            !cosine zenith angle
./pkg/dic/insol.F 61 INSOL 
     &         +(0.070257 _d 0*sin(yday))            !(paltridge+platt)
./pkg/dic/insol.F 62 INSOL 
     &         -(0.006758 _d 0*cos(2. _d 0*yday))
./pkg/dic/insol.F 63 INSOL 
     &         +(0.000907 _d 0*sin(2. _d 0*yday))
./pkg/dic/insol.F 64 INSOL 
     &         -(0.002697 _d 0*cos(3. _d 0*yday))
./pkg/dic/insol.F 65 INSOL 
     &         +(0.001480 _d 0*sin(3. _d 0*yday)) )
./pkg/ecco/cost_gencost_sstv4.F 172 COST_GENCOST_SSTV4 
             call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_gencost_sstv4.F 174 COST_GENCOST_SSTV4 
             if ( ymod .EQ. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 177 COST_GENCOST_SSTV4 
                middate(1) = yday*10000+100+1
./pkg/ecco/cost_gencost_sstv4.F 188 COST_GENCOST_SSTV4 
     &         gencost_datafile(igen_amsre)(1:il), '_', yday
./pkg/ecco/cost_gencost_sstv4.F 310 COST_GENCOST_SSTV4 
             call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_gencost_sstv4.F 312 COST_GENCOST_SSTV4 
             if ( ymod .EQ. yday ) then
./pkg/ecco/cost_gencost_sstv4.F 315 COST_GENCOST_SSTV4 
                middate(1) = yday*10000+100+1
./pkg/ecco/cost_gencost_sstv4.F 326 COST_GENCOST_SSTV4 
     &         gencost_datafile(igen_amsre)(1:il), '_', yday
./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 202 COST_GENERIC 
           call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_generic.F 204 COST_GENERIC 
           if ( ymod .EQ. yday ) then
./pkg/ecco/cost_generic.F 207 COST_GENERIC 
              middate(1) = yday*10000+100+1
./pkg/ecco/cost_generic.F 226 COST_GENERIC 
           yday   = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_generic.F 232 COST_GENERIC 
     &       localobsfile(1:il), '_', yday
./pkg/ecco/cost_readers.F 100 COST_READERS 
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_readers.F 112 COST_READERS 
     &     ersfile(1:il), '_', yday
./pkg/ecco/cost_readers.F 65 COST_READERS 
      integer yday, ymod
./pkg/ecco/cost_readers.F 94 COST_READERS 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readers.F 97 COST_READERS 
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readgfo.F 100 COST_READGFO 
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_readgfo.F 112 COST_READGFO 
     &     gfofile(1:il), '_', yday
./pkg/ecco/cost_readgfo.F 65 COST_READGFO 
      integer yday, ymod
./pkg/ecco/cost_readgfo.F 94 COST_READGFO 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readgfo.F 97 COST_READGFO 
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_readtopex.F 100 COST_READTOPEX 
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_readtopex.F 112 COST_READTOPEX 
     &     topexfile(1:il), '_', yday
./pkg/ecco/cost_readtopex.F 65 COST_READTOPEX 
      integer yday, ymod
./pkg/ecco/cost_readtopex.F 94 COST_READTOPEX 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_readtopex.F 97 COST_READTOPEX 
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_sla_read.F 102 COST_SLA_READ 
      if ( ymod .EQ. yday ) then
./pkg/ecco/cost_sla_read.F 105 COST_SLA_READ 
         middate(1) = yday*10000+100+1
./pkg/ecco/cost_sla_read.F 117 COST_SLA_READ 
     &     sla_file(1:il), '_', yday
./pkg/ecco/cost_sla_read.F 70 COST_SLA_READ 
      integer yday, ymod
./pkg/ecco/cost_sla_read.F 99 COST_SLA_READ 
      call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid )
./pkg/ecco/cost_sla_read_yd.F 71 COST_SLA_READ_YD 
      integer yday, ymod