| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
193 |
GWDRAG |
dudt(i,j,L) = dudt(i,j,L) + dragu(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 |
55 |
GWDRAG |
_RL dudt(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 |
639 |
GWDD |
dudt(i,Lm+1-L) = coef*(xtens(i,L+1)-xtens(i,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
648 |
GWDD |
dudt(i,Lm) = coef*(xtens(i,nthin(i)+1)-xtens(i,1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
657 |
GWDD |
dudt(i,Lm+1-L) = dudt(i,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
667 |
GWDD |
dudt(i,L) = - dudt(i,L)/ps(i)*0.01 |