Changeset 1933


Ignore:
Timestamp:
Jan 17, 2014, 7:06:50 PM (11 years ago)
Author:
lguez
Message:

real*8 is not in the Fortran standard.
(There was a compilation error with gfortran and debugging options.)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/radiation_ar4_param.F90

    r1907 r1933  
    11MODULE radiation_ar4_param
    22
    3  REAL*8, parameter :: ZPDH2O = 0.8
    4  REAL*8, parameter :: ZPDUMG = 0.75
    5  REAL*8, parameter :: ZPRH2O = 30000.0
    6  REAL*8, parameter :: ZPRUMG = 30000.0
    7  REAL*8, parameter :: RTDH2O = 0.40
    8  REAL*8, parameter :: RTDUMG = 0.375
    9  REAL*8, parameter :: RTH2O = 240.0
    10  REAL*8, parameter :: RTUMG = 240.0
    11 
    12  REAL*8, dimension(2), parameter :: WG1 = (/1.0, 1.0/)
    13  REAL*8, dimension(11), parameter :: TINTP = (/ 187.5, 200., 212.5, 225., 237.5, 250., 262.5, 275., 287.5, 300., 312.5 /)
    14 
    15  real*8, dimension(11,16,3), parameter :: GA = reshape ( (/                                                                &
     3 REAL(KIND=8), parameter :: ZPDH2O = 0.8
     4 REAL(KIND=8), parameter :: ZPDUMG = 0.75
     5 REAL(KIND=8), parameter :: ZPRH2O = 30000.0
     6 REAL(KIND=8), parameter :: ZPRUMG = 30000.0
     7 REAL(KIND=8), parameter :: RTDH2O = 0.40
     8 REAL(KIND=8), parameter :: RTDUMG = 0.375
     9 REAL(KIND=8), parameter :: RTH2O = 240.0
     10 REAL(KIND=8), parameter :: RTUMG = 240.0
     11
     12 REAL(KIND=8), dimension(2), parameter :: WG1 = (/1.0, 1.0/)
     13 REAL(KIND=8), dimension(11), parameter :: TINTP = (/ 187.5, 200., 212.5, 225., 237.5, 250., 262.5, 275., 287.5, 300., 312.5 /)
     14
     15 real(kind=8), dimension(11,16,3), parameter :: GA = reshape ( (/ &
    1616 0.63499072E-02, 0.65566348E-02, 0.67849730E-02, 0.70481947E-02, 0.73585943E-02, 0.77242818E-02, 0.81472693E-02, 0.86227527E-02,&
    1717 0.91396814E-02, 0.96825438E-02, 0.10233955E-01, 0.77266491E-02, 0.81323287E-02, 0.86507620E-02, 0.92776391E-02, 0.99806312E-02,&
    … …  
    8282 , (/ 11,16,3 /) )
    8383
    84  real*8, dimension(11,16,3), parameter :: GB = reshape ( (/                                                                    &
     84 real(kind=8), dimension(11,16,3), parameter :: GB = reshape ( (/ &
    8585 0.63499072E-02, 0.65566348E-02, 0.67849730E-02, 0.70481947E-02, 0.73585943E-02, 0.77242818E-02, 0.81472693E-02, 0.86227527E-02,&
    8686 0.91396814E-02, 0.96825438E-02, 0.10233955E-01, 0.77266491E-02, 0.81323287E-02, 0.86507620E-02, 0.92776391E-02, 0.99806312E-02,&
    … …  
    151151  , (/ 11,16,3 /) )
    152152
    153       real*8, dimension(6,6), parameter :: XP = reshape ( (/  &
     153      real(kind=8), dimension(6,6), parameter :: XP = reshape ( (/  &
    154154      0.46430621E+02,  0.12928299E+03,  0.20732648E+03,  0.31398411E+03,  0.18373177E+03, -0.11412303E+03, &
    155155      0.73604774E+02,  0.27887914E+03,  0.27076947E+03, -0.57322111E+02, -0.64742459E+02,  0.87238280E+02, &
    … …  
    160160
    161161! If running with Reporbus type_trac=repr, values of RSUN might be overritten in radiation_AR4
    162       REAL*8, dimension(2) :: RSUN = (/ 0.441676 , 0.558324 /)
    163       REAL*8, dimension(2,6), parameter :: RRAY = reshape ( &
     162      REAL(KIND=8), dimension(2) :: RSUN = (/ 0.441676 , 0.558324 /)
     163      REAL(KIND=8), dimension(2,6), parameter :: RRAY = reshape ( &
    164164         (/ .428937E-01, .697200E-02,&
    165165            .890743E+00, .173297E-01,&
    … …  
    169169            .161645E+01, .129662E+00 /) , (/2,6/) )
    170170
    171       REAL*8, dimension(2,5), parameter :: TAUA = reshape ( &
     171      REAL(KIND=8), dimension(2,5), parameter :: TAUA = reshape ( &
    172172      (/ 0.730719, 0.730719, 0.912819, 0.912819, 0.725059, &
    173173         0.725059, 0.745405, 0.745405, 0.682188, 0.682188 /),(/2,5/) )
    174       REAL*8, dimension(2,5), parameter :: RPIZA = reshape ( &
     174      REAL(KIND=8), dimension(2,5), parameter :: RPIZA = reshape ( &
    175175      (/ 0.872212, 0.872212, 0.982545, 0.982545, 0.623143,   &
    176176         0.623143, 0.944887, 0.944887, 0.997975, 0.997975 /),(/2,5/) )
    177       REAL*8, dimension(2,5), parameter :: RCGA = reshape (  &
     177      REAL(KIND=8), dimension(2,5), parameter :: RCGA = reshape (  &
    178178      (/ 0.647596, 0.647596, 0.739002, 0.739002, 0.580845,   &
    179179         0.580845, 0.662657, 0.662657, 0.624246, 0.624246 /),(/2,5/) )
    180180
    181       REAL*8, dimension(2,3,7), parameter :: APAD = reshape (  &
     181      REAL(KIND=8), dimension(2,3,7), parameter :: APAD = reshape (  &
    182182          (/ 0.912418292E+05, 0.376655383E-08, 0.000000000E-00,&
    183183             0.739646016E-08, 0.925887084E-04, 0.410177786E+03,&
    … …  
    194194             0.000000000E-00, 0.000000000E+00, 0.000000000E-00,&
    195195             0.000000000E+00, 0.000000000E+00, 0.000000000E+00 /) , (/2,3,7/) )
    196       REAL*8, dimension(2,3,7), parameter :: BPAD = reshape (  &
     196      REAL(KIND=8), dimension(2,3,7), parameter :: BPAD = reshape (  &
    197197          (/ 0.912418292E+05, 0.376655383E-08, 0.000000000E-00,&
    198198             0.739646016E-08, 0.925887084E-04, 0.410177786E+03,&
    … …  
    209209             0.000000000E-00, 0.100000000E+01, 0.000000000E-00,&
    210210             0.100000000E+01, 0.100000000E+01, 0.000000000E+00 /) , (/2,3,7/) )
    211       REAL*8, dimension(2,3), parameter :: D = reshape ( &
     211      REAL(KIND=8), dimension(2,3), parameter :: D = reshape ( &
    212212       (/ 0.0, 0.0, 0.0, 0.0, 0.0, 0.8 /) , (/2,3/) )
    213213
    214       REAL*8, parameter :: TREF = 250.0
    215       REAL*8, dimension(2), parameter :: RT1 = (/ -0.577350269, +0.577350269 /)
    216       REAL*8, dimension(5,5), parameter :: RAER= reshape ( &
     214      REAL(KIND=8), parameter :: TREF = 250.0
     215      REAL(KIND=8), dimension(2), parameter :: RT1 = (/ -0.577350269, +0.577350269 /)
     216      REAL(KIND=8), dimension(5,5), parameter :: RAER= reshape ( &
    217217        (/ .038520, .037196, .040532, .054934, .038520 &
    218218         , .12613 , .18313 , .10357 , .064106, .126130 &
    … …  
    221221         , .013792, .026810, .052203, .066338, .013792 /) , (/5,5/) )
    222222
    223       REAL*8, dimension(8,3), parameter :: AT= reshape ( &
     223      REAL(KIND=8), dimension(8,3), parameter :: AT= reshape ( &
    224224       (/ 0.298199E-02,0.143676E-01,0.197861E-01,0.289560E-01,&
    225225          0.103800E-01,0.868859E-02,0.250073E-03,0.307423E-01,&
    … …  
    229229          -.161431E-02,0.000000E-00,0.109242E-03,-.322172E-03 /) , (/8,3/) )
    230230
    231       REAL*8, dimension(8,3), parameter :: BT= reshape ( &
     231      REAL(KIND=8), dimension(8,3), parameter :: BT= reshape ( &
    232232       (/ -0.106432E-04,-0.553979E-04,-0.877012E-04,-0.165960E-03,&
    233233          -0.276744E-04,-0.278412E-04, 0.199846E-05,-0.108482E-03,&
    … …  
    237237           0.127646E-04 ,0.117469E-05, 0.175991E-06,-0.814575E-06 /) , (/8,3/) )
    238238
    239       REAL*8, dimension(4), parameter :: OCT = (/ -.326E-03, -.102E-05, .137E-02, -.535E-05 /)
     239      REAL(KIND=8), dimension(4), parameter :: OCT = (/ -.326E-03, -.102E-05, .137E-02, -.535E-05 /)
    240240
    241241 end module radiation_AR4_param
Note: See TracChangeset for help on using the changeset viewer.