Symbol Description Uses
gFacZ 15



File Line number Procedure Code
./pkg/obcs/obcs_calc_stevens.F 117 OBCS_CALC_STEVENS
      _RL gFacZ  (1-OLx:sNx+OLx,Nr)
./pkg/obcs/obcs_calc_stevens.F 480 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 483 OBCS_CALC_STEVENS
            gFacZ (I,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 491 OBCS_CALC_STEVENS
     I        vVel, cflZon, gFacZ, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 499 OBCS_CALC_STEVENS
     I        vVel, cflZon, gFacZ, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 592 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 595 OBCS_CALC_STEVENS
            gFacZ (I,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 603 OBCS_CALC_STEVENS
     I        vVel, cflZon, gFacZ, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 611 OBCS_CALC_STEVENS
     I        vVel, cflZon, gFacZ, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 842 OBCS_STEVENS_CALC_TRACER_NORTH
     I     vVel, cflZon, gFacZ, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 870 OBCS_STEVENS_CALC_TRACER_NORTH
      _RL gFacZ                (1-OLx:sNx+OLx,Nr)
./pkg/obcs/obcs_calc_stevens.F 908 OBCS_STEVENS_CALC_TRACER_NORTH
     &        - gFacZ(I,K) * gammaf
./pkg/obcs/obcs_calc_stevens.F 924 OBCS_STEVENS_CALC_TRACER_SOUTH
     I     vVel, cflZon, gFacZ, pFac, aFac, 
./pkg/obcs/obcs_calc_stevens.F 952 OBCS_STEVENS_CALC_TRACER_SOUTH
      _RL gFacZ                (1-OLx:sNx+OLx,Nr)
./pkg/obcs/obcs_calc_stevens.F 989 OBCS_STEVENS_CALC_TRACER_SOUTH
     &        - gFacZ(I,K) * gammaf