fix intel compiler error

NCAR · Jan 27, 2025 · 79b4737 · 79b4737
1 parent e0c3d21
commit 79b4737
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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