From 50ee32030e76b64794b6e302fc8f1dab63f13c19 Mon Sep 17 00:00:00 2001 From: Claire Kopenhafer Date: Fri, 18 Nov 2022 20:19:35 -0500 Subject: [PATCH] Line limit tweak in Fortran --- src/enzo/star_maker2.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/enzo/star_maker2.F b/src/enzo/star_maker2.F index 33cc1aee7..8e3a383b6 100644 --- a/src/enzo/star_maker2.F +++ b/src/enzo/star_maker2.F @@ -202,7 +202,8 @@ subroutine star_maker2(nx, ny, nz, divvel2 = div * div / (dx * dx) curlvel2 = 2 / (dx*dx) * (dvx*dvx + dvy*dvy + dvz*dvz & - dvy*dvz - dvx*dvz - dvy*dvx) - alpha = betaprime * (divvel2+curlvel2) / (GravConst*d(i,j,k)) + alpha = betaprime * (divvel2+curlvel2) + & / (GravConst*d(i,j,k)) if (alpha .ge. 1) goto 10 endif c