| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1058 |
SEAICE_GROWTH |
& +HALF*tmpscal3*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1081 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1332 |
SEAICE_GROWTH |
IF ( AREA(i,j,bi,bj) .LT. AREApreTH(i,j) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1335 |
SEAICE_GROWTH |
& *AREA(i,j,bi,bj)/AREApreTH(i,j) |
|
./pkg/seaice/seaice_growth.F |
1352 |
SEAICE_GROWTH |
IF (AREApreTH(i,j).GT.0. _d 0) THEN |
|
./pkg/seaice/seaice_growth.F |
1353 |
SEAICE_GROWTH |
tmpscal1=IceAge(i,j,bi,bj)/AREApreTH(i,j) |
|
./pkg/seaice/seaice_growth.F |
1444 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1459 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
152 |
SEAICE_GROWTH |
_RL AREApreTH (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
318 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREANM1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
419 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
453 |
SEAICE_GROWTH |
AREApreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
470 |
SEAICE_GROWTH |
tmpscal1 = MAX(areaMin,AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
622 |
SEAICE_GROWTH |
& a_QbyATM_cover(I,J) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
623 |
SEAICE_GROWTH |
& + a_QbyATM_open(I,J) * ( ONE - AREApreTH(I,J) ) ) |
|
./pkg/seaice/seaice_growth.F |
632 |
SEAICE_GROWTH |
& a_FWbySublim(I,J) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
643 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
649 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
662 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
664 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
666 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
668 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
676 |
SEAICE_GROWTH |
& * a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
874 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
878 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |