Symbol Description Uses
QNET 8



File Line number Procedure Code
./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 261 GROWTH
          QNET(I,J,bi,bj)=QNET(I,J,bi,bj)
./pkg/seaice/growth.F 301 GROWTH
       CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid )
./pkg/seaice/growth.F 307 GROWTH
          print*,'I J QNET:',I, J, QNET(i,j,bi,bj), QSW(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)