*=*=*=*= SUSW.html =*=*=*=*
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 sunfr(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 sunfr(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