| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
147 |
GWDRAG |
dragv(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_gwdrag.F |
176 |
GWDRAG |
call PASTIT( dragvs,dragv,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
189 |
GWDRAG |
dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i |
|
./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 |
194 |
GWDRAG |
dvdt(i,j,L) = dvdt(i,j,L) + dragv(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
217 |
GWDRAG |
tmpdiag(i,j) = dragv(i,j,L)*86400 |
|
./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 |
62 |
GWDRAG |
_RL dragu(im,jm,Lm), dragv(im,jm,Lm) |