| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1222 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
174 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
380 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
398 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
404 |
TURBIO |
if (icethk(i).gt.0.) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
448 |
TURBIO |
if( icethk(i).gt.0.0 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
496 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
1182 |
TURBIO |
if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice |
|
./pkg/fizhi/fizhi_turb.F |
174 |
TURBIO |
_RL shg(nchp),z0(nchp),icethk(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
380 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
398 |
TURBIO |
if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
404 |
TURBIO |
if (icethk(i).gt.0.) then |
|
./pkg/fizhi/fizhi_turb.F |
448 |
TURBIO |
if( icethk(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_turb.F |
496 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |