| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1099 |
TURBIO |
call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
230 |
TURBIO |
_RL capacity(istrip),snowdepth(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
501 |
TURBIO |
call STRIPIT (snodep,snowdepth,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
746 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./pkg/fizhi/fizhi_turb.F |
845 |
TURBIO |
call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/update_earth_exports.F |
1039 |
EMISSIVITY |
SUBROUTINE EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./pkg/fizhi/update_earth_exports.F |
1043 |
EMISSIVITY |
_RL snowdepth(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
1160 |
EMISSIVITY |
if(snowdepth (i).gt.0.) then |
|
./pkg/fizhi/update_earth_exports.F |
1161 |
EMISSIVITY |
fac = snowdepth(i) / (snowdepth(i) + snwmid(ityp(i))) |