fixed tests - problem with file name exported

Author: sbryngelson

src/pre_process_code/m_data_output.f90

@@ -183,7 +183,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf) ! -----------
             IF (n ==0 .AND. p ==0) THEN
                 IF (model_eqns == 2) THEN
                     DO i = 1, sys_size
-                        WRITE(file_loc,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/prim.', i, '.', proc_rank, '.', t_step,'.dat'
+                        WRITE(file_loc,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/prim.', i, '.', proc_rank, '.', t_step,'.dat'
 
                         OPEN(2,FILE= TRIM(file_loc) )
                             DO j=0,m
@@ -241,7 +241,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf) ! -----------
                 END IF
 
                 DO i = 1, sys_size    
-                    WRITE(file_loc,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
+                    WRITE(file_loc,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
 
                     OPEN(2,FILE= TRIM(file_loc) )
                         DO j=0,m
@@ -261,7 +261,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf) ! -----------
             ! 2D
             IF ( (n>0) .AND. (p==0) ) THEN
                 DO i = 1,sys_size
-                    WRITE(file_loc,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
+                    WRITE(file_loc,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
                     OPEN(2,FILE= TRIM(file_loc) )
                         DO j=0,m
                         DO k=0,n
@@ -277,7 +277,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf) ! -----------
             ! 3D
             IF ( p > 0) THEN
                 DO i = 1,sys_size
-                    WRITE(file_loc,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
+                    WRITE(file_loc,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
                     OPEN(2,FILE= TRIM(file_loc) )
                         DO j=0,m
                         DO k=0,n

src/simulation_code/m_data_output.f90

@@ -829,7 +829,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf, t_step) ! ---------------------
 
                 IF (model_eqns==2) THEN
                     DO i = 1, sys_size
-        WRITE(file_path,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/prim.', i, '.', proc_rank, '.', t_step,'.dat'
+        WRITE(file_path,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/prim.', i, '.', proc_rank, '.', t_step,'.dat'
 
                         OPEN(2,FILE= TRIM(file_path) )
                             DO j=0,m
@@ -886,7 +886,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf, t_step) ! ---------------------
                 END IF
 
                 DO i = 1, sys_size    
-        WRITE(file_path,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
+        WRITE(file_path,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
 
                     OPEN(2,FILE= TRIM(file_path) )
                         DO j=0,m
@@ -906,7 +906,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf, t_step) ! ---------------------
             ! 2D
             IF ( (n>0) .AND. (p==0) ) THEN
                 DO i = 1,sys_size
-        WRITE(file_path,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
+        WRITE(file_path,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
                     OPEN(2,FILE= TRIM(file_path) )
                         DO j=0,m
                         DO k=0,n
@@ -928,7 +928,7 @@ SUBROUTINE s_write_serial_data_files(q_cons_vf, t_step) ! ---------------------
             ! 3D
             IF ( p > 0) THEN
                 DO i = 1,sys_size
-        WRITE(file_path,'(A,I0,A,I2.2,A,I8.8,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
+        WRITE(file_path,'(A,I0,A,I2.2,A,I6.6,A)') TRIM(t_step_dir) // '/cons.', i, '.', proc_rank, '.', t_step,'.dat'
                     OPEN(2,FILE= TRIM(file_path) )
                         DO j=0,m
                         DO k=0,n

src/simulation_code/m_global_parameters.f90

@@ -1155,7 +1155,7 @@ SUBROUTINE s_comp_n_from_cons( vftmp,nRtmp,ntmp )
                 ! END DO
                 ! nR3 = 1.d-12
                 PRINT*, vftmp, nR3, nRtmp(:)
-                STOP'nR3 is negative'
+                STOP 'nR3 is negative'
             END IF
             IF (vftmp < 0d0) THEN
                 ! vftmp = small_alf