| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1996 |
DELEDD |
_RL zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, |
|
./pkg/fizhi/fizhi_swrad.F |
1999 |
DELEDD |
zth = one / csm |
|
./pkg/fizhi/fizhi_swrad.F |
2022 |
DELEDD |
gm3 = (two - zth*xx )*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2038 |
DELEDD |
all1 = (gm3 - alf2 * zth )*xx*td |
|
./pkg/fizhi/fizhi_swrad.F |
2039 |
DELEDD |
bll = (one - gm3 + alf1*zth)*xx |
|
./pkg/fizhi/fizhi_swrad.F |
2041 |
DELEDD |
xx = akk * zth |
|
./pkg/bulk_force/BULKF_PARAMS.h |
71 |
NO PROCEDURE |
_RL zref, zwd, zth |
|
./pkg/bulk_force/BULKF_PARAMS.h |
92 |
NO PROCEDURE |
& zref, zwd, zth, |
|
./pkg/bulk_force/bulkf_formula_lay.F |
141 |
BULKF_FORMULA_LAY |
ztln = LOG(zth/zref) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
168 |
BULKF_FORMULA_LAY |
delth = Ta + gamma_blk*zth - Tsf |
|
./pkg/bulk_force/bulkf_formula_lay.F |
200 |
BULKF_FORMULA_LAY |
htol = huol*zth/zwd |
|
./pkg/bulk_force/bulkf_readparms.F |
102 |
BULKF_READPARMS |
zth = zref |
|
./pkg/bulk_force/bulkf_readparms.F |
228 |
BULKF_READPARMS |
WRITE(iUnit,*) 'BlkF: zth =',zth |
|
./pkg/bulk_force/bulkf_readparms.F |
40 |
BULKF_READPARMS |
& zref, zwd, zth, |