Symbol Description Uses
tmpsum 7


File Line number Procedure Code
./verification/internal_wave/code/obcs_calc.F 45 OBCS_CALC 
      _RL tmpsum
./verification/internal_wave/code/obcs_calc.F 53 OBCS_CALC 
      tmpsum=0.
./verification/internal_wave/code/obcs_calc.F 56 OBCS_CALC 
       tmpsum=tmpsum+vertStructWst(K)*drF(K)
./verification/internal_wave/code/obcs_calc.F 58 OBCS_CALC 
      tmpsum=tmpsum/rF(Nr+1)
./verification/internal_wave/code/obcs_calc.F 60 OBCS_CALC 
       vertStructWst(K)=vertStructWst(K)-tmpsum