| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
1022 |
EMISSIVITY |
subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./pkg/fizhi/update_earth_exports.F |
1027 |
EMISSIVITY |
_RL fraci(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
109 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
1170 |
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 |
808 |
GETALB |
subroutine GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
851 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
949 |
GETEMISS |
. igrd,ityp,chfr,snowdep,fraci,emiss) |
|
./pkg/fizhi/update_earth_exports.F |
984 |
GETEMISS |
_RL fraci(nchp) |
|
./pkg/fizhi/update_earth_exports.F |
98 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
999 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
1022 |
EMISSIVITY |
subroutine EMISSIVITY (snowdepth,fraci,nchp,numpts,ityp,newemis) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
1027 |
EMISSIVITY |
_RL fraci(nchp) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
109 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
1170 |
EMISSIVITY |
if(fraci(i).eq.0.)then |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
36 |
UPDATE_EARTH_EXPORTS |
_RL fraci(sNx,sNy), fracl(sNx,sNy) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
76 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 1. |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
78 |
UPDATE_EARTH_EXPORTS |
fraci(i,j) = 0. |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
808 |
GETALB |
subroutine GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
851 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
949 |
GETEMISS |
. igrd,ityp,chfr,snowdep,fraci,emiss) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
984 |
GETEMISS |
_RL fraci(nchp) |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
98 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
999 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |