Juan 14/11/2013: change PSRC to INOUT on all routine

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
 !