Symbol Description Uses
iyear 60


File Line number Procedure Code
./pkg/fizhi/update_ocean_exports.F 184 GETSICE 
      integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F 205 GETSICE 
      iyear   = nymdmod/10000
./pkg/fizhi/update_ocean_exports.F 211 GETSICE 
     .           WRITE(sicedata,'(A,I4)')'sice19232.weekly.y',iyear
./pkg/fizhi/update_ocean_exports.F 213 GETSICE 
     .           WRITE(sicedata,'(A,I4)')'sice612102.weekly.y',iyear
./pkg/fizhi/update_ocean_exports.F 233 GETSICE 
      if( iyear.ne.iyearbc ) then
./pkg/fizhi/update_ocean_exports.F 261 GETSICE 
       if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then
./pkg/fizhi/update_ocean_exports.F 264 GETSICE 
        write(6,*)'Requested Year:  ', iyear
./pkg/fizhi/update_ocean_exports.F 445 GETSST 
      integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F 466 GETSST 
      iyear   = nymdmod/10000
./pkg/fizhi/update_ocean_exports.F 472 GETSST 
     .           WRITE(sstdata,'(A,I4)')'sst19232.weekly.y',iyear
./pkg/fizhi/update_ocean_exports.F 474 GETSST 
     .           WRITE(sstdata,'(A,I4)')'sst612102.weekly.y',iyear
./pkg/fizhi/update_ocean_exports.F 493 GETSST 
      if( iyear.ne.iyearbc ) then
./pkg/fizhi/update_ocean_exports.F 521 GETSST 
       if (.not.error .and. iyear.ne.iyearbc .and. iyearbc.ne.0) then
./pkg/fizhi/update_ocean_exports.F 524 GETSST 
        write(6,*)'Requested Year:  ', iyear
./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/ecco/cost_argo_salt.F 132 COST_ARGO_SALT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_salt.F 136 COST_ARGO_SALT 
     &       argosfile(1:il), '_', iyear
./pkg/ecco/cost_argo_salt.F 79 COST_ARGO_SALT 
      integer iyear, imonth
./pkg/ecco/cost_argo_theta.F 135 COST_ARGO_THETA 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_argo_theta.F 139 COST_ARGO_THETA 
     &       argotfile(1:il), '_', iyear
./pkg/ecco/cost_argo_theta.F 78 COST_ARGO_THETA 
      integer iyear, imonth
./pkg/ecco/cost_bp_read.F 103 COST_BP_READ 
     &     bpdatfile(1:il), '_', iyear
./pkg/ecco/cost_bp_read.F 64 COST_BP_READ 
      integer iyear, imonth
./pkg/ecco/cost_bp_read.F 98 COST_BP_READ 
      iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 131 COST_CTDS 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctds.F 135 COST_CTDS 
     &       ctdsfile(1:il), '_', iyear
./pkg/ecco/cost_ctds.F 79 COST_CTDS 
      integer iyear, imonth
./pkg/ecco/cost_ctdsclim.F 125 COST_CTDSCLIM 
            do iyear=1,nyears
./pkg/ecco/cost_ctdsclim.F 126 COST_CTDSCLIM 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_ctdsclim.F 137 COST_CTDSCLIM 
                           if(iyear.eq.1) then
./pkg/ecco/cost_ctdsclim.F 139 COST_CTDSCLIM 
                           elseif(iyear.eq.nyears) then
./pkg/ecco/cost_ctdsclim.F 86 COST_CTDSCLIM 
      integer mrec, nyears, iyear
./pkg/ecco/cost_ctdt.F 132 COST_CTDT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_ctdt.F 136 COST_CTDT 
     &       ctdtfile(1:il), '_', iyear
./pkg/ecco/cost_ctdt.F 80 COST_CTDT 
      integer iyear, imonth
./pkg/ecco/cost_ctdtclim.F 124 COST_CTDTCLIM 
            do iyear=1,nyears
./pkg/ecco/cost_ctdtclim.F 125 COST_CTDTCLIM 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_ctdtclim.F 136 COST_CTDTCLIM 
                           if(iyear.eq.1) then
./pkg/ecco/cost_ctdtclim.F 138 COST_CTDTCLIM 
                           elseif(iyear.eq.nyears) then
./pkg/ecco/cost_ctdtclim.F 85 COST_CTDTCLIM 
      integer mrec, nyears, iyear
./pkg/ecco/cost_salt.F 130 COST_SALT 
            do iyear=1,nyears
./pkg/ecco/cost_salt.F 131 COST_SALT 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_salt.F 84 COST_SALT 
      integer mrec, nyears, iyear
./pkg/ecco/cost_sigmar.F 132 COST_SIGMAR 
            do iyear=1,nyears
./pkg/ecco/cost_sigmar.F 133 COST_SIGMAR 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_sigmar.F 86 COST_SIGMAR 
      integer mrec, nyears, iyear
./pkg/ecco/cost_theta.F 130 COST_THETA 
            do iyear=1,nyears
./pkg/ecco/cost_theta.F 131 COST_THETA 
            mrec=irec+(iyear-1)*12
./pkg/ecco/cost_theta.F 84 COST_THETA 
      integer mrec, nyears, iyear
./pkg/ecco/cost_xbt.F 137 COST_XBT 
        iyear = mody + INT((modm-1+irec-1)/12)
./pkg/ecco/cost_xbt.F 141 COST_XBT 
     &       xbtfile(1:il), '_', iyear
./pkg/ecco/cost_xbt.F 79 COST_XBT 
      integer iyear, imonth