| 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 |