From e31949e5aebb80f809e91725b64c863c68167fa0 Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Mon, 15 Jun 2015 15:36:18 +0000
Subject: [PATCH] Corrected mistype in surf_anal

---
 src/gray.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/gray.f b/src/gray.f
index 1191d54..7099036 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -1019,7 +1019,7 @@ c
       implicit none
 c local variables
       integer :: i,k,ierr
-      real(wp_) :: rni,rres,zzres,zmx,zmn,dal,drn,drrm,dzzm,rrm,zzm,zrm
+      real(wp_) :: rni,rres,zzres,zmx,zmn,dal,drn,drrm,dzzm,rrm,zzm
 c common/external functions/variables
       real(wp_) :: bres
 c
@@ -1044,7 +1044,7 @@ c
           rrm=rr0m+drrm
           zzm=zr0m+dzzm
           rcon(i,k)=rrm
-          zcon(i,k)=zrm
+          zcon(i,k)=zzm
           write(71,111) i,rni,rrm,zzm
         end do
         write(71,*) ' '