Declared previously undeclarred variables/types

src/stitch_nest.f90

@@ -13,28 +13,46 @@ use threads
 implicit none
 
 ! Variable type declaration
+character (len=4) :: cistep,cnnest
+
+double precision :: current_time,inc,step,total
+
+integer :: i,istep,material0,nnest
+
+type (box),dimension(:),allocatable :: boxes
 type (cloud),dimension(:),allocatable :: ss_cl
 type (cloud) :: ls_cl
+type (cross_section),dimension(:),allocatable :: sections
+type (face),dimension(6) :: cube_faces
+type (material),dimension(:),allocatable::mat
+type (nest_info) nest
 type (octreev),dimension(:),allocatable :: ss_ov
 type (octreev) ls_ov
 type (parameters) :: params
 type (sheet),dimension(:),allocatable :: ls_surf,ls_surf0,ss_surf,ss_surf0
-
-integer :: i,nnest,istep
-
-character (len=4) :: cistep
+type (thread) :: threadinfo
+type (ziso) zi
 
 !-------------------------------------------------------------------------------
 
 write (*,*) 'Program started'
 
-! Read current time step from command line
-call getarg (1,istep)
-call getarg (2,nnest)
+! Init some variables
+current_time=0.d0
+inc=0.d0
+step=0.d0
+total=0.d0
 
+! Read/echo current time step and # of nests from command line
+call getarg (1,cistep)
+call getarg (2,cnnest)
 write (*,*) 'Received command line arguments:'
-write (*,*) 'istep = ',istep
-write (*,*) 'nnest = ',nnest
+write (*,*) 'istep = ',trim(cistep)
+write (*,*) 'nnest = ',trim(cnnest)
+
+! Convert character values to integers
+write (istep,'(i)') cistep
+write (nnest,'(i)') cnnest
 
 ! Read the coarse model input file
 params%infile=trim('input_ls.txt')
@@ -63,7 +81,7 @@ do i = 1,nnest
   ! Change params%infile
 enddo
 
-deallocate()
+deallocate(ls_surf,ls_surf0)
 
 ! Sign off
 write (*,*) 'Program execution complete'