From 8912f0205743d117a6d465440f1bdd4023e4c0dc Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 17:40:36 +0000
Subject: [PATCH] split long lines
---
interpolate_ov_on_osolve.f90 | 38 ++++++++++++++++++++++++------------
1 file changed, 26 insertions(+), 12 deletions(-)
diff --git a/interpolate_ov_on_osolve.f90 b/interpolate_ov_on_osolve.f90
index 783ed536..b91d186d 100644
--- a/interpolate_ov_on_osolve.f90
+++ b/interpolate_ov_on_osolve.f90
@@ -127,7 +127,9 @@ enddo
!enddo
-if (params%debug>=1 .and. iproc.eq.0) write(*,'(a,2e11.4)') shift//'ov%pressure: ',minval(ov%temporary_nodal_pressure),maxval(ov%temporary_nodal_pressure)
+if (params%debug>=1 .and. iproc.eq.0) then
+ write(*,'(a,2e11.4)') shift//'ov%pressure: ',minval(ov%temporary_nodal_pressure),maxval(ov%temporary_nodal_pressure)
+endif
osolve%u=0.d0
osolve%v=0.d0
@@ -160,7 +162,9 @@ enddo
osolve%spressure=osolve%pressure
-if (params%debug>=1 .and. iproc.eq.0) write(*,'(a,2e11.4)') shift//'osolve%pressure: ',minval(osolve%pressure),maxval(osolve%pressure)
+if (params%debug>=1 .and. iproc.eq.0) then
+ write(*,'(a,2e11.4)') shift//'osolve%pressure: ',minval(osolve%pressure),maxval(osolve%pressure)
+endif
deallocate (pressure)
deallocate (pressurep)
@@ -181,24 +185,34 @@ call heap (threadinfo,'ov%vnode','interpolate_ov...',size(ov%vnode),'dp',-1)
call heap (threadinfo,'ov%wnode','interpolate_ov...',size(ov%wnode),'dp',-1) ; deallocate (ov%wnode)
call heap (threadinfo,'ov%temp','interpolate_ov...',size(ov%temp),'dp',-1) ; deallocate (ov%temp)
call heap (threadinfo,'ov%icon','interpolate_ov...',size(ov%icon),'int',-1) ; deallocate (ov%icon)
-call heap (threadinfo,'ov%temporary...','interpolate_ov...',size(ov%temporary_nodal_pressure),'dp',-1) ; deallocate (ov%temporary_nodal_pressure)
-call heap (threadinfo,'ov%whole_leaf...','interpolate_ov...',size(ov%whole_leaf_in_fluid),'bool',-1) ; deallocate (ov%whole_leaf_in_fluid)
+call heap (threadinfo,'ov%temporary...','interpolate_ov...',size(ov%temporary_nodal_pressure),'dp',-1)
+deallocate (ov%temporary_nodal_pressure)
+call heap (threadinfo,'ov%whole_leaf...','interpolate_ov...',size(ov%whole_leaf_in_fluid),'bool',-1)
+deallocate (ov%whole_leaf_in_fluid)
ov%noctree=osolve%noctree
ov%nleaves=osolve%nleaves
ov%nnode=osolve%nnode
- allocate (ov%octree(ov%noctree),stat=threadinfo%err) ; call heap (threadinfo,'ov%octree','interpolate_ov...',size(ov%octree),'int',+1)
- allocate (ov%icon(8,ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%icon','interpolate_ov...',size(ov%icon),'int',+1)
+ allocate (ov%octree(ov%noctree),stat=threadinfo%err)
+ call heap (threadinfo,'ov%octree','interpolate_ov...',size(ov%octree),'int',+1)
+ allocate (ov%icon(8,ov%nleaves),stat=threadinfo%err)
+ call heap (threadinfo,'ov%icon','interpolate_ov...',size(ov%icon),'int',+1)
allocate (ov%x(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%x','interpolate_ov...',size(ov%x),'dp',+1)
allocate (ov%y(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%y','interpolate_ov...',size(ov%y),'dp',+1)
allocate (ov%z(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%z','interpolate_ov...',size(ov%z),'dp',+1)
- allocate (ov%unode(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%unode','interpolate_ov...',size(ov%unode),'dp',+1)
- allocate (ov%vnode(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%vnode','interpolate_ov...',size(ov%vnode),'dp',+1)
- allocate (ov%wnode(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%wnode','interpolate_ov...',size(ov%wnode),'dp',+1)
- allocate (ov%temp(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%temp','interpolate_ov...',size(ov%temp),'dp',+1)
- allocate (ov%temporary_nodal_pressure(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%temporary_nodal_pressure','interpolate_ov...',size(ov%temporary_nodal_pressure),'dp',+1)
- allocate (ov%whole_leaf_in_fluid(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%whole_leaf_in_fluid','interpolate_ov...',size(ov%whole_leaf_in_fluid),'bool',+1)
+ allocate (ov%unode(ov%nnode),stat=threadinfo%err)
+ call heap (threadinfo,'ov%unode','interpolate_ov...',size(ov%unode),'dp',+1)
+ allocate (ov%vnode(ov%nnode),stat=threadinfo%err)
+ call heap (threadinfo,'ov%vnode','interpolate_ov...',size(ov%vnode),'dp',+1)
+ allocate (ov%wnode(ov%nnode),stat=threadinfo%err)
+ call heap (threadinfo,'ov%wnode','interpolate_ov...',size(ov%wnode),'dp',+1)
+ allocate (ov%temp(ov%nnode),stat=threadinfo%err)
+ call heap (threadinfo,'ov%temp','interpolate_ov...',size(ov%temp),'dp',+1)
+ allocate (ov%temporary_nodal_pressure(ov%nnode),stat=threadinfo%err)
+ call heap (threadinfo,'ov%temporary_nodal_pressure','interpolate_ov...',size(ov%temporary_nodal_pressure),'dp',+1)
+ allocate (ov%whole_leaf_in_fluid(ov%nleaves),stat=threadinfo%err)
+ call heap (threadinfo,'ov%whole_leaf_in_fluid','interpolate_ov...',size(ov%whole_leaf_in_fluid),'bool',+1)
!allocate (ov%octree(ov%noctree),stat=err) ; if (err.ne.0) call stop_run ('Error alloc ov%octree in main$')
--
GitLab