| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1117 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
190 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
353 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
371 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
377 |
TURBIO |
if (icethk(i).gt.0.) then |
|
./pkg/fizhi/fizhi_turb.F |
421 |
TURBIO |
if( icethk(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
469 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |