Symbol Description Uses
dragx 4



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 177 GWDRAG
      call PASTIT( dragxs,dragx,istrip,im*jm,im*jm,1 ,n )
./pkg/fizhi/fizhi_gwdrag.F 237 GWDRAG
       call DIAGNOSTICS_FILL(dragx,'GWDUS   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 263 GWDRAG
        tmpdiag(i,j) = dragx(i,j) + sumu(i,j)*pz(i,j)/grav*100
./pkg/fizhi/fizhi_gwdrag.F 64 GWDRAG
      _RL dragx(im,jm), dragy(im,jm)