File |
Line number |
Procedure |
Code |
./pkg/fizhi/update_earth_exports.F |
242 |
SIBALB |
INTEGER I, LAI |
./pkg/fizhi/update_earth_exports.F |
656 |
SIBALB |
LAI = 1 + MAX(0, INT((ALA-BLAI)/DLAI) ) |
./pkg/fizhi/update_earth_exports.F |
657 |
SIBALB |
DX = (ALA - (BLAI+(LAI-1)*DLAI)) * (ONE/DLAI) |
./pkg/fizhi/update_earth_exports.F |
660 |
SIBALB |
ALPHA = COEFF (ALVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
661 |
SIBALB |
BETA = COEFF (BTVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
662 |
SIBALB |
GAMMA = COEFF (GMVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
668 |
SIBALB |
ALPHA = COEFF (ALIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
669 |
SIBALB |
BETA = COEFF (BTIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
670 |
SIBALB |
GAMMA = COEFF (GMIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
689 |
SIBALB |
FUNCTION COEFF(TABLE, NTABL, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
691 |
SIBALB |
INTEGER NTABL, LAI |
./pkg/fizhi/update_earth_exports.F |
695 |
SIBALB |
COEFF = (TABLE(LAI, 1) |
./pkg/fizhi/update_earth_exports.F |
696 |
SIBALB |
& + (TABLE(LAI ,2) - TABLE(LAI ,1)) * DY ) * (1.0-DX) |
./pkg/fizhi/update_earth_exports.F |
697 |
SIBALB |
& + (TABLE(LAI+1,1) |
./pkg/fizhi/update_earth_exports.F |
698 |
SIBALB |
& + (TABLE(LAI+1,2) - TABLE(LAI+1,1)) * DY ) * DX |