From 52ce93d547358dc237cc33d3b163ea87aabf5797 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Fri, 2 Dec 2011 21:51:21 +0000
Subject: [PATCH] Fixed typo
---
src/create_surfaces.f90 | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/src/create_surfaces.f90 b/src/create_surfaces.f90
index 6c6d3a83..47e650f2 100644
--- a/src/create_surfaces.f90
+++ b/src/create_surfaces.f90
@@ -686,13 +686,10 @@ select case(surface_type)
y2s=tan((theta1+theta2)/2.d0)
x0=sp04
- !y0w=sp05
y0w=sp05+dz1/(2.d0*psis)
- y0=sp06
- !y0a=y0+sp02/(2.d0*psis)
- !y0b=y0-sp02/(2.d0*psis)
- y0a=y0+dz1/psis
- y0b=y0
+ y0=sp06+dz1/(2.d0*psis)
+ y0a=y0+dz1/(2.d0*psis)
+ y0b=y0-dz1/(2.d0*psis)
y1=sp07+(dz1/(2.d0*psis))*y1s
y2=sp09+(dz1/(2.d0*psis))*y2s
--
GitLab