| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1191 |
TURBIO |
call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
234 |
TURBIO |
_RL capacity(istrip),snowdepth(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
552 |
TURBIO |
call STRIPIT (snodep,snowdepth,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
797 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./pkg/fizhi/fizhi_turb.F |
902 |
TURBIO |
call PSTBMPIT(snowdepth,qdiaglsm(1,13),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
937 |
TURBIO |
call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/update_earth_exports.F |
1026 |
EMISSIVITY |
subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./pkg/fizhi/update_earth_exports.F |
1030 |
EMISSIVITY |
_RL snowdepth(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
1147 |
EMISSIVITY |
if(snowdepth (i).gt.0.) then |
|
./pkg/fizhi/update_earth_exports.F |
1148 |
EMISSIVITY |
fac = snowdepth(i) / (snowdepth(i) + snwmid(ityp(i))) |