*=*=*=*= SUSW.html =*=*=*=*
SUBROUTINE SUSW

SUBROUTINE SUSW


      SUBROUTINE SUSW
C
C**** *SUSW*   - INITIALIZE COMMON YOMSW
C
C     PURPOSE.
C     --------
C           INITIALIZE YOMSW, THE COMMON THAT CONTAINS COEFFICIENTS
C           NEEDED TO RUN THE SHORTWAVE RADIATION SUBROUTINES
C
C**   INTERFACE.
C     ----------
C        *CALL* *SUSW
C
C        EXPLICIT ARGUMENTS :
C        --------------------
C        NONE
C
C        IMPLICIT ARGUMENTS :
C        --------------------
C        COMMON YOMSW
C
C     METHOD.
C     -------
C        SEE DOCUMENTATION
C
C     EXTERNALS.
C     ----------
C
C     REFERENCE.
C     ----------
C        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
C     "IN CORE MODEL"
C
C     AUTHOR.
C     -------
C        JEAN-JACQUES MORCRETTE *ECMWF*
C
C     MODIFICATIONS.
C     --------------
C        ORIGINAL : 88-12-15
C     ------------------------------------------------------------------
#include "yomsw.h"
C      ----------------------------------------------------------------
C
C*       1.    SET VALUES.
C              -----------
C
      DATA SUN(1) / 0.274490 /
      DATA (D(1,K),K = 1,3) / 0.00, 0.00, 0.00 /
      DATA ((APAD(1,I,J),I=1,3),J=1,7) /
     S 0.000000000E-00, 0.000000000E-00, 0.999900000E+00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00/
C
      DATA ((BPAD(1,I,J),I=1,3),J=1,7) /
     S 0.000000000E-00, 0.000000000E-00, 0.100000000E+01,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00,
     S 0.000000000E-00, 0.000000000E-00, 0.000000000E-00/
C
      DATA (CRAY(1,K),K=1,6) /
     S .428937E-01, .890743E+00,-.288555E+01,
     S .522744E+01,-.469173E+01, .161645E+01/
C
      DATA SUN(2) / 0.725509 /
      DATA (D(2,K),K=1,3) / 0.00, 0.00, 0.00 /
      DATA ((APAD(2,I,J),I=1,3),J=1,7) /
     S 0.999990000E+00, 0.999990000E+00, 0.999990000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00 /
C
      DATA ((BPAD(2,I,J),I=1,3),J=1,7) /
     S 0.100000000E+01, 0.100000000E+01, 0.100000000E+01,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00,
     S 0.000000000E+00, 0.000000000E+00, 0.000000000E+00/
C
      DATA (CRAY(2,K),K=1,6) /
     S .697200E-02, .173297E-01,-.850903E-01,
     S .248261E+00,-.302031E+00, .129662E+00/
C
      RETURN
      END