From 50b3b4275ea219de0d50690825ff0dabff2bec9e Mon Sep 17 00:00:00 2001 From: Nick Wogan Date: Fri, 21 Jun 2024 14:20:47 -0700 Subject: [PATCH] test --- tests/test_radtran.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/test_radtran.f90 b/tests/test_radtran.f90 index 9f4464c..3127245 100644 --- 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