From f87b8861f81ca92f99938adb3a3f79657151af70 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 17 Jun 2016 10:01:45 +0200 Subject: [PATCH] Philippe 17/06/2016: change variable status INOUT->OUT --- src/MNH/advec_weno_k_2_aux.f90 | 16 ++++++++-------- src/MNH/advec_weno_k_3_aux.f90 | 16 ++++++++-------- 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/src/MNH/advec_weno_k_2_aux.f90 b/src/MNH/advec_weno_k_2_aux.f90 index 38ca92773..4660a4a7b 100644 --- a/src/MNH/advec_weno_k_2_aux.f90 +++ b/src/MNH/advec_weno_k_2_aux.f90 @@ -21,7 +21,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! END SUBROUTINE ADVEC_WENO_K_2_UX @@ -41,7 +41,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! END SUBROUTINE ADVEC_WENO_K_2_MX @@ -62,7 +62,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! END SUBROUTINE ADVEC_WENO_K_2_VY @@ -82,7 +82,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! END SUBROUTINE ADVEC_WENO_K_2_MY @@ -152,7 +152,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! !* 0.2 Declarations of local variables : @@ -413,7 +413,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! !* 0.2 Declarations of local variables : @@ -674,7 +674,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! output source term ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! ! @@ -931,7 +931,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR TYPE(HALO2_ll), OPTIONAL, POINTER :: TPHALO2 ! halo2 for the field at t ! !* 0.2 Declarations of local variables : diff --git a/src/MNH/advec_weno_k_3_aux.f90 b/src/MNH/advec_weno_k_3_aux.f90 index dbf9ca548..0115668ae 100644 --- a/src/MNH/advec_weno_k_3_aux.f90 +++ b/src/MNH/advec_weno_k_3_aux.f90 @@ -20,7 +20,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! END SUBROUTINE ADVEC_WENO_K_3_UX ! @@ -38,7 +38,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! END SUBROUTINE ADVEC_WENO_K_3_MX ! @@ -57,7 +57,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! END SUBROUTINE ADVEC_WENO_K_3_VY ! @@ -75,7 +75,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! END SUBROUTINE ADVEC_WENO_K_3_MY ! @@ -146,7 +146,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! !* 0.2 Declarations of local variables : ! @@ -806,7 +806,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRUCT ! contrav. comp. on MASS GRID ! ! output source term ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! !* 0.2 Declarations of local variables : ! @@ -1465,7 +1465,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! output source term ! -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! !* 0.2 Declarations of local variables : ! @@ -2129,7 +2129,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable on U grid at t REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVCT ! contrav. comp. on MASS GRID ! ! output source term -REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR ! !* 0.2 Declarations of local variables : ! -- GitLab