Symbol Description Uses
CSR1 6



File Line number Procedure Code
./pkg/aim/phy_radiat.F 45 SOL_OZ
      _RL ALPHA, CSR1, CSR2, COZ1, COZ2
./pkg/aim/phy_radiat.F 52 SOL_OZ
      CSR1=-0.796 _d 0*COS(ALPHA)
./pkg/aim/phy_radiat.F 64 SOL_OZ
     &             1. _d 0+CSR1*FMU(I2,1,myThid)+CSR2*FMU(I2,2,myThid))
./pkg/aim_v23/phy_radiat.F 54 SOL_OZ
      _RL ALPHA, CSR1, CSR2, COZ1, COZ2
./pkg/aim_v23/phy_radiat.F 61 SOL_OZ
      CSR1=-0.796 _d 0*COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 83 SOL_OZ
     &     MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 )