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


File Line number Procedure Code
./pkg/obcs/obcs_calc_stevens.F 111 OBCS_CALC_STEVENS 
      _RL gFacM  (1-OLy:sNy+OLy,Nr)
./pkg/obcs/obcs_calc_stevens.F 240 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 243 OBCS_CALC_STEVENS 
            gFacM (J,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 267 OBCS_CALC_STEVENS 
     &          - gFacM(J,K) * gammat
./pkg/obcs/obcs_calc_stevens.F 285 OBCS_CALC_STEVENS 
     &          - gFacM(J,K) * gammas
./pkg/obcs/obcs_calc_stevens.F 378 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 381 OBCS_CALC_STEVENS 
            gFacM (J,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 405 OBCS_CALC_STEVENS 
     &        - gFacM(J,K) * gammat
./pkg/obcs/obcs_calc_stevens.F 423 OBCS_CALC_STEVENS 
     &        - gFacM(J,K) * gammas