From 71f35992fdbc8da388fdbc4d9ff7082816fc7182 Mon Sep 17 00:00:00 2001
From: Dylan Kierans <kierans@dkrz.de>
Date: Wed, 5 Feb 2025 15:06:35 +0000
Subject: [PATCH] Remove TODO comments moved to #26
---
src/fortran_support.F90 | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/src/fortran_support.F90 b/src/fortran_support.F90
index b31ad79..a17d854 100644
--- a/src/fortran_support.F90
+++ b/src/fortran_support.F90
@@ -32,22 +32,20 @@ MODULE fortran_support
& t_ptr_1d_wp => t_ptr_1d_sp, &
& t_ptr_2d_wp => t_ptr_2d_sp, &
& t_ptr_3d_wp => t_ptr_3d_sp, &
- & t_ptr_4d_wp => t_ptr_4d_sp
- USE mo_fortran_tools, ONLY: & ! TODO: Replace t_ptr_Xd with suffix version in ICON, then remove
- & t_ptr_1d => t_ptr_1d_sp, &
- & t_ptr_2d => t_ptr_2d_sp, &
- & t_ptr_3d => t_ptr_3d_sp, &
- & t_ptr_4d => t_ptr_4d_sp
+ & t_ptr_4d_wp => t_ptr_4d_sp, &
+ & t_ptr_1d => t_ptr_1d_sp, &
+ & t_ptr_2d => t_ptr_2d_sp, &
+ & t_ptr_3d => t_ptr_3d_sp, &
+ & t_ptr_4d => t_ptr_4d_sp
#else
& t_ptr_1d_wp => t_ptr_1d_dp, &
& t_ptr_2d_wp => t_ptr_2d_dp, &
& t_ptr_3d_wp => t_ptr_3d_dp, &
- & t_ptr_4d_wp => t_ptr_4d_dp
- USE mo_fortran_tools, ONLY: & ! TODO: Replace t_ptr_Xd with suffix version in ICON, then remove
- & t_ptr_1d => t_ptr_1d_dp, &
- & t_ptr_2d => t_ptr_2d_dp, &
- & t_ptr_3d => t_ptr_3d_dp, &
- & t_ptr_4d => t_ptr_4d_dp
+ & t_ptr_4d_wp => t_ptr_4d_dp, &
+ & t_ptr_1d => t_ptr_1d_dp, &
+ & t_ptr_2d => t_ptr_2d_dp, &
+ & t_ptr_3d => t_ptr_3d_dp, &
+ & t_ptr_4d => t_ptr_4d_dp
#endif
USE mo_hash_table, ONLY: t_HashTable, hashTable_make, t_HashIterator
@@ -118,7 +116,7 @@ MODULE fortran_support
& init_contiguous_l, minval_1d, minval_2d, resize_arr_c1d, DO_DEALLOCATE, &
& DO_PTR_DEALLOCATE, insert_dimension, assert_acc_host_only, &
& assert_acc_device_only, set_acc_host_or_device
- PUBLIC :: t_ptr_1d, t_ptr_2d, t_ptr_3d, t_ptr_4d ! TODO: Remove
+ PUBLIC :: t_ptr_1d, t_ptr_2d, t_ptr_3d, t_ptr_4d
! From mo_hash_table
PUBLIC :: t_HashTable, hashTable_make, t_HashIterator
--
GitLab