!-------------------------------------- LICENCE BEGIN ------------------------------------
!Environment Canada - Atmospheric Science and Technology License/Disclaimer,
! version 3; Last Modified: May 7, 2008.
!This is free but copyrighted software; you can use/redistribute/modify it under the terms
!of the Environment Canada - Atmospheric Science and Technology License/Disclaimer
!version 3 or (at your option) any later version that should be found at:
!http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html
!
!This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
!without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
!See the above mentioned License/Disclaimer for more details.
!You should have received a copy of the License/Disclaimer along with this software;
!if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec),
!CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca
!-------------------------------------- LICENCE END --------------------------------------
***S/P SUNCOS1
*
#include "phy_macros_f.h"
SUBROUTINE SUNCOS1(SCOS,SSIN,STAN,BSIN,BCOS,LMX,XLAT,XLON,HZ,DATE,IDATIM, slope_L) 11
#include "impnone.cdk"
INTEGER IDATIM(14),I,LMX
REAL XLAT(LMX),XLON(LMX),SCOS(LMX),HZ,DATE
REAL DH,SDEC,CDEC,RDEC,AJOUR,SSIN(LMX),STAN(LMX),BSIN(LMX),BCOS(LMX)
REAL A,EOT
LOGICAL slope_L
*
*Author
* L.Garand (1989)
*
*Revision
* 001 G.Pellerin(Mar90)Standard documentation
* 002 N. Brunet (May91)
* New version of thermodynamic functions
* and file of constants
* 003 L. Garand (Fev95) Add equation of time
* 004 J.P. Toviessi (June 2003) - IBM conversion
* - calls to vscos, vssin routine (from massvp4 library)
* - unnecessary calculations removed
* 005 J. P. Toviessi (July 2009) added modifications for radslope
*
*Object
* to calculate the cosines of the solar angle for LMX
* points
*
*Arguments
*
* - Output -
* SCOS cosines of the solar angle
* SSIN sine of the solar angle
* STAN tangents of the solar angle
* BSIN sines of beta
* BCOS cosines of beta
*
* - Input -
* LMX number of points
* XLAT latitude in radians
* XLON longitude in radians
* HZ Greenwich hour (0 to 24)
* DATE julian day (0 to 366) (real number)
* IDATIM time coded in standard RPN format
*
**
*
*
#include "consphy.cdk"
C
*
AUTOMATIC ( tmcos , REAL , (LMX) )
AUTOMATIC ( tmsin , REAL , (LMX) )
*
IF(DATE.NE.0.) AJOUR=DATE
IF(DATE.EQ.0.) AJOUR=30.4*(IDATIM(2)-1)+IDATIM(3)
RDEC=0.412*COS((AJOUR+10.)*2.*PI/365.25 -PI)
SDEC=SIN(RDEC)
CDEC=COS(RDEC)
c correction for "equation of time"
A = DATE/365.*2.*PI
c in minutes
EOT = .002733 -7.343*sin(a)+ .5519*cos(a) -9.47*sin(2.*a)
x -3.02*cos(2.*a) -.3289*sin(3.*a) -.07581*cos(3.*a)
x -.1935*sin(4.*a) -.1245*cos(4.*a)
c express in a fraction of hour
EOT=EOT/60.
c express in radians
EOT=EOT*15.*PI/180.
c
call VSCOS(tmcos,XLAT(1),LMX)
call VSSIN(tmsin,XLAT(1),LMX)
*
DO I=1,LMX
DH=HZ*PI/12. +XLON(I) -PI + EOT
SCOS(I)=AMAX1(tmsin(I)*SDEC + tmcos(I)*CDEC*
X COS(DH) , 0.00001)
ENDDO
C----------------------------------------------------------
IF(slope_L) then
DO I=1,LMX
DH=HZ*PI/12. +XLON(I) -PI + EOT
C To calculate Sin Z
SSIN(I)=amin1(sqrt(1.-(SCOS(I)*SCOS(I))), 1.)
SSIN(I)=amax1(SSIN(I), 0.00001)
C to calculate Tan Z
STAN(I)=SSIN(I)/SCOS(I)
C to calculate Sin B
BSIN(I)=amin1((CDEC*SIN(DH))/SSIN(I), 1.)
BSIN(I)=amax1(BSIN(I), -1.)
C to calulate Cos B
BCOS(I)=(SCOS(I)*tmsin(I)-SDEC)/(SSIN(I)*amax1(tmcos(I),0.00001))
BCOS(I)=amin1(BCOS(I), 1.)
BCOS(I)=amax1(BCOS(I), -1.)
ENDDO
ENDIF
RETURN
END