Fixed further fortran dummy component typos #97

unifhy-org · Mar 26, 2024 · 01a94d2 · 01a94d2
1 parent 172223d
commit 01a94d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/tests/components/nutrientopenwater/dummyfortran/dummy.f90 b/tests/tests/components/nutrientopenwater/dummyfortran/dummy.f90
@@ -34,8 +34,8 @@ subroutine run(y, x, &
     ! component constants
     integer, intent(in) :: constant_d
     ! component states
-    real(kind=8), intent(in), dimension(y, x, 4, constant_c) :: state_a_m1
-    real(kind=8), intent(inout), dimension(y, x, 4, constant_c) :: state_a_0
+    real(kind=8), intent(in), dimension(y, x, 4, constant_d) :: state_a_m1
+    real(kind=8), intent(inout), dimension(y, x, 4, constant_d) :: state_a_0
     ! to exchanger
     real(kind=8), intent(out), dimension(y, x) :: &
         transfer_d, transfer_f, transfer_g