| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1179 |
SEAICE_GROWTH |
tmpscal0 = |
|
./pkg/seaice/seaice_growth.F |
1182 |
SEAICE_GROWTH |
IF ( tmpscal0 .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_growth.F |
1183 |
SEAICE_GROWTH |
tmpscal0=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
1185 |
SEAICE_GROWTH |
tmpscal0=SQRT(tmpscal0) |
|
./pkg/seaice/seaice_growth.F |
1206 |
SEAICE_GROWTH |
& * 0.8 _d 0 * tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
147 |
SEAICE_GROWTH |
_RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1704 |
SEAICE_GROWTH |
tmpscal0 = (tmpscal4*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1707 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1716 |
SEAICE_GROWTH |
tmpscal0 = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1718 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1835 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) - d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1840 |
SEAICE_GROWTH |
tmpscal2 = MAX(-tmpscal0,tmpscal1) |
|
./pkg/seaice/seaice_growth.F |
2624 |
SEAICE_GROWTH |
tmpscal0=FWFsiGlob / globalArea |
|
./pkg/seaice/seaice_growth.F |
2639 |
SEAICE_GROWTH |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2640 |
SEAICE_GROWTH |
SIatmFW(i,j,bi,bj) = SIatmFW(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2656 |
SEAICE_GROWTH |
SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2665 |
SEAICE_GROWTH |
& 'SIatmFW = ', tmpscal0 |