| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
251 |
GWDRAG |
sumu(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
257 |
GWDRAG |
sumu(i,j) = sumu(i,j) + dragu(i,j,L)*dpres(i,j,L)/pz(i,j) |
|
./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 |
274 |
GWDRAG |
sumu(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
280 |
GWDRAG |
sumu(i,j) = sumu(i,j) + dragv(i,j,L)*dpres(i,j,L)/pz(i,j) |
|
./pkg/fizhi/fizhi_gwdrag.F |
286 |
GWDRAG |
tmpdiag(i,j) = dragy(i,j) + sumu(i,j)*pz(i,j)/grav*100 |
|
./pkg/fizhi/fizhi_gwdrag.F |
65 |
GWDRAG |
_RL sumu(im,jm) |