Symbol Description Uses
dragt 5



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 148 GWDRAG
       dragt(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F 191 GWDRAG
      dragt(i,j,L) = -( uz(i,j,L)*dragu(i,j,L)+vz(i,j,L)*dragv(i,j,L) )
./pkg/fizhi/fizhi_gwdrag.F 195 GWDRAG
       dtdt(i,j,L) = dtdt(i,j,L) + dragt(i,j,L)*pz(i,j)/pkz(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F 226 GWDRAG
        tmpdiag(i,j) = dragt(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 63 GWDRAG
      _RL dragt(im,jm,Lm)