diff --git a/src/common/aux/shuman_phy.F90 b/src/common/aux/shuman_phy.F90 index dbe34cd2c5e75668a485618de77cc2bde574572a..024380d041acd8c22bb8914de3ea40248919272a 100644 --- a/src/common/aux/shuman_phy.F90 +++ b/src/common/aux/shuman_phy.F90 @@ -156,8 +156,8 @@ IMPLICIT NONE ! ------------------------------------ ! TYPE(DIMPHYEX_t), INTENT(IN) :: D -REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization -REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMYM ! result at flux localization +REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PMYM ! result at flux localization ! !* 0.2 Declarations of local variables ! ------------------------------- @@ -411,8 +411,8 @@ IMPLICIT NONE ! ------------------------------------ ! TYPE(DIMPHYEX_t), INTENT(IN) :: D -REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization -REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMXM ! result at flux localization +REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PMXM ! result at flux localization ! !* 0.2 Declarations of local variables ! -------------------------------