Symbol Description Uses
gFacZ 9



File Line number Procedure Code
./pkg/obcs/obcs_calc_stevens.F 115 OBCS_CALC_STEVENS
      _RL gFacZ  (1-OLx:sNx+OLx,Nr)
./pkg/obcs/obcs_calc_stevens.F 515 OBCS_CALC_STEVENS
            gFacZ(I,K)  = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 518 OBCS_CALC_STEVENS
            gFacZ (I,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 542 OBCS_CALC_STEVENS
     &        - gFacZ(I,K) * gammat
./pkg/obcs/obcs_calc_stevens.F 560 OBCS_CALC_STEVENS
     &        - gFacZ(I,K) * gammas
./pkg/obcs/obcs_calc_stevens.F 653 OBCS_CALC_STEVENS
            gFacZ(I,K)  = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 656 OBCS_CALC_STEVENS
            gFacZ (I,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 680 OBCS_CALC_STEVENS
     &        - gFacZ(I,K) * gammat
./pkg/obcs/obcs_calc_stevens.F 698 OBCS_CALC_STEVENS
     &        - gFacZ(I,K) * gammas