| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
371 |
GWDD |
_RL richsn,crifro,crif2,fro2,coef |
|
./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 |
532 |
GWDD |
if( fro2.gt.crif2 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
533 |
GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
594 |
GWDD |
fro2 = vaisd/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
620 |
GWDD |
if( fro2.ge.crif2 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
621 |
GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |