| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1030 |
SEAICE_GROWTH |
IF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1033 |
SEAICE_GROWTH |
& SEAICE_mcPheeTaper * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1034 |
SEAICE_GROWTH |
ELSEIF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1071 |
SEAICE_GROWTH |
& / ( floeDiameterMax*( 1. _d 0 - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1072 |
SEAICE_GROWTH |
& + floeDiameterMin*AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1420 |
SEAICE_GROWTH |
& AREApreTH(I,J) * r_QbyOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1446 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1449 |
SEAICE_GROWTH |
& AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1465 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1469 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1578 |
SEAICE_GROWTH |
& (1.0 _d 0 - AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1598 |
SEAICE_GROWTH |
if ((1.0 _d 0 - AREApreTH(I,J)).LE.siEps) then |
|
./pkg/seaice/seaice_growth.F |
175 |
SEAICE_GROWTH |
_RL AREApreTH (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
1764 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREAITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
1901 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1988 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2074 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2174 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2230 |
SEAICE_GROWTH |
& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) ) |
|
./pkg/seaice/seaice_growth.F |
2289 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2338 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2352 |
SEAICE_GROWTH |
& EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2369 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2375 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2388 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2506 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj)-AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2533 |
SEAICE_GROWTH |
tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
497 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
578 |
SEAICE_GROWTH |
AREApreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
598 |
SEAICE_GROWTH |
AREAforAtmFW(I,J,bi,bj) = AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
644 |
SEAICE_GROWTH |
tmpscal1 = SQRT(AREApreTH(I,J)* AREApreTH(I,J) + area_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
652 |
SEAICE_GROWTH |
recip_heffActual(I,J) = AREApreTH(I,J) / |
|
./pkg/seaice/seaice_growth.F |
697 |
SEAICE_GROWTH |
& HSNWpreTH(I,J) * SEAICE_rhoSnow)/AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
936 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
938 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
947 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
949 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
951 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
953 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
964 |
SEAICE_GROWTH |
& * a_FWbySublim(I,J)*AREApreTH(I,J) |