From 292deea34b54ddae636b83f221d0b72398d23d86 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 18 Mar 2021 16:12:16 +0100 Subject: [PATCH] Philippe 18/03/2021: bugfix: remove pointer property of some dummy arguments --- src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 index dfff208bd..f3a4ffb2b 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 @@ -1996,7 +1996,7 @@ subroutine Write_hor_coord1d(TDIM,HLONGNAME,HSTDNAME,HAXIS,PSHIFT,KBOUNDLOW,KBOU USE MODE_ALLOCBUFFER_ll, ONLY: ALLOCBUFFER_ll USE MODE_GATHER_ll, ONLY: GATHER_XXFIELD - TYPE(tdimnc), POINTER, INTENT(IN) :: TDIM + TYPE(tdimnc), INTENT(IN) :: TDIM CHARACTER(LEN=*), INTENT(IN) :: HLONGNAME CHARACTER(LEN=*), INTENT(IN) :: HSTDNAME CHARACTER(LEN=*), INTENT(IN) :: HAXIS @@ -2074,7 +2074,7 @@ end subroutine Write_hor_coord2d SUBROUTINE WRITE_VER_COORD(TDIM,HLONGNAME,HSTDNAME,HCOMPNAME,PSHIFT,KBOUNDLOW,KBOUNDHIGH,PCOORDS) - TYPE(tdimnc), POINTER, INTENT(IN) :: TDIM + TYPE(tdimnc), INTENT(IN) :: TDIM CHARACTER(LEN=*), INTENT(IN) :: HLONGNAME CHARACTER(LEN=*), INTENT(IN) :: HSTDNAME CHARACTER(LEN=*), INTENT(IN) :: HCOMPNAME @@ -2167,7 +2167,7 @@ subroutine Write_time_coord( tdim, hlongname, tpdates, tpdates_bound ) use mode_datetime, only: Datetime_distance use mode_field, only: Find_field_id_from_mnhname - type(tdimnc), pointer, intent(in) :: tdim + type(tdimnc), intent(in) :: tdim character(len=*), intent(in) :: hlongname type(date_time), dimension(:), intent(in) :: tpdates type(date_time), dimension(:,:), optional, intent(in) :: tpdates_bound !Boundaries of the date intervals -- GitLab