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

Quentin 24/06/2022: preparing NPROMA incomplete blocks by using NIJB and NIJE

parent 7b5f0490
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/mesonh/aux/mode_fill_dimphyexn.F90
+ 3
− 0
View file @ 9fa743eb
...@@ -63,6 +63,9 @@ YDDIMPHYEX%NIJT=KIT*KJT ...@@ -63,6 +63,9 @@ YDDIMPHYEX%NIJT=KIT*KJT
CALL GET_INDICE_ll(YDDIMPHYEX%NIB, YDDIMPHYEX%NJB,& CALL GET_INDICE_ll(YDDIMPHYEX%NIB, YDDIMPHYEX%NJB,&
&YDDIMPHYEX%NIE, YDDIMPHYEX%NJE) &YDDIMPHYEX%NIE, YDDIMPHYEX%NJE)
! !
YDDIMPHYEX%NIJB=1
YDDIMPHYEX%NIJE=KIT*KJT
!
YDDIMPHYEX%NKL=1 YDDIMPHYEX%NKL=1
YDDIMPHYEX%NKT=KKT YDDIMPHYEX%NKT=KKT
YDDIMPHYEX%NKA=1 YDDIMPHYEX%NKA=1
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme