Symbol Description Uses
ATAN 14


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)