| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
146 |
GWDRAG |
dragu(i,j,L) = 0. |
|
./pkg/fizhi/fizhi_gwdrag.F |
175 |
GWDRAG |
call PASTIT( dragus,dragu,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
187 |
GWDRAG |
dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(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 |
193 |
GWDRAG |
dudt(i,j,L) = dudt(i,j,L) + dragu(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
208 |
GWDRAG |
tmpdiag(i,j) = dragu(i,j,L)*86400 |
|
./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 |
62 |
GWDRAG |
_RL dragu(im,jm,Lm), dragv(im,jm,Lm) |