From 713a234730d1c585d7e61b8e52159f42bd8fcc76 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 26 Jun 2024 14:56:00 +0200
Subject: [PATCH] Philippe 26/06/2024: IO_Field_read: remove target attribute
when not needed anymore
---
src/LIB/SURCOUCHE/src/mode_io_field_read.f90 | 38 ++++++++++----------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
index 5053b5068..fabd602b3 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
@@ -357,7 +357,7 @@ USE MODE_ll , ONLY : ADD2DFIELD_ll,UPDATE_HALO_ll,CLEANLIST_ll
!
TYPE(TFILEDATA), INTENT(IN) :: TPFILE
CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
-REAL, DIMENSION(:,:), TARGET, INTENT(INOUT) :: PFIELD ! array containing the data field
+REAL, DIMENSION(:,:), INTENT(INOUT) :: PFIELD ! array containing the data field
INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
INTEGER, OPTIONAL, INTENT(IN) :: KIMAX_ll
INTEGER, OPTIONAL, INTENT(IN) :: KJMAX_ll
@@ -563,10 +563,10 @@ USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
USE MODE_MNH_TIMING, ONLY: SECOND_MNH2
USE MODE_SCATTER_ll
!
-TYPE(TFILEDATA), TARGET, INTENT(IN) :: TPFILE
-CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
-REAL,DIMENSION(:,:,:), TARGET, INTENT(INOUT) :: PFIELD ! array containing the data field
-INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
+TYPE(TFILEDATA), INTENT(IN) :: TPFILE
+CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PFIELD ! array containing the data field
+INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
!
TYPE TX_2DP
REAL,DIMENSION(:,:), POINTER :: X
@@ -1498,10 +1498,10 @@ USE MODD_TIMEZ, ONLY: TIMEZ
!
USE MODE_SCATTER_ll
!
-TYPE(TFILEDATA), INTENT(IN) :: TPFILE
-CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
-INTEGER, DIMENSION(:,:), TARGET, INTENT(INOUT) :: KFIELD ! array containing the data field
-INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
+TYPE(TFILEDATA), INTENT(IN) :: TPFILE
+CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
+INTEGER, DIMENSION(:,:), INTENT(INOUT) :: KFIELD ! array containing the data field
+INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
!
INTEGER :: IERR
integer :: ifield0d
@@ -1650,10 +1650,10 @@ USE MODD_TIMEZ, ONLY: TIMEZ
!
USE MODE_SCATTER_ll
!
-TYPE(TFILEDATA), INTENT(IN) :: TPFILE
-CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
-INTEGER, DIMENSION(:,:,:), TARGET, INTENT(INOUT) :: KFIELD ! array containing the data field
-INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
+TYPE(TFILEDATA), INTENT(IN) :: TPFILE
+CLASS(TFIELDMETADATA), INTENT(INOUT) :: TPFIELD
+INTEGER, DIMENSION(:,:,:), INTENT(INOUT) :: KFIELD ! array containing the data field
+INTEGER, OPTIONAL, INTENT(OUT) :: KRESP ! return-code
!
INTEGER :: IERR
integer, dimension(:), allocatable :: ifield1d
@@ -2099,12 +2099,12 @@ END SUBROUTINE IO_Field_read_byfield_T0
SUBROUTINE IO_Field_read_byname_lb(TPFILE,HNAME,KL3D,KRIM,PLB,KRESP)
!
-TYPE(TFILEDATA), INTENT(IN) :: TPFILE
-CHARACTER(LEN=*), INTENT(IN) :: HNAME ! name of the field to write
-INTEGER, INTENT(IN) :: KL3D ! size of the LB array in FM
-INTEGER, INTENT(IN) :: KRIM ! size of the LB area
-REAL, DIMENSION(:,:,:),TARGET, INTENT(INOUT) :: PLB ! array containing the LB field
-INTEGER,OPTIONAL, INTENT(OUT) :: KRESP ! return-code
+TYPE(TFILEDATA), INTENT(IN) :: TPFILE
+CHARACTER(LEN=*), INTENT(IN) :: HNAME ! name of the field to write
+INTEGER, INTENT(IN) :: KL3D ! size of the LB array in FM
+INTEGER, INTENT(IN) :: KRIM ! size of the LB area
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PLB ! array containing the LB field
+INTEGER,OPTIONAL, INTENT(OUT) :: KRESP ! return-code
INTEGER :: ID ! Index of the field
INTEGER :: IRESP ! return_code
--
GitLab