| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
370 |
GWDD |
_RL vaisd,velco,deluu,delvv,delve2,delz,vsqua |
|
./pkg/fizhi/fizhi_gwdrag.F |
491 |
GWDD |
velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
498 |
GWDD |
if( velco.le.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
505 |
GWDD |
fro2 = bv(i,L)/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
582 |
GWDD |
velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
586 |
GWDD |
if( velco.lt.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
594 |
GWDD |
fro2 = vaisd/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |