85 |
_RL LND_dx |
_RL LND_dx |
86 |
_RL LND_tmp |
_RL LND_tmp |
87 |
C bin width of distribution |
C bin width of distribution |
88 |
PARAMETER(LND_dx=0.1) |
PARAMETER( LND_iend = 1000 ) |
89 |
PARAMETER(LND_iend=INT(100./LND_dx)) |
PARAMETER( LND_dx = 100.D0 / LND_iend ) |
90 |
_RL LND_x (INT(LND_iend)) |
c PARAMETER(LND_dx=0.1) |
91 |
_RL LND_pdf(INT(LND_iend)) |
c PARAMETER(LND_iend=INT(100./LND_dx)) |
92 |
|
_RL LND_x (LND_iend) |
93 |
|
_RL LND_pdf(LND_iend) |
94 |
C flag for pickup scheme |
C flag for pickup scheme |
95 |
LOGICAL simpleSchemeFlag |
LOGICAL simpleSchemeFlag |
96 |
|
|