| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1387 |
SEAICE_GROWTH |
tmpscal1 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1674 |
SEAICE_GROWTH |
tmpscal3 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1763 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
180 |
SEAICE_GROWTH |
_RL HEFFITDpreTH (1:sNx,1:sNy,1:nITD) |
|
./pkg/seaice/seaice_growth.F |
1865 |
SEAICE_GROWTH |
tmpscal1=HEFFITDpreTH(I,J,IT)/AREAITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1893 |
SEAICE_GROWTH |
& ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) ) |
|
./pkg/seaice/seaice_growth.F |
513 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
585 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
615 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
620 |
SEAICE_GROWTH |
tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
628 |
SEAICE_GROWTH |
& sqrt(HEFFITDpreTH(I,J,IT) * HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
680 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
682 |
SEAICE_GROWTH |
& (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce + |