Removing Compiling Errors of previous commit

src/update_tracking_cloud.f90

@@ -49,9 +49,9 @@ double precision dt,current_time
 !------------------------------------------------------------------------------|
 
 integer iproc,nproc,ierr,err,iter
-integer i,j,k,tgridshape,gridstep,tracksi,ie
+integer i,j,k,trgridshape,gridstep,tracksi,ie
 integer trstep,ntrpx,ntrpy,ntrpz
-integer nsurfd,neset,leaf,level,locc
+integer nsurfd,nreset,leaf,level,locc
 integer,dimension(:),allocatable::trdensloss
 integer,dimension(:,:),allocatable::trackswap
 double precision u,v,w,rat
@@ -74,7 +74,7 @@ call mpi_comm_rank (mpi_comm_world,iproc,ierr)
 !------------------------------------------------------------------------------|
 ! Creating Tracking Cloud at first timestep
 !------------------------------------------------------------------------------|
-if (trcl%np == 0) 
+if (trcl%np == 0) then
     !if not loading from restart file, create tracking particles according to 
     !specifications in input file
     
@@ -105,7 +105,7 @@ if (trcl%np == 0)
             end do
 
         else reggrid
-        !tgridshape=3, bcc-type gric
+        !trgridshape=3, bcc-type gric
             dx = 2.d0*(params%trboxxmax-params%trboxxmin)/(ntrpx+1)
             dy = 2.d0*(params%trboxymax-params%trboxymin)/(ntrpy+1)
             dz = 2.d0*(params%trboxzmax-params%trboxzmin)/(ntrpz+1)
@@ -406,15 +406,15 @@ reset: if (iproc==0) then
             trcl%lsf0(i)>0.d0 .OR. trcl%z(i)<0.d0) then
 
             !find leaf with hightes loss of particles
-            ie = maxloc(trdensloss)
+            ie = maxloc(trdensloss,DIM=1)
             !adjust loss number in leaf
             trdensloss(ie) = trdensloss(ie)-1
 
             !inject randomly in this leaf
             call random_number(pos)
-            pos(1)=os%x(os%icon(1,ie))+pos(1)*(os%x(os%icon(2,ie))-os%x(os%icon(1,ie)))
-            pos(2)=os%y(os%icon(1,ie))+pos(2)*(os%y(os%icon(3,ie))-os%y(os%icon(1,ie)))
-            pos(3)=os%z(os%icon(1,ie))+pos(3)*(os%z(os%icon(5,ie))-os%z(os%icon(1,ie)))
+            pos(1)=osolve%x(osolve%icon(1,ie))+pos(1)*(osolve%x(osolve%icon(2,ie))-osolve%x(osolve%icon(1,ie)))
+            pos(2)=osolve%y(osolve%icon(1,ie))+pos(2)*(osolve%y(osolve%icon(3,ie))-osolve%y(osolve%icon(1,ie)))
+            pos(3)=osolve%z(osolve%icon(1,ie))+pos(3)*(osolve%z(osolve%icon(5,ie))-osolve%z(osolve%icon(1,ie)))
 
             trcl%x(i) = pos(1)
             trcl%y(i) = pos(2)
@@ -434,7 +434,7 @@ reset: if (iproc==0) then
     !send end signal to other processors
     call mpi_bcast(0,1,mpi_integer,0,mpi_comm_world,ierr)
     
-    write (*,*) 'update_trcloud: ',nsurfaced,'particles surfaced and in total ',nreset,'particles reset'
+    write (*,*) 'update_trcloud: ',nsurfd,'particles surfaced and in total ',nreset,'particles reset'
     deallocate (trdensloss)
 
 else reset