fix write-out

Nek5000 · Mar 24, 2024 · cd4f92a · cd4f92a
1 parent 552f5b5
commit cd4f92a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/rom.f b/code/rom.f
@@ -1347,7 +1347,7 @@ subroutine setc(cl,fname)
                do i=1,nb
                   call setc_local(cl,rtmp1(i,1),
      $               ic1,ic2,jc1,jc2,kc1,kc2,i,j,k)
-                  if (nid.eq.0) write (100,*) cel
+                  if (nid.eq.0) write (100,*) rtmp1(i,1)
                enddo
             enddo
          enddo