Symbol Description Uses
LND_i 13


File Line number Procedure Code
./pkg/seaice/seaice_itd_pickup.F 147 SEAICE_ITD_PICKUP 
             DO LND_i=2,LND_iend
./pkg/seaice/seaice_itd_pickup.F 148 SEAICE_ITD_PICKUP 
              LND_x(LND_i)=LND_x(LND_i-1)+LND_dx
./pkg/seaice/seaice_itd_pickup.F 151 SEAICE_ITD_PICKUP 
             DO LND_i=2,LND_iend
./pkg/seaice/seaice_itd_pickup.F 152 SEAICE_ITD_PICKUP 
              LND_tmp = log(LND_x(LND_i))-LND_mu
./pkg/seaice/seaice_itd_pickup.F 153 SEAICE_ITD_PICKUP 
              LND_pdf(LND_i)= 1.
./pkg/seaice/seaice_itd_pickup.F 154 SEAICE_ITD_PICKUP 
     &             / (LND_x(LND_i)*LND_sigma*sqrt(2*3.1416))
./pkg/seaice/seaice_itd_pickup.F 161 SEAICE_ITD_PICKUP 
             DO LND_i=1,LND_iend
./pkg/seaice/seaice_itd_pickup.F 162 SEAICE_ITD_PICKUP 
              IF ( LND_x(LND_i).GT.Hlimit(k) ) k=k+1
./pkg/seaice/seaice_itd_pickup.F 164 SEAICE_ITD_PICKUP 
     &                             + LND_pdf(LND_i)*LND_dx
./pkg/seaice/seaice_itd_pickup.F 166 SEAICE_ITD_PICKUP 
     &                             + LND_pdf(LND_i)*LND_x(LND_i)*LND_dx
./pkg/seaice/seaice_itd_pickup.F 84 SEAICE_ITD_PICKUP 
      INTEGER LND_i, LND_iend