Skip to content
Snippets Groups Projects
Commit 61caabcf authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 10/03/2022:tensor/discretisation.f90, upgrade zt1d size & public...

Juan 10/03/2022:tensor/discretisation.f90, upgrade zt1d size & public zt1d_discretisation_allocate3d
parent 2a89682c
No related branches found
No related tags found
No related merge requests found
......@@ -148,7 +148,7 @@ private
real(kind=rl), pointer , contiguous , dimension(:) :: zt1d_discretisation
INTEGER :: zt1d_discretisation_size = 10000000
INTEGER , parameter :: zt1d_discretisation_size_factor = 2 * 4
INTEGER , parameter :: zt1d_discretisation_size_factor = 4 * 4
INTEGER :: nt1d_discretisation_top = 0 , nt1d_discretisation_max = 0
INTEGER , ALLOCATABLE, DIMENSION (:) :: nt1d_discretisation_pointer , nt1d_discretisation_pointer_ksize
......@@ -182,6 +182,7 @@ public::DIRECTION_BACKWARD
public::ORDERING_LEX
public::ORDERING_RB
public::zt1d_discretisation_init
public::zt1d_discretisation_allocate3d
contains
......@@ -226,8 +227,8 @@ contains
integer :: ksize, kbeg, kend
if ( nt1d_discretisation_pointer_top == zt1d_discretisation_pointer_size ) then
print*,"ERROR zt1d_discretisation_init:: zt1d_discretisation_pointer_size to small=",zt1d_discretisation_pointer_size
print*,"ERROR zt1d_discretisation_init:: Augment it "
print*,"ERROR zt1d_discretisation_allocate3d:: zt1d_discretisation_pointer_size to small=",zt1d_discretisation_pointer_size
print*,"ERROR zt1d_discretisation_allocate3d:: Augment it "
stop
end if
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment