sanity only on myid==0

gemini3d · May 13, 2020 · 83006b5 · 83006b5
1 parent a9da02c
commit 83006b5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/gemini.f90 b/src/gemini.f90
@@ -241,7 +241,7 @@ Program Gemini3D
   endif
 
   !> Sanity check key variables before advancing
-  call check_finite_output(t, myid, vs2,vs3,ns,vs1,Ts,Phiall,J1,J2,J3)
+  if(myid==0) call check_finite_output(t, myid, vs2,vs3,ns,vs1,Ts,Phiall,J1,J2,J3)
 
   !> NOW OUR SOLUTION IS FULLY UPDATED SO UPDATE TIME VARIABLES TO MATCH...
   it=it+1; t=t+dt;

diff --git a/src/io/sanity_check.f90 b/src/io/sanity_check.f90
@@ -33,7 +33,7 @@ subroutine check_finite_output(time,id, vs2,vs3,ns,vs1,Ts,Phi,J1,J2,J3)
 call check_finite(J3, 'J3', time, id)
 call check_finite(vs2, 'vs2', time, id)
 call check_finite(vs3, 'vs3', time, id)
-! call check_finite(Phi, 'Phi', time, id)
+call check_finite(Phi, 'Phi', time, id)
 
 end subroutine check_finite_output