| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
170 |
SEAICE_GROWTH |
QNETO(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
275 |
SEAICE_GROWTH |
O QNETO, QSWO, |
|
./pkg/seaice/seaice_growth.F |
345 |
SEAICE_GROWTH |
& QNETO(I,J) * ( ONE - areaNm1(I,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_growth.F |
483 |
SEAICE_GROWTH |
& + QNETO(I,J) * (ONE-AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
GAREA(I,J) = MAX(ZERO,SEAICE_deltaTtherm*QNETO(I,J)*recip_QI) |
|
./pkg/seaice/seaice_growth.F |
771 |
SEAICE_GROWTH |
& +QNETO(I,J) * (ONE-AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
782 |
SEAICE_GROWTH |
DIAGarray(I,J) = QNETO(I,J) * (ONE-areaNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
86 |
SEAICE_GROWTH |
_RL QNETO (1:sNx,1:sNy) |