| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/growth.F |
190 |
GROWTH |
GAREA(I,J)=HSNOW(I,J,bi,bj)*QS |
|
./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 |
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 |
221 |
GROWTH |
GAREA(I,J)=SEAICE_deltaTtherm*FO(I,J,bi,bj)*Q0 |
|
./pkg/seaice/growth.F |
223 |
GROWTH |
GAREA(I,J)=MAX(ZERO,GAREA(I,J)) |
|
./pkg/seaice/growth.F |
229 |
GROWTH |
GAREA(I,J)=TWO*(ONE-AREA(I,J,2,bi,bj))*GAREA(I,J)/HO |
|
./pkg/seaice/growth.F |
232 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)+GAREA(I,J) |
|
./pkg/seaice/growth.F |
306 |
GROWTH |
GAREA(I,J)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
311 |
GROWTH |
CALL PLOT_FIELD_XYRL( GAREA,'Current HEFF ', myIter, myThid ) |
|
./pkg/seaice/growth.F |
42 |
GROWTH |
_RL GAREA( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |