| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
147 |
SIBALB |
SUBROUTINE SIBALB ( AVISDR, ANIRDR, AVISDF, ANIRDF, |
|
./pkg/fizhi/update_earth_exports.F |
170 |
SIBALB |
_RL AVISDR (IRUN), ANIRDR (IRUN), AVISDF (IRUN), ANIRDF (IRUN) |
|
./pkg/fizhi/update_earth_exports.F |
665 |
SIBALB |
ANIRDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I)) |
|
./pkg/fizhi/update_earth_exports.F |
673 |
SIBALB |
ANIRDR(I) = ANIRDR(I) + (SNWALB(2,ITYP(I)) - ANIRDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
872 |
GETALB |
_RL AVISDR(nchp),ANIRDR(nchp),AVISDF(nchp) |