| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_advdiff.F |
340 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, areaNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_growth.F |
344 |
SEAICE_GROWTH |
& FICE(I,J) * areaNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
345 |
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 |
790 |
SEAICE_GROWTH |
DIAGarray(I,J) = QNETI(I,J) * areaNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
76 |
SEAICE_INIT_VARIA |
areaNm1(i,j,bi,bj)=0. _d 0 |