| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
356 |
GWDD |
_RL nbar(irun) |
|
./pkg/fizhi/fizhi_gwdrag.F |
445 |
GWDD |
nbar(i) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
449 |
GWDD |
nbar(i) = nbar(i) + bv(i,L)*(pl(i,Lm+2-L)-pl(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
454 |
GWDD |
nbar(i) = nbar(i)/(pl(i,Lm)-pl(i,Lm+1-nbase(i))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
455 |
GWDD |
frsf = nbar(i)*std(i)/speed(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
457 |
GWDD |
if( speed(i).eq.0.0 .or. nbar(i).eq.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
462 |
GWDD |
. / (nbar(i)*lstar) |