| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
205 |
TURBIO |
integer types(istrip),igrdstr(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
493 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
515 |
TURBIO |
if( types(i).lt.100 ) nland = nland + 1 |
|
./pkg/fizhi/fizhi_turb.F |
516 |
TURBIO |
if( types(i).eq.100 ) nocean = nocean + 1 |
|
./pkg/fizhi/fizhi_turb.F |
517 |
TURBIO |
if( types(i).eq.100 .and. icest(i).gt.0.0 ) nice = nice + 1 |
|
./pkg/fizhi/fizhi_turb.F |
740 |
TURBIO |
I nland, timstp, types, rainls, raincon, newsnow, wspeed, |