| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1409 |
SEAICE_GROWTH |
tmpscal1 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1696 |
SEAICE_GROWTH |
tmpscal3 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1785 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
185 |
SEAICE_GROWTH |
_RL HEFFITDpreTH (1:sNx,1:sNy,1:nITD) |
|
./pkg/seaice/seaice_growth.F |
1894 |
SEAICE_GROWTH |
IF ( HEFFITDpreTH(I,J,IT).LE.ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1898 |
SEAICE_GROWTH |
& HEFFITD(I,J,IT,bi,bj)/HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1928 |
SEAICE_GROWTH |
& ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) ) |
|
./pkg/seaice/seaice_growth.F |
531 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
603 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
633 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
638 |
SEAICE_GROWTH |
tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
646 |
SEAICE_GROWTH |
& sqrt(HEFFITDpreTH(I,J,IT) * HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
698 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
700 |
SEAICE_GROWTH |
& (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce + |