| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
1003 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
1026 |
EMISSIVITY |
subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./pkg/fizhi/update_earth_exports.F |
102 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1031 |
EMISSIVITY |
_RL fraci(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
113 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
1174 |
EMISSIVITY |
if(fraci(i).eq.0.)then |
|
./pkg/fizhi/update_earth_exports.F |
36 |
UPDATE_EARTH_EXPORTS |
_RL fraci(sNx,sNy), fracl(sNx,sNy) |
|
./pkg/fizhi/update_earth_exports.F |
76 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 1. |
|
./pkg/fizhi/update_earth_exports.F |
78 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 0. |
|
./pkg/fizhi/update_earth_exports.F |
812 |
GETALB |
subroutine GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
855 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
953 |
GETEMISS |
& igrd,ityp,chfr,snowdep,fraci,emiss) |
|
./pkg/fizhi/update_earth_exports.F |
988 |
GETEMISS |
_RL fraci(nchp) |