Skip to content
Snippets Groups Projects
Commit 89355285 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 24/01/2022: increaze JPMAX_T1DFLAT_R

parent 0693a081
No related branches found
No related tags found
No related merge requests found
......@@ -103,7 +103,7 @@ MODULE MODE_MNH_ZWORK
!------ Real 1DFLAT pool
INTEGER, PARAMETER :: JPMAX_T1DFLAT_R = 10 !Used to determine max size of buffer ZT1DFLAT
INTEGER, PARAMETER :: JPMAX_T1DFLAT_R = 20 !Used to determine max size of buffer ZT1DFLAT
!(3D size of the mesh * JPMAX_T1DFLAT_R)
INTEGER, SAVE :: NPMAX_POOL_T1DFLAT_R = 100 !Maximum size of the pool (max number of arrays)
INTEGER(KIND=MNHINT64), ALLOCATABLE, DIMENSION (:) :: NT1DFLAT_POOL_R !Position in ZT1DFLAT of the beginning of each array
......
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