| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/growth.F |
126 |
GROWTH |
GHEFF(I,J)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
128 |
GROWTH |
YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
189 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FICE(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
191 |
GROWTH |
IF(GHEFF(I,J).GT.ZERO.AND.GHEFF(I,J).LE.GAREA(I,J)) THEN |
|
./pkg/seaice/growth.F |
192 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)-GHEFF(I,J)/QS |
|
./pkg/seaice/growth.F |
196 |
GROWTH |
& -(GHEFF(I,J)/QS)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
198 |
GROWTH |
ELSE IF(GHEFF(I,J).GT.GAREA(I,J)) THEN |
|
./pkg/seaice/growth.F |
199 |
GROWTH |
FICE(I,J,bi,bj)=-(GHEFF(I,J)-GAREA(I,J))/SEAICE_deltaTtherm |
|
./pkg/seaice/growth.F |
220 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FHEFF(I,J,bi,bj)*Q0 |
|
./pkg/seaice/growth.F |
222 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
224 |
GROWTH |
HCORR(I,J,bi,bj)=MIN(ZERO,GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
239 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm* |
|
./pkg/seaice/growth.F |
241 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
242 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)+GHEFF(I,J) |
|
./pkg/seaice/growth.F |
243 |
GROWTH |
SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)+GHEFF(I,J) |
|
./pkg/seaice/growth.F |
245 |
GROWTH |
QNETI(I,J,bi,bj)=(GHEFF(I,J)-SEAICE_deltaTtherm* |
|
./pkg/seaice/growth.F |
305 |
GROWTH |
GHEFF(I,J)=SQRT(UICE(I,J,1,bi,bj)**2+VICE(I,J,1,bi,bj)**2) |
|
./pkg/seaice/growth.F |
310 |
GROWTH |
CALL PLOT_FIELD_XYRL( GHEFF,'Current UICE ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
43 |
GROWTH |
_RL GHEFF( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |