Symbol Description Uses
ALPHA 59


File Line number Procedure Code
./pkg/exf/exf_zenithangle.F 169 EXF_ZENITHANGLE 
          ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle.F 171 EXF_ZENITHANGLE 
     &       - 0.399912 _d 0 * COS ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 172 EXF_ZENITHANGLE 
     &       + 0.070257 _d 0 * SIN ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 173 EXF_ZENITHANGLE 
     &       - 0.006758 _d 0 * COS ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 174 EXF_ZENITHANGLE 
     &       + 0.000907 _d 0 * SIN ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 175 EXF_ZENITHANGLE 
     &       - 0.002697 _d 0 * COS ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 176 EXF_ZENITHANGLE 
     &       + 0.001480 _d 0 * SIN ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 283 EXF_ZENITHANGLE 
         ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle.F 285 EXF_ZENITHANGLE 
     &         - 0.399912 _d 0 * COS ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 286 EXF_ZENITHANGLE 
     &         + 0.070257 _d 0 * SIN ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 287 EXF_ZENITHANGLE 
     &         - 0.006758 _d 0 * COS ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 288 EXF_ZENITHANGLE 
     &         + 0.000907 _d 0 * SIN ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 289 EXF_ZENITHANGLE 
     &         - 0.002697 _d 0 * COS ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 290 EXF_ZENITHANGLE 
     &         + 0.001480 _d 0 * SIN ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 292 EXF_ZENITHANGLE 
     &         + 0.034221 _d 0 * COS ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 293 EXF_ZENITHANGLE 
     &         + 0.001280 _d 0 * SIN ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 294 EXF_ZENITHANGLE 
     &         + 0.000719 _d 0 * COS ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 295 EXF_ZENITHANGLE 
     &         + 0.000077 _d 0 * SIN ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 53 EXF_ZENITHANGLE 
      _RL TDAY, TYEAR, ALBSEA1, ALPHA, CZEN, CZEN2
./pkg/exf/exf_zenithangle_table.F 38 EXF_ZENITHANGLE_TABLE 
      _RL LLLAT, TYEAR, TDAY, ALPHA, CZEN, ALBSEA1
./pkg/exf/exf_zenithangle_table.F 58 EXF_ZENITHANGLE_TABLE 
        ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle_table.F 60 EXF_ZENITHANGLE_TABLE 
     &       - 0.399912 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 61 EXF_ZENITHANGLE_TABLE 
     &       + 0.070257 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 62 EXF_ZENITHANGLE_TABLE 
     &       - 0.006758 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 63 EXF_ZENITHANGLE_TABLE 
     &       + 0.000907 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 64 EXF_ZENITHANGLE_TABLE 
     &       - 0.002697 _d 0 * cos ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 65 EXF_ZENITHANGLE_TABLE 
     &       + 0.001480 _d 0 * sin ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 78 EXF_ZENITHANGLE_TABLE 
     &         + 0.034221 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 79 EXF_ZENITHANGLE_TABLE 
     &         + 0.001280 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 80 EXF_ZENITHANGLE_TABLE 
     &         + 0.000719 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 81 EXF_ZENITHANGLE_TABLE 
     &         + 0.000077 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/fizhi/fizhi_turb.F 1348 TRBFLX 
      PARAMETER ( ALPHA   = 0.1       )
./pkg/fizhi/fizhi_turb.F 1349 TRBFLX 
      PARAMETER ( HALPHA = ALPHA * 0.5 )
./pkg/fizhi/fizhi_turb.F 1576 TRBFLX 
        DZ3(I,L) = ALPHA * ADZ1(I,L)
./pkg/fizhi/fizhi_turb.F 1580 TRBFLX 
      DZ3(I,NLEV) = ALPHA * HS(I)
./pkg/fizhi/fizhi_turb.F 3398 TRBLEN 
      PARAMETER ( ALPHA   = 0.1       )
./pkg/fizhi/fizhi_turb.F 3400 TRBLEN 
      PARAMETER ( XL0CNV  = DZCNV * ALPHA )
./pkg/fizhi/update_earth_exports.F 243 SIBALB 
      _RL FAC,GAMMA,BETA,ALPHA,DX,DY,ALA,GRN (2),SNWALB(4,NTYPS)
./pkg/fizhi/update_earth_exports.F 660 SIBALB 
          ALPHA = COEFF (ALVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY)
./pkg/fizhi/update_earth_exports.F 664 SIBALB 
          AVISDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./pkg/fizhi/update_earth_exports.F 665 SIBALB 
          AVISDF(I) = ALPHA-BETA
./pkg/fizhi/update_earth_exports.F 668 SIBALB 
          ALPHA = COEFF (ALIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY)
./pkg/fizhi/update_earth_exports.F 672 SIBALB 
          ANIRDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./pkg/fizhi/update_earth_exports.F 673 SIBALB 
          ANIRDF(I) = ALPHA-BETA
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 226 AIM_SURF_BC 
        ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 228 AIM_SURF_BC 
        ZS = - SIN(OBLIQ * deg2rad) * COS(ALPHA)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 232 AIM_SURF_BC 
        RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 95 AIM_SURF_BC 
      _RL RSD, alb_land, oceTfreez, ALBSEA1, ALPHA, CZEN, CZEN2
./pkg/aim_v23/aim_surf_bc.F 209 AIM_SURF_BC 
        ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0)
./pkg/aim_v23/aim_surf_bc.F 211 AIM_SURF_BC 
        ZS = - SIN(OBLIQ * deg2rad) * COS(ALPHA)
./pkg/aim_v23/aim_surf_bc.F 215 AIM_SURF_BC 
        RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad)
./pkg/aim_v23/aim_surf_bc.F 89 AIM_SURF_BC 
      _RL RSD, alb_land, oceTfreez, ALBSEA1, ALPHA, CZEN, CZEN2
./pkg/aim_v23/phy_radiat.F 62 SOL_OZ 
      _RL ALPHA, CSR1, CSR2, COZ1, COZ2
./pkg/aim_v23/phy_radiat.F 73 SOL_OZ 
      ALPHA = 4. _d 0*ASIN(1. _d 0)*(TYEAR+10. _d 0/365. _d 0)
./pkg/aim_v23/phy_radiat.F 75 SOL_OZ 
      CSR1=-0.796 _d 0*COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 76 SOL_OZ 
      CSR2= 0.147 _d 0*COS(2. _d 0*ALPHA)-0.477 _d 0
./pkg/aim_v23/phy_radiat.F 77 SOL_OZ 
      COZ1= 1.0 _d 0 * COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 84 SOL_OZ 
      SZEN = - SIN(  OBLIQ * PI/180. _d 0) * COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 95 SOL_OZ 
      RZEN=-COS(ALPHA)*23.45 _d 0*ASIN(1. _d 0)/90. _d 0