Skip to content

Commit

Permalink
Pedantic change.
Browse files Browse the repository at this point in the history
  • Loading branch information
p-costa authored Apr 3, 2024
1 parent 06a25c7 commit 4143011
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/main.f90
Original file line number Diff line number Diff line change
Expand Up @@ -331,7 +331,7 @@ program cans
!
call chkdt(n,dl,dzci,dzfi,visc,u,v,w,dtmax)
dt = min(cfl*dtmax,dtmin)
if(myid == 0) print*, 'dtmax = ', dtmax, 'dt = ',dt
if(myid == 0) print*, 'dtmax = ', dtmax, 'dt = ', dt
dti = 1./dt
kill = .false.
!
Expand Down Expand Up @@ -464,7 +464,7 @@ program cans
if(myid == 0) print*, 'Checking stability and divergence...'
call chkdt(n,dl,dzci,dzfi,visc,u,v,w,dtmax)
dt = min(cfl*dtmax,dtmin)
if(myid == 0) print*, 'dtmax = ', dtmax, 'dt = ',dt
if(myid == 0) print*, 'dtmax = ', dtmax, 'dt = ', dt
if(dtmax < small) then
if(myid == 0) print*, 'ERROR: time step is too small.'
if(myid == 0) print*, 'Aborting...'
Expand Down

0 comments on commit 4143011

Please sign in to comment.