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 ...@@ -325,8 +325,8 @@ IMPLICIT NONE
! ------------------------------------ ! ------------------------------------
! !
TYPE(DIMPHYEX_t), INTENT(IN) :: D TYPE(DIMPHYEX_t), INTENT(IN) :: D
REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PDZM ! result at flux REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PDZM ! result at flux
! side ! side
! !
!* 0.2 Declarations of local variables !* 0.2 Declarations of local variables
...@@ -670,8 +670,8 @@ IMPLICIT NONE ...@@ -670,8 +670,8 @@ IMPLICIT NONE
! ------------------------------------ ! ------------------------------------
! !
TYPE(DIMPHYEX_t), INTENT(IN) :: D TYPE(DIMPHYEX_t), INTENT(IN) :: D
REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux localization REAL, DIMENSION(D%NIT,D%NJT,D%NKT), 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(OUT) :: PDZF ! result at mass localization
! !
!* 0.2 Declarations of local variables !* 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