| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1209 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
194 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
404 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
422 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
428 |
TURBIO |
if (icethk(i).gt.0.) then |
|
./pkg/fizhi/fizhi_turb.F |
472 |
TURBIO |
if( icethk(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
520 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |