| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1048 |
SEAICE_GROWTH |
IF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1051 |
SEAICE_GROWTH |
& SEAICE_mcPheeTaper * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1052 |
SEAICE_GROWTH |
ELSEIF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1089 |
SEAICE_GROWTH |
& / ( floeDiameterMax*( 1. _d 0 - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1090 |
SEAICE_GROWTH |
& + floeDiameterMin*AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1442 |
SEAICE_GROWTH |
& AREApreTH(I,J) * r_QbyOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1468 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1471 |
SEAICE_GROWTH |
& AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1487 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1491 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1600 |
SEAICE_GROWTH |
& (1.0 _d 0 - AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1620 |
SEAICE_GROWTH |
if ((1.0 _d 0 - AREApreTH(I,J)).LE.siEps) then |
|
./pkg/seaice/seaice_growth.F |
1786 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREAITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
180 |
SEAICE_GROWTH |
_RL AREApreTH (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
1936 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
2026 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2112 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2212 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2268 |
SEAICE_GROWTH |
& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) ) |
|
./pkg/seaice/seaice_growth.F |
2327 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2376 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2390 |
SEAICE_GROWTH |
& EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2407 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2413 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2426 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2546 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj)-AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2573 |
SEAICE_GROWTH |
tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
515 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
596 |
SEAICE_GROWTH |
AREApreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
616 |
SEAICE_GROWTH |
AREAforAtmFW(I,J,bi,bj) = AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
662 |
SEAICE_GROWTH |
tmpscal1 = SQRT(AREApreTH(I,J)* AREApreTH(I,J) + area_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
670 |
SEAICE_GROWTH |
recip_heffActual(I,J) = AREApreTH(I,J) / |
|
./pkg/seaice/seaice_growth.F |
715 |
SEAICE_GROWTH |
& HSNWpreTH(I,J) * SEAICE_rhoSnow)/AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
954 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
956 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
965 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
967 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
969 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
971 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
982 |
SEAICE_GROWTH |
& * a_FWbySublim(I,J)*AREApreTH(I,J) |