From b38b40d5ab4a6599b404dc5610c2a94646469d37 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 18:00:30 +0000
Subject: [PATCH] split long lines
---
build_surface_octree.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/build_surface_octree.f90 b/build_surface_octree.f90
index bb99d1d9..8f1084a7 100644
--- a/build_surface_octree.f90
+++ b/build_surface_octree.f90
@@ -136,7 +136,8 @@ elseif (surface%criterion.eq.2) then
! anglemax=surface%anglemaxoctree/(0.5d0**surface%leveloct)
angle=acos(cosd)
anglemax=surface%anglemaxoctree
- level=max(level,params%leveluniform_oct+ nint(min(angle/surface%anglemaxoctree,1.d0)*(params%levelmax_oct-params%leveluniform_oct)))
+ level=max(level,params%leveluniform_oct+ &
+ nint(min(angle/surface%anglemaxoctree,1.d0)*(params%levelmax_oct-params%leveluniform_oct)))
! level=max(level,params%leveluniform_oct+ nint(min(angle/surface%anglemaxoctree,1.d0)*(surface%leveloct-params%leveluniform_oct)))
! level=max(level,params%leveluniform_oct+ nint(min(angle/surface%anglemax,1.d0)*(surface%leveloct-params%leveluniform_oct)))
enddo
--
GitLab