File |
Line number |
Procedure |
Code |
./pkg/exf/exf_bulkformulae.F |
408 |
EXF_BULKFORMULAE |
& -exf_two*ATAN(x) + exf_half*pi ) |
./pkg/fizhi/fizhi_turb.F |
1458 |
TRBFLX |
PI = 4. * ATAN(1.) |
./pkg/fizhi/fizhi_turb.F |
3155 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
./pkg/fizhi/fizhi_turb.F |
3269 |
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 |
381 |
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/cheapaml/cheapaml_coare3_flux.F |
294 |
CHEAPAML_COARE3_FLUX |
psik=2.*LOG((1.+x)/2.)+LOG((1.+x*x)/2.)-2.*ATAN(x)+2.*ATAN(oneRL) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
297 |
CHEAPAML_COARE3_FLUX |
& - SQRT(3. _d 0)*ATAN( (1.+2.*y)/SQRT(3. _d 0) ) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
298 |
CHEAPAML_COARE3_FLUX |
& + 4.*ATAN(oneRL)/SQRT(3. _d 0) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
335 |
CHEAPAML_COARE3_FLUX |
& - SQRT(3. _d 0)*ATAN( (1.+2.*y)/SQRT(3. _d 0) ) |
./pkg/cheapaml/cheapaml_coare3_flux.F |
336 |
CHEAPAML_COARE3_FLUX |
& + 4.*ATAN(oneRL)/SQRT(3. _d 0) |