File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
189 |
TURBIO |
integer types(istrip),igrdstr(istrip) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
520 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
538 |
TURBIO |
if( types(i).lt.100 ) nland = nland + 1 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
539 |
TURBIO |
if( types(i).eq.100 ) nocean = nocean + 1 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
540 |
TURBIO |
if( types(i).eq.100 .and. icest(i).gt.0.0 ) nice = nice + 1 |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
787 |
TURBIO |
I nland, timstp, types, rainls, raincon, newsnow, wspeed, |
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
886 |
TURBIO |
call PSTBITINT(types,qdiaglsm(1,1),istrip,nchp,nchptot,1,nn) |
./pkg/fizhi/fizhi_turb.F |
189 |
TURBIO |
integer types(istrip),igrdstr(istrip) |
./pkg/fizhi/fizhi_turb.F |
520 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
./pkg/fizhi/fizhi_turb.F |
538 |
TURBIO |
if( types(i).lt.100 ) nland = nland + 1 |
./pkg/fizhi/fizhi_turb.F |
539 |
TURBIO |
if( types(i).eq.100 ) nocean = nocean + 1 |
./pkg/fizhi/fizhi_turb.F |
540 |
TURBIO |
if( types(i).eq.100 .and. icest(i).gt.0.0 ) nice = nice + 1 |
./pkg/fizhi/fizhi_turb.F |
763 |
TURBIO |
I nland, timstp, types, rainls, raincon, newsnow, wspeed, |
./pkg/fizhi/fizhi_turb.F |
862 |
TURBIO |
call PSTBITINT(types,qdiaglsm(1,1),istrip,nchp,nchptot,1,nn) |