| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1628 |
TRBFLX |
PI = 4. * ATAN(1.) |
|
./pkg/fizhi/fizhi_turb.F |
3607 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3721 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./pkg/thsice/thsice_albedo.F |
146 |
THSICE_ALBEDO |
& MIN( recFac_albNIR*ATAN(albNIR_fHice*hi), 1. _d 0 ) |
|
./pkg/thsice/thsice_albedo.F |
99 |
THSICE_ALBEDO |
recFac_albNIR = 1. _d 0 / ATAN(albNIR_fHice*0.5 _d 0) |
|
./pkg/thsice/thsice_get_exf.F |
351 |
THSICE_GET_EXF |
& -exf_two*ATAN(x) + exf_half*pi ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
199 |
BULKF_FORMULA_LAY |
& -two*ATAN(x) + half*pi ) |
|
./pkg/exf/exf_bulkformulae.F |
394 |
EXF_BULKFORMULAE |
& -exf_two*ATAN(x) + exf_half*pi ) |