From fbc55eebc8a2d868ac74c3ad79eb67cb69e0aa53 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 13 Jul 2009 16:26:25 +0000
Subject: [PATCH] to match Jean
---
define_bc.f90 => define_bc.18.06.2009.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
rename define_bc.f90 => define_bc.18.06.2009.f90 (98%)
diff --git a/define_bc.f90 b/define_bc.18.06.2009.f90
similarity index 98%
rename from define_bc.f90
rename to define_bc.18.06.2009.f90
index d1851986..50621285 100644
--- a/define_bc.f90
+++ b/define_bc.18.06.2009.f90
@@ -151,7 +151,8 @@ case ('input.pipo')
call define_bc_pipo (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo)
case ('input.ritske')
- call define_bc_ritske(osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo)
+ call define_bc_ritske(osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,&
+vo)
case ('input.ritske_isurf')
call define_bc_ritske_isurf (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,&
--
GitLab