| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
369 |
GWDD |
_RL gocp,roave,roiave,frsf,gstar,vai1,vai2 |
|
./pkg/fizhi/fizhi_gwdrag.F |
432 |
GWDD |
vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp |
|
./pkg/fizhi/fizhi_gwdrag.F |
433 |
GWDD |
if( vai1.LT.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
434 |
GWDD |
vai1 = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
437 |
GWDD |
vsqua = vai1*vai2 |
|
./pkg/fizhi/fizhi_gwdrag.F |
570 |
GWDD |
vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp |
|
./pkg/fizhi/fizhi_gwdrag.F |
572 |
GWDD |
if( vai1.lt.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
579 |
GWDD |
vsqua = vai1*vai2 |