| 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 |
508 |
GWDD |
delve2 = ( deluu*deluu + delvv*delvv ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
512 |
GWDD |
if( delve2.ne.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
515 |
GWDD |
richsn = delz*delz*vsqua/delve2 |
|
./pkg/fizhi/fizhi_gwdrag.F |
597 |
GWDD |
delve2 = ( deluu*deluu + delvv*delvv ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
601 |
GWDD |
if( delve2.ne.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
603 |
GWDD |
richsn = delz*delz*vsqua/delve2 |