From 8689253ce7236cf7c47b862dde742fb891bf5a02 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Thu, 14 Nov 2013 19:00:15 +0100
Subject: [PATCH] Juan 14/11/2013: change PSRC to INOUT on all routine
---
MNH/get_halo.f90 | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/MNH/get_halo.f90 b/MNH/get_halo.f90
index 52532129f..c3ff94598 100644
--- a/MNH/get_halo.f90
+++ b/MNH/get_halo.f90
@@ -12,7 +12,7 @@ INTERFACE
SUBROUTINE GET_HALO2(PSRC,TP_PSRC_HALO2_ll)
!
USE MODD_ARGSLIST_ll, ONLY : HALO2LIST_ll
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t
+ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PSRC ! variable at t
TYPE(HALO2LIST_ll), POINTER :: TP_PSRC_HALO2_ll ! halo2 for SRC
!
END SUBROUTINE GET_HALO2
@@ -21,7 +21,7 @@ END INTERFACE
INTERFACE
SUBROUTINE GET_HALO(PSRC,HDIR)
!
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t
+ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PSRC ! variable at t
CHARACTER(len=4), OPTIONAL :: HDIR ! to send only halo on X or Y direction
!
END SUBROUTINE GET_HALO
@@ -30,7 +30,7 @@ END INTERFACE
INTERFACE
SUBROUTINE GET_HALO_D(PSRC,HDIR)
!
- REAL, DIMENSION(:,:,:) :: PSRC ! variable at t
+ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PSRC ! variable at t
!$acc declare present (PSRC)
CHARACTER(len=4), OPTIONAL :: HDIR ! to send only halo on X or Y direction
!
@@ -58,7 +58,7 @@ USE MODI_GET_HALO , ONLY : GET_HALO
!
IMPLICIT NONE
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PSRC ! variable at t
TYPE(HALO2LIST_ll), POINTER :: TP_PSRC_HALO2_ll ! halo2 for SRC
!
INTEGER :: IIU,IJU,IKU ! domain sizes
@@ -92,7 +92,7 @@ USE MODD_ARGSLIST_ll, ONLY : LIST_ll
!
IMPLICIT NONE
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PSRC ! variable at t
CHARACTER(len=4), OPTIONAL :: HDIR ! to send only halo on X or Y direction
!
TYPE(LIST_ll) , POINTER :: TZ_PSRC_ll ! halo
@@ -135,7 +135,7 @@ USE MODE_MNH_ZWORK, ONLY : GWEST , GEAST, GSOUTH , GNORTH
!
IMPLICIT NONE
!
-REAL, DIMENSION(:,:,:) :: PSRC ! variable at t
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PSRC ! variable at t
!$acc declare present (PSRC)
CHARACTER(len=4), OPTIONAL :: HDIR ! to send only halo on X or Y direction
!
--
GitLab