Symbol Description Uses
LND_x 8


File Line number Procedure Code
./pkg/seaice/seaice_itd_pickup.F 128 SEAICE_ITD_PICKUP 
             LND_x(1) = 0.+LND_dx/2.
./pkg/seaice/seaice_itd_pickup.F 131 SEAICE_ITD_PICKUP 
              LND_x(LND_i)=LND_x(LND_i-1)+LND_dx
./pkg/seaice/seaice_itd_pickup.F 135 SEAICE_ITD_PICKUP 
              LND_tmp = log(LND_x(LND_i))-LND_mu
./pkg/seaice/seaice_itd_pickup.F 137 SEAICE_ITD_PICKUP 
     &             / (LND_x(LND_i)*LND_sigma*sqrt(2*3.1416))
./pkg/seaice/seaice_itd_pickup.F 145 SEAICE_ITD_PICKUP 
              IF ( LND_x(LND_i).GT.Hlimit(k) ) k=k+1
./pkg/seaice/seaice_itd_pickup.F 149 SEAICE_ITD_PICKUP 
     &                             + LND_pdf(LND_i)*LND_x(LND_i)*LND_dx
./pkg/seaice/seaice_itd_pickup.F 92 SEAICE_ITD_PICKUP 
      _RL LND_x  (LND_iend)