Corrected mistype in surf_anal

2015-06-15 15:36:18 +00:00 · 2015-06-15 15:36:18 +00:00 · e31949e5ae
commit e31949e5ae
parent 20e68d468f
1 changed files with 2 additions and 2 deletions
--- 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,*) ' '