Symbol Description Uses
Ldim 4


File Line number Procedure Code
./pkg/fizhi/fizhi_fillnegs.F 36 QCHECK 
      DO L=2,Ldim
./pkg/fizhi/fizhi_fillnegs.F 51 QCHECK 
       if(qz(i,j,Ldim,bi,bj).lt.0.0  _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0