update TUV-x ctor args in fortran wrapper

NCAR · Sep 3, 2024 · 8e3bcdd · 8e3bcdd
1 parent 80c8b6c
commit 8e3bcdd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fortran/tuvx/tuvx.F90 b/fortran/tuvx/tuvx.F90
@@ -119,8 +119,8 @@ function constructor(config_path, grids, profiles, radiators, error) &
     end do
     c_config_path(n+1) = c_null_char
 
-    this%ptr_ = create_tuvx_c(c_config_path, c_loc(grids), c_loc(profiles), &
-                              c_loc(radiators), error_c)
+    this%ptr_ = create_tuvx_c(c_config_path, grids%ptr_, profiles%ptr_, &
+                              radiators%ptr_, error_c)
 
     error = error_t(error_c)
     if (.not. error%is_success()) then