Commit f4d471a0 authored by Matthias Redies's avatar Matthias Redies

drop array intent(out)

parent a353e020
......@@ -312,7 +312,7 @@ CONTAINS
IMPLICIT NONE
REAL, INTENT(IN) :: bw_Hs2, bw_D_Hs2
REAL, INTENT(OUT) :: integral(0:12)
REAL, INTENT(INOUT) :: integral(0:12)
! Helper variables
REAL :: bw_Hs2_Sqr, bw_Hs2_Cub, sqrt_bw_Hs2, &
......@@ -326,6 +326,8 @@ CONTAINS
A = 1.0161144, A_2 = A/2.0, scale = 2.25/A, sqrtA = 1.008025, & !sqrt(A)
b = 1.455915450052607
integral = 0.0
! Calculate many helper variables
bw_Hs2_Sqr = bw_Hs2*bw_Hs2
bw_Hs2_Cub = bw_Hs2*bw_Hs2_Sqr
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment