Symbol Description Uses
FORCEY 31



File Line number Procedure Code
./pkg/seaice/SEAICE.h 79 NO PROCEDURE
     &     DRAGS,DRAGA,FORCEX,FORCEY,UICEC,VICEC
./pkg/seaice/SEAICE.h 92 NO PROCEDURE
      _RL FORCEY     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/dynsolver.F 149 DYNSOLVER
          FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*
./pkg/seaice/dynsolver.F 194 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 201 DYNSOLVER
          FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 211 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 215 DYNSOLVER
          FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 340 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/dynsolver.F 348 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 459 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/dynsolver.F 467 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 119 LSR
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 122 LSR
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 446 LSR
     &        +FORCEY(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 469 SEAICE_EVP
            FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+
./pkg/seaice/seaice_evp.F 487 SEAICE_EVP
            FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*(
./pkg/seaice/seaice_evp.F 511 SEAICE_EVP
     &           + FORCEY(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 96 SEAICE_INIT_VARIA
          FORCEY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 259 SEAICE_LSR
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+
./pkg/seaice/seaice_lsr.F 278 SEAICE_LSR
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 282 SEAICE_LSR
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 734 SEAICE_LSR
     &         + FORCEY(I,J,bi,bj)