Symbol Description Uses
Ldim 4



File Line number Procedure Code
./pkg/fizhi/fizhi_fillnegs.F 26 QCHECK
      integer idim1,idim2,jdim1,jdim2,Ldim,im1,im2,jm1,jm2
./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