Trying to get the dummy fortran components to work #97

unifhy-org · Mar 1, 2024 · 7b141d4 · 7b141d4
1 parent 7602bb2
commit 7b141d4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/tests/components/surfacelayer/dummyfortran/dummy.f90 b/tests/tests/components/surfacelayer/dummyfortran/dummy.f90
@@ -2,7 +2,7 @@ subroutine initialise(y, x, state_a_m1, state_b_m1)
     implicit none
 
     ! spaceshape
-    integer, intent(in) :: y, x
+    parameter, intent(in) :: y, x
     ! component states
     real(kind=8), intent(inout), dimension(y, x) :: state_a_m1, state_b_m1
 
@@ -12,7 +12,7 @@ subroutine initialise(y, x, state_a_m1, state_b_m1)
 end subroutine initialise
 
 subroutine run(y, x, &
-               transfer_k, transfer_l, transfer_n, transfer_h &
+               transfer_k, transfer_l, transfer_n, transfer_h, &
                driving_a, driving_b, driving_c, &
                ancillary_c, &
                state_a_m1, state_a_0, state_b_m1, state_b_0, &
@@ -22,7 +22,7 @@ subroutine run(y, x, &
     implicit none
 
     ! spaceshape
-    integer, intent(in) :: y, x
+    parameter, intent(in) :: y, x
     ! from exchanger
     real(kind=8), intent(in), dimension(y, x) :: &
         transfer_k, transfer_l, transfer_n, transfer_h