Skip to content
Snippets Groups Projects
Commit 0ba58b0a authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 07/07/2022: explicit dimension for DZF and DZM shuman_phy

parent b7702bdb
No related branches found
No related tags found
No related merge requests found
......@@ -325,8 +325,8 @@ IMPLICIT NONE
! ------------------------------------
!
TYPE(DIMPHYEX_t), INTENT(IN) :: D
REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PDZM ! result at flux
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) :: PDZM ! result at flux
! side
!
!* 0.2 Declarations of local variables
......@@ -670,8 +670,8 @@ IMPLICIT NONE
! ------------------------------------
!
TYPE(DIMPHYEX_t), INTENT(IN) :: D
REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux localization
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PDZF ! result at mass localization
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at flux localization
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PDZF ! result at mass localization
!
!* 0.2 Declarations of local variables
! -------------------------------
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment