From 79b4737cb2d60b6386a742463aa66366bc229ad0 Mon Sep 17 00:00:00 2001 From: Jiwon Gim Date: Mon, 27 Jan 2025 16:25:52 -0700 Subject: [PATCH] fix intel compiler error --- src/tuvx/interface_grid_map.F90 | 2 +- src/tuvx/interface_profile_map.F90 | 2 +- src/tuvx/interface_radiator_map.F90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/tuvx/interface_grid_map.F90 b/src/tuvx/interface_grid_map.F90 index 7d10105c..56061ce5 100644 --- a/src/tuvx/interface_grid_map.F90 +++ b/src/tuvx/interface_grid_map.F90 @@ -134,7 +134,7 @@ function interal_get_grid(grid_map, c_grid_name, c_grid_name_length, & grid_ptr = c_loc(f_grid) class default error_code = 1 - deallocate(f_grid) + ! deallocate(f_grid) grid_ptr = c_null_ptr end select diff --git a/src/tuvx/interface_profile_map.F90 b/src/tuvx/interface_profile_map.F90 index d0d101b0..d3821597 100644 --- a/src/tuvx/interface_profile_map.F90 +++ b/src/tuvx/interface_profile_map.F90 @@ -134,7 +134,7 @@ function internal_get_profile(profile_map, c_profile_name, & error_code = 0 class default error_code = 1 - deallocate(f_profile) + ! deallocate(f_profile) profile_ptr = c_null_ptr end select diff --git a/src/tuvx/interface_radiator_map.F90 b/src/tuvx/interface_radiator_map.F90 index 4cbf9f94..77eaa0cc 100644 --- a/src/tuvx/interface_radiator_map.F90 +++ b/src/tuvx/interface_radiator_map.F90 @@ -133,7 +133,7 @@ function internal_get_radiator(radiator_map, c_radiator_name, & radiator_ptr = c_loc(f_radiator) class default error_code = 1 - deallocate(f_radiator) + ! deallocate(f_radiator) radiator_ptr = c_null_ptr end select end if