| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1157 |
SEAICE_GROWTH |
tmpscal0 = |
|
./pkg/seaice/seaice_growth.F |
1160 |
SEAICE_GROWTH |
IF ( tmpscal0 .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_growth.F |
1161 |
SEAICE_GROWTH |
tmpscal0=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
tmpscal0=SQRT(tmpscal0) |
|
./pkg/seaice/seaice_growth.F |
1184 |
SEAICE_GROWTH |
& * 0.8 _d 0 * tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
142 |
SEAICE_GROWTH |
_RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1682 |
SEAICE_GROWTH |
tmpscal0 = (tmpscal4*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1685 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1694 |
SEAICE_GROWTH |
tmpscal0 = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1696 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1813 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) - d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1818 |
SEAICE_GROWTH |
tmpscal2 = MAX(-tmpscal0,tmpscal1) |
|
./pkg/seaice/seaice_growth.F |
2584 |
SEAICE_GROWTH |
tmpscal0=FWFsiGlob / globalArea |
|
./pkg/seaice/seaice_growth.F |
2599 |
SEAICE_GROWTH |
empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2600 |
SEAICE_GROWTH |
SIatmFW(i,j,bi,bj) = SIatmFW(i,j,bi,bj) - tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
2616 |
SEAICE_GROWTH |
SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2625 |
SEAICE_GROWTH |
& 'SIatmFW = ', tmpscal0 |