Symbol Description Uses
gFacM switch (0 or 1) that turns on restoring boundary condition 15



File Line number Procedure Code
./pkg/obcs/obcs_calc_stevens.F 113 OBCS_CALC_STEVENS
      _RL gFacM  (1-OLy:sNy+OLy,Nr)
./pkg/obcs/obcs_calc_stevens.F 242 OBCS_CALC_STEVENS
            gFacM(J,K)  = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 245 OBCS_CALC_STEVENS
            gFacM (J,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 253 OBCS_CALC_STEVENS
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 261 OBCS_CALC_STEVENS
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 369 OBCS_CALC_STEVENS
            gFacM(J,K)  = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 372 OBCS_CALC_STEVENS
            gFacM (J,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 380 OBCS_CALC_STEVENS
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 388 OBCS_CALC_STEVENS
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 679 OBCS_STEVENS_CALC_TRACER_EAST
     I     uVel, cflMer, gFacM, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 707 OBCS_STEVENS_CALC_TRACER_EAST
      _RL gFacM                (1-OLy:sNy+OLy,Nr)
./pkg/obcs/obcs_calc_stevens.F 744 OBCS_STEVENS_CALC_TRACER_EAST
     &        - gFacM(J,K) * gammaf
./pkg/obcs/obcs_calc_stevens.F 760 OBCS_STEVENS_CALC_TRACER_WEST
     I     uVel, cflMer, gFacM, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 788 OBCS_STEVENS_CALC_TRACER_WEST
      _RL gFacM                (1-OLy:sNy+OLy,Nr)
./pkg/obcs/obcs_calc_stevens.F 826 OBCS_STEVENS_CALC_TRACER_WEST
     &        - gFacM(J,K) * gammaf