diff --git a/Sources/General/funct3d.f b/Sources/General/funct3d.f index 5f761b7..6843267 100644 --- a/Sources/General/funct3d.f +++ b/Sources/General/funct3d.f @@ -361,7 +361,7 @@ SUBROUTINE funct3d_par (lscreen, ier_flag) ! RESET FIRST TIME FOR SOFT START ! IF (ivac .EQ. 1) THEN - print *, "first Nestor call - force restart"/ + print *, "first Nestor call - force restart"// & "via BAD_JACOBIAN logic" irst = 2 delt0 = delt