test

Nicholaswogan · Jun 21, 2024 · 50b3b42 · 50b3b42
1 parent 7d9420c
commit 50b3b42
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/test_radtran.f90 b/tests/test_radtran.f90
@@ -64,7 +64,7 @@ subroutine test_Radtran()
     pdensities(:,:) = 1.0_dp
     radii(:,:) = 1.0e-5_dp
 
-    call rad%radiate(T(1), T, P, densities, dz, pdensities, radii, err)
+    call rad%radiate(T(1), T, P, densities, dz, pdensities, radii, err=err)
     if (allocated(err)) then
       print*,err
       stop 1