CIRCUMSOLAR_RAD Subroutine

  1. circumsolar_rad.F90
  2. CIRCUMSOLAR_RAD

subroutine CIRCUMSOLAR_RAD(PDIR_SW, PSCA_SW, PZENITH, PF1_o_B)

Uses

Arguments

Type IntentOptional AttributesName
real, intent(in), DIMENSION(:):: PDIR_SW
real, intent(in), DIMENSION(:):: PSCA_SW
real, intent(in), DIMENSION(:):: PZENITH
real, intent(out), DIMENSION(:):: PF1_o_B

Contents

Source Code

CIRCUMSOLAR_RAD

Source Code

   SUBROUTINE CIRCUMSOLAR_RAD(PDIR_SW, PSCA_SW, PZENITH, PF1_o_B)
   REAL, DIMENSION(:), INTENT(IN) :: PDIR_SW ! direct radiation
   REAL, DIMENSION(:), INTENT(IN) :: PSCA_SW ! scattered radiation
   REAL, DIMENSION(:), INTENT(IN) :: PZENITH ! solar zenith angle
   REAL, DIMENSION(:), INTENT(OUT) :: PF1_o_B ! coef
   END SUBROUTINE CIRCUMSOLAR_RAD