Symbol Description Uses
iyear 69


File Line number Procedure Code
./pkg/ecco/cost_xbt.F 135 COST_XBT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_xbt.F 139 COST_XBT 
     &       xbtfile(1:il), '_', iyear
./pkg/ecco/cost_xbt.F 77 COST_XBT 
      integer iyear, imonth
./pkg/ecco/cost_salt.F 122 COST_SALT 
            do iyear=1,nyears
./pkg/ecco/cost_salt.F 123 COST_SALT 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_salt.F 134 COST_SALT 
                           if(iyear.eq.1) then
./pkg/ecco/cost_salt.F 136 COST_SALT 
                           elseif(iyear.eq.nyears) then
./pkg/ecco/cost_salt.F 82 COST_SALT 
      integer mrec, nyears, iyear
./pkg/ecco/cost_ctdtclim.F 122 COST_CTDTCLIM 
            do iyear=1,nyears
./pkg/ecco/cost_ctdtclim.F 123 COST_CTDTCLIM 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_ctdtclim.F 134 COST_CTDTCLIM 
                           if(iyear.eq.1) then
./pkg/ecco/cost_ctdtclim.F 136 COST_CTDTCLIM 
                           elseif(iyear.eq.nyears) then
./pkg/ecco/cost_ctdtclim.F 83 COST_CTDTCLIM 
      integer mrec, nyears, iyear
./pkg/ecco/cost_argo_theta.F 133 COST_ARGO_THETA 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_theta.F 137 COST_ARGO_THETA 
     &       argotfile(1:il), '_', iyear
./pkg/ecco/cost_argo_theta.F 76 COST_ARGO_THETA 
      integer iyear, imonth
./pkg/ecco/cost_readscatyfields.F 102 COST_READSCATYFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatyfields.F 107 COST_READSCATYFIELDS 
     &     scatydatfile(1:il), '_', iyear
./pkg/ecco/cost_readscatyfields.F 64 COST_READSCATYFIELDS 
      integer iyear, imonth
./pkg/ecco/cost_ctdsclim.F 123 COST_CTDSCLIM 
            do iyear=1,nyears
./pkg/ecco/cost_ctdsclim.F 124 COST_CTDSCLIM 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_ctdsclim.F 135 COST_CTDSCLIM 
                           if(iyear.eq.1) then
./pkg/ecco/cost_ctdsclim.F 137 COST_CTDSCLIM 
                           elseif(iyear.eq.nyears) then
./pkg/ecco/cost_ctdsclim.F 84 COST_CTDSCLIM 
      integer mrec, nyears, iyear
./pkg/ecco/cost_readsstfields.F 102 COST_READSSTFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readsstfields.F 107 COST_READSSTFIELDS 
     &     sstdatfile(1:il), '_', iyear
./pkg/ecco/cost_readsstfields.F 64 COST_READSSTFIELDS 
      integer iyear, imonth
./pkg/ecco/cost_argo_salt.F 130 COST_ARGO_SALT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_salt.F 134 COST_ARGO_SALT 
     &       argosfile(1:il), '_', iyear
./pkg/ecco/cost_argo_salt.F 77 COST_ARGO_SALT 
      integer iyear, imonth
./pkg/ecco/cost_ctdt.F 130 COST_CTDT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctdt.F 134 COST_CTDT 
     &       ctdtfile(1:il), '_', iyear
./pkg/ecco/cost_ctdt.F 78 COST_CTDT 
      integer iyear, imonth
./pkg/ecco/cost_theta.F 121 COST_THETA 
            do iyear=1,nyears
./pkg/ecco/cost_theta.F 122 COST_THETA 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_theta.F 133 COST_THETA 
                           if(iyear.eq.1) then
./pkg/ecco/cost_theta.F 135 COST_THETA 
                           elseif(iyear.eq.nyears) then
./pkg/ecco/cost_theta.F 81 COST_THETA 
      integer mrec, nyears, iyear
./pkg/ecco/cost_readsssfields.F 102 COST_READSSSFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readsssfields.F 107 COST_READSSSFIELDS 
     &     sssdatfile(1:il), '_', iyear
./pkg/ecco/cost_readsssfields.F 64 COST_READSSSFIELDS 
      integer iyear, imonth
./pkg/ecco/cost_readtmifields.F 102 COST_READTMIFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readtmifields.F 107 COST_READTMIFIELDS 
     &     tmidatfile(1:il), '_', iyear
./pkg/ecco/cost_readtmifields.F 64 COST_READTMIFIELDS 
      integer iyear, imonth
./pkg/ecco/cost_ctds.F 129 COST_CTDS 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 133 COST_CTDS 
     &       ctdsfile(1:il), '_', iyear
./pkg/ecco/cost_ctds.F 77 COST_CTDS 
      integer iyear, imonth
./pkg/ecco/cost_readscatxfields.F 103 COST_READSCATXFIELDS 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_readscatxfields.F 108 COST_READSCATXFIELDS 
     &     scatxdatfile(1:il), '_', iyear
./pkg/ecco/cost_readscatxfields.F 64 COST_READSCATXFIELDS 
      integer iyear, imonth
./pkg/cal/cal_monthsforyear.F 119 CAL_MONTHSFORYEAR 
        if ( iyear .eq. 1 ) then
./pkg/cal/cal_monthsforyear.F 122 CAL_MONTHSFORYEAR 
        else if ( ( iyear .gt. 1 )        .and.
./pkg/cal/cal_monthsforyear.F 123 CAL_MONTHSFORYEAR 
     &            ( iyear .lt. numyears )       ) then
./pkg/cal/cal_monthsforyear.F 126 CAL_MONTHSFORYEAR 
     &                 (iyear - 2)*nmonthyear + 1
./pkg/cal/cal_monthsforyear.F 128 CAL_MONTHSFORYEAR 
     &                 (iyear - 2)*nmonthyear + nmonthyear
./pkg/cal/cal_monthsforyear.F 129 CAL_MONTHSFORYEAR 
        else if ( iyear .eq. numyears ) then
./pkg/cal/cal_monthsforyear.F 42 CAL_MONTHSFORYEAR 
      integer iyear
./pkg/cal/cal_monthsforyear.F 79 CAL_MONTHSFORYEAR 
        if ( iyear .eq. 1 ) then
./pkg/cal/cal_monthsforyear.F 7 CAL_MONTHSFORYEAR 
     I                              iyear,
./pkg/fizhi/update_ocean_exports.F 175 GETSICE 
      integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F 213 GETSICE 
      iyear   = nymdmod/10000
./pkg/fizhi/update_ocean_exports.F 216 GETSICE 
      if( iyear.ne.iyearbc ) then
./pkg/fizhi/update_ocean_exports.F 244 GETSICE 
       if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then
./pkg/fizhi/update_ocean_exports.F 247 GETSICE 
        write(6,*)'Requested Year:  ', iyear
./pkg/fizhi/update_ocean_exports.F 427 GETSST 
      integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F 464 GETSST 
      iyear   = nymdmod/10000
./pkg/fizhi/update_ocean_exports.F 467 GETSST 
      if( iyear.ne.iyearbc ) then
./pkg/fizhi/update_ocean_exports.F 495 GETSST 
       if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then
./pkg/fizhi/update_ocean_exports.F 498 GETSST 
        write(6,*)'Requested Year:  ', iyear