Philippe 26/06/2024: IO_Field_read: remove target attribute when not needed anymore

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