| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
194 |
GWDRAG |
dvdt(i,j,L) = dvdt(i,j,L) + dragv(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
295 |
GWDD |
SUBROUTINE GWDD ( ps,u,v,t,dudt,dvdt,xdrag,ydrag, |
|
./pkg/fizhi/fizhi_gwdrag.F |
343 |
GWDD |
_RL dudt(irun,Lm), dvdt(irun,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
56 |
GWDRAG |
_RL dvdt(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
5 |
GWDRAG |
. dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal) |
|
./pkg/fizhi/fizhi_gwdrag.F |
640 |
GWDD |
dvdt(i,Lm+1-L) = coef*(ytens(i,L+1)-ytens(i,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
649 |
GWDD |
dvdt(i,Lm) = coef*(ytens(i,nthin(i)+1)-ytens(i,1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
658 |
GWDD |
dvdt(i,Lm+1-L) = dvdt(i,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
668 |
GWDD |
dvdt(i,L) = - dvdt(i,L)/ps(i)*0.01 |