Update index_array.f90

updated the year to 2023. 

The condition for the concentration range is put inside the loop.

Author: Shahid718

comparison/index_array.f90

@@ -9,7 +9,7 @@
 !               Shahid Maqbool
 ! 
 !   Modified   :
-!                    29 March 2022
+!                    29 March 2023
 !
 !   To compile and run :
 !                            check ReadMe file
@@ -90,12 +90,13 @@ program fd_ch_test
         con(i,j) =  con(i,j) + dt*mobility*lap_dummy(i,j)
 
 
-     end do
+        ! adjust concentration in range
 
-     ! adjust concentration in range
+        if ( con(i,j) >= 0.99999 )  con(i,j) = 0.99999
+        if ( con(i,j) < 0.00001 )   con(i,j) = 0.00001
 
-     if ( con(i,j) >= 0.99999 )  con(i,j) = 0.99999
-     if ( con(i,j) < 0.00001 )   con(i,j) = 0.00001
+     
+     end do
 
 
   end do time_loop