File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_itd_remap.F |
127 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. 0. _d 0 ) THEN |
./pkg/seaice/seaice_itd_remap.F |
129 |
SEAICE_ITD_REMAP |
& /SQRT( areaitdPre(i,j,k)**2 + area_reg_sq ) |
./pkg/seaice/seaice_itd_remap.F |
139 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. SEAICE_area_reg ) THEN |
./pkg/seaice/seaice_itd_remap.F |
140 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k)/areaitdPre(i,j,k) |
./pkg/seaice/seaice_itd_remap.F |
66 |
SEAICE_ITD_REMAP |
_RL areaitdPre (1:sNx,1:sNy,1:nITD) |