istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Corrected mistype in surf_anal

Browse Source
This commit is contained in:
Lorenzo Figini 2015-06-15 15:36:18 +00:00
parent 20e68d468f
commit e31949e5ae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gray.f
View File

@ -1019,7 +1019,7 @@ c
implicit none implicit none
c local variables c local variables
integer :: i,k,ierr 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 c common/external functions/variables
real(wp_) :: bres real(wp_) :: bres
c c
@ -1044,7 +1044,7 @@ c
rrm=rr0m+drrm rrm=rr0m+drrm
zzm=zr0m+dzzm zzm=zr0m+dzzm
rcon(i,k)=rrm rcon(i,k)=rrm
zcon(i,k)=zrm zcon(i,k)=zzm
write(71,111) i,rni,rrm,zzm write(71,111) i,rni,rrm,zzm
end do end do
write(71,*) ' ' write(71,*) ' '