File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
71 |
NO PROCEDURE |
COMMON/QFLUX/QNETO,QNETI,QSWO,QSWI |
./pkg/seaice/SEAICE.h |
84 |
NO PROCEDURE |
_RL QSWO (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
./pkg/seaice/budget.F |
107 |
BUDGET |
QSWO(I,J,bi,bj)=Qsw(I,J,bi,bj) |
./pkg/seaice/budget.F |
119 |
BUDGET |
QSWO(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
./pkg/seaice/budget.F |
28 |
BUDGET |
_RL QSWO (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
./pkg/seaice/budget.F |
31 |
BUDGET |
COMMON/QFLUX/QNETO,QNETI,QSWO,QSWI |
./pkg/seaice/growth.F |
256 |
GROWTH |
& +(ONE-AR(I,J,bi,bj))*QSWO(I,J,bi,bj) |