| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_growth.F |
1277 |
SEAICE_GROWTH |
tmparr1(I,J) = (HEFF(I,J,bi,bj)-HEFFpreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1281 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(tmparr1,'SIthdgrh',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
1307 |
SEAICE_GROWTH |
tmparr1(I,J) = d_HEFFbyFLOODING(I,J)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1310 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(tmparr1,'SIsnwice',0,1,3,bi,bj,myThid) |
|
./pkg/seaice/seaice_growth.F |
170 |
SEAICE_GROWTH |
_RL tmparr1 (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_growth.F |
287 |
SEAICE_GROWTH |
tmparr1(I,J) = 0.0 _d 0 |