/[lmdze]/trunk/phylmd/Radlwsw/swtt.f90
ViewVC logotype

Diff of /trunk/phylmd/Radlwsw/swtt.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/Sources/phylmd/Radlwsw/swtt.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/phylmd/Radlwsw/swtt.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 1  Line 1 
1  SUBROUTINE swtt(knu, ka, pu, ptr)  SUBROUTINE swtt(knu, ka, pu, ptr)
2    USE dimens_m    USE dimensions
3    USE dimphy    USE dimphy
4    USE raddim    USE raddim
5    IMPLICIT NONE    IMPLICIT NONE
# Line 49  SUBROUTINE swtt(knu, ka, pu, ptr) Line 49  SUBROUTINE swtt(knu, ka, pu, ptr)
49    
50    DOUBLE PRECISION apad(2, 3, 7), bpad(2, 3, 7), d(2, 3)    DOUBLE PRECISION apad(2, 3, 7), bpad(2, 3, 7), d(2, 3)
51    SAVE apad, bpad, d    SAVE apad, bpad, d
52    DATA ((apad(1,i,j),i=1,3), j=1, 7)/0.912418292E+05, 0.000000000E-00, &    DATA ((apad(1,i,j),i=1,3), j=1, 7)/0.912418292D+05, 0.000000000D-00, &
53      0.925887084E-04, 0.723613782E+05, 0.000000000E-00, 0.129353723E-01, &      0.925887084D-04, 0.723613782D+05, 0.000000000D-00, 0.129353723D-01, &
54      0.596037057E+04, 0.000000000E-00, 0.800821928E+00, 0.000000000E-00, &      0.596037057D+04, 0.000000000D-00, 0.800821928D+00, 0.000000000D-00, &
55      0.000000000E-00, 0.242715973E+02, 0.000000000E-00, 0.000000000E-00, &      0.000000000D-00, 0.242715973D+02, 0.000000000D-00, 0.000000000D-00, &
56      0.878331486E+02, 0.000000000E-00, 0.000000000E-00, 0.191559725E+02, &      0.878331486D+02, 0.000000000D-00, 0.000000000D-00, 0.191559725D+02, &
57      0.000000000E-00, 0.000000000E-00, 0.000000000E+00/      0.000000000D-00, 0.000000000D-00, 0.000000000D+00/
58    DATA ((apad(2,i,j),i=1,3), j=1, 7)/0.376655383E-08, 0.739646016E-08, &    DATA ((apad(2,i,j),i=1,3), j=1, 7)/0.376655383D-08, 0.739646016D-08, &
59      0.410177786E+03, 0.978576773E-04, 0.131849595E-03, 0.672595424E+02, &      0.410177786D+03, 0.978576773D-04, 0.131849595D-03, 0.672595424D+02, &
60      0.387714006E+00, 0.437772681E+00, 0.000000000E-00, 0.118461660E+03, &      0.387714006D+00, 0.437772681D+00, 0.000000000D-00, 0.118461660D+03, &
61      0.151345118E+03, 0.000000000E-00, 0.119079797E+04, 0.233628890E+04, &      0.151345118D+03, 0.000000000D-00, 0.119079797D+04, 0.233628890D+04, &
62      0.000000000E-00, 0.293353397E+03, 0.797219934E+03, 0.000000000E-00, &      0.000000000D-00, 0.293353397D+03, 0.797219934D+03, 0.000000000D-00, &
63      0.000000000E+00, 0.000000000E+00, 0.000000000E+00/      0.000000000D+00, 0.000000000D+00, 0.000000000D+00/
64    
65    DATA ((bpad(1,i,j),i=1,3), j=1, 7)/0.912418292E+05, 0.000000000E-00, &    DATA ((bpad(1,i,j),i=1,3), j=1, 7)/0.912418292D+05, 0.000000000D-00, &
66      0.925887084E-04, 0.724555318E+05, 0.000000000E-00, 0.131812683E-01, &      0.925887084D-04, 0.724555318D+05, 0.000000000D-00, 0.131812683D-01, &
67      0.602593328E+04, 0.000000000E-00, 0.812706117E+00, 0.100000000E+01, &      0.602593328D+04, 0.000000000D-00, 0.812706117D+00, 0.100000000D+01, &
68      0.000000000E-00, 0.249863591E+02, 0.000000000E-00, 0.000000000E-00, &      0.000000000D-00, 0.249863591D+02, 0.000000000D-00, 0.000000000D-00, &
69      0.931071925E+02, 0.000000000E-00, 0.000000000E-00, 0.252233437E+02, &      0.931071925D+02, 0.000000000D-00, 0.000000000D-00, 0.252233437D+02, &
70      0.000000000E-00, 0.000000000E-00, 0.100000000E+01/      0.000000000D-00, 0.000000000D-00, 0.100000000D+01/
71    DATA ((bpad(2,i,j),i=1,3), j=1, 7)/0.376655383E-08, 0.739646016E-08, &    DATA ((bpad(2,i,j),i=1,3), j=1, 7)/0.376655383D-08, 0.739646016D-08, &
72      0.410177786E+03, 0.979023421E-04, 0.131861712E-03, 0.731185438E+02, &      0.410177786D+03, 0.979023421D-04, 0.131861712D-03, 0.731185438D+02, &
73      0.388611139E+00, 0.437949001E+00, 0.100000000E+01, 0.120291383E+03, &      0.388611139D+00, 0.437949001D+00, 0.100000000D+01, 0.120291383D+03, &
74      0.151692730E+03, 0.000000000E+00, 0.130531005E+04, 0.237071130E+04, &      0.151692730D+03, 0.000000000D+00, 0.130531005D+04, 0.237071130D+04, &
75      0.000000000E+00, 0.415049409E+03, 0.867914360E+03, 0.000000000E+00, &      0.000000000D+00, 0.415049409D+03, 0.867914360D+03, 0.000000000D+00, &
76      0.100000000E+01, 0.100000000E+01, 0.000000000E+00/      0.100000000D+01, 0.100000000D+01, 0.000000000D+00/
77    
78    DATA (d(1,i), i=1, 3)/0.00, 0.00, 0.00/    DATA (d(1,i), i=1, 3)/0.00d0, 0.00d0, 0.00d0/
79    DATA (d(2,i), i=1, 3)/0.000000000, 0.000000000, 0.800000000/    DATA (d(2,i), i=1, 3)/0.000000000d0, 0.000000000d0, 0.800000000d0/
80    
81    ! -----------------------------------------------------------------------    ! -----------------------------------------------------------------------
82    
Legend:
Removed from v.134  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21