| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/growth.F |
100 |
GROWTH |
AR(I,J,bi,bj)=MIN(AREA(I,J,2,bi,bj), |
|
./pkg/seaice/growth.F |
196 |
GROWTH |
& -(GHEFF(I,J)/QS)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
201 |
GROWTH |
& -HSNOW(I,J,bi,bj)/SDF/0.920 _d 0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
211 |
GROWTH |
FHEFF(I,J,bi,bj)=FICE(I,J,bi,bj)*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
212 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*FO(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
240 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
246 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj))/Q0/SEAICE_deltaTtherm |
|
./pkg/seaice/growth.F |
253 |
GROWTH |
QNET(I,J,bi,bj)=QNETI(I,J,bi,bj)*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
254 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
255 |
GROWTH |
QSW(I,J,bi,bj)=QSWI(I,J,bi,bj)*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
256 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QSWO(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
318 |
GROWTH |
& QSW(I,J,bi,bj),QNETI(I,J,bi,bj)*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
319 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj), QNET(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
44 |
GROWTH |
_RL AR ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, nSx, nSy ) |