| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
1039 |
EMISSIVITY |
SUBROUTINE EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./pkg/fizhi/update_earth_exports.F |
1044 |
EMISSIVITY |
_RL fraci(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1187 |
EMISSIVITY |
if(fraci(i).eq.0.)then |
|
./pkg/fizhi/update_earth_exports.F |
125 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd(1,bi,bj),ficetile, |
|
./pkg/fizhi/update_earth_exports.F |
48 |
UPDATE_EARTH_EXPORTS |
_RL fraci(sNx,sNy), fracl(sNx,sNy) |
|
./pkg/fizhi/update_earth_exports.F |
820 |
GETALB |
SUBROUTINE GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
863 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
88 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 1. |
|
./pkg/fizhi/update_earth_exports.F |
90 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 0. |
|
./pkg/fizhi/update_earth_exports.F |
964 |
GETEMISS |
& igrd,ityp,chfr,snowdep,fraci,emiss) |
|
./pkg/fizhi/update_earth_exports.F |
999 |
GETEMISS |
_RL fraci(nchp) |