Symbol Description Uses
FICE1 6



File Line number Procedure Code
./pkg/seaice/budget.F 106 BUDGET
           FICE1(I,J,bi,bj)=QNET(I,J,bi,bj)
./pkg/seaice/budget.F 118 BUDGET
           FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J)    
./pkg/seaice/budget.F 122 BUDGET
           QNETO(I,J,bi,bj)=FICE1(I,J,bi,bj)
./pkg/seaice/budget.F 221 BUDGET
           FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J)    
./pkg/seaice/budget.F 37 BUDGET
      _RL FICE1       (1-OLx:sNx+OLx, 1-OLy:sNy+OLy,  nSx,nSy)
./pkg/seaice/budget.F 7 BUDGET
      SUBROUTINE BUDGET(UG, TICE, HICE1, FICE1, KOPEN, bi, bj)