| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
204 |
TILE |
PDIR(CHNO) = PARDIR(CHNO) / PAR(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
248 |
TILE |
I NCH, ITYP, SUNANG, SQSCAT, PDIR, |
|
./pkg/fizhi/fizhi_lsm.F |
680 |
RCUNST |
I NCH, ITYP, SUNANG, SQSCAT, PDIR, |
|
./pkg/fizhi/fizhi_lsm.F |
695 |
RCUNST |
_RL SUNANG(NCH), PDIR(NCH), PAR(NCH), ZLAI(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
69 |
TILE |
& PDIR(nch), DUMMY(nch) |
|
./pkg/fizhi/fizhi_lsm.F |
742 |
RCUNST |
DUM1 = PDIR(ChNo) * CC |
|
./pkg/fizhi/fizhi_lsm.F |
743 |
RCUNST |
DUM2 = (ONE-PDIR(ChNo)) * ( BB*(ONE/3.+PIE/4.) + AA*1.5 ) |
|
./pkg/fizhi/fizhi_lsm.F |
747 |
RCUNST |
ZK = PDIR(ChNo) *MIN( EXTK1, 50. _d 0/ZLAI(ChNo) ) + |
|
./pkg/fizhi/fizhi_lsm.F |
748 |
RCUNST |
& (ONE-PDIR(ChNo))*MIN( EXTK2, 50. _d 0/ZLAI(ChNo) ) |