SUNPOS Subroutine

  1. sunpos.F90
  2. SUNPOS

subroutine SUNPOS(KYEAR, KMONTH, KDAY, PTIME, PLON, PLAT, PTSUN, PZENITH, PAZIMSOL)

Uses

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: KYEAR
integer, intent(in) :: KMONTH
integer, intent(in) :: KDAY
real, intent(in) :: PTIME
real, intent(in), DIMENSION(:):: PLON
real, intent(in), DIMENSION(:):: PLAT
real, intent(out), DIMENSION(:):: PTSUN
real, intent(out), DIMENSION(:):: PZENITH
real, intent(out), DIMENSION(:):: PAZIMSOL

Contents

Source Code

SUNPOS

Source Code

      SUBROUTINE SUNPOS (KYEAR, KMONTH, KDAY, PTIME, PLON, PLAT, PTSUN, PZENITH, PAZIMSOL)
!
INTEGER,                      INTENT(IN)   :: KYEAR      ! current year                        
INTEGER,                      INTENT(IN)   :: KMONTH     ! current month                        
INTEGER,                      INTENT(IN)   :: KDAY       ! current day                        
REAL,                         INTENT(IN)   :: PTIME      ! current time                        
REAL, DIMENSION(:),           INTENT(IN)   :: PLON       ! longitude
REAL, DIMENSION(:),           INTENT(IN)   :: PLAT       ! latitude

REAL, DIMENSION(:),           INTENT(OUT)  :: PZENITH    ! Solar zenithal angle
REAL, DIMENSION(:),           INTENT(OUT)  :: PAZIMSOL   ! Solar azimuthal angle
REAL, DIMENSION(:),           INTENT(OUT)  :: PTSUN      ! Solar time
!
END SUBROUTINE SUNPOS