Commit 78c4a7ab authored by ph290's avatar ph290
Browse files

big fix

parent dc9c1e9f
......@@ -881,7 +881,7 @@ real :: woa_nutrient_tmp, woa_nutrient
read(1,'(i1)') imode
do i = 2,iline+1
read(1,'(f8.3,f8.3,68x,f6.1)') lon,lat,alldepth
read(1,'(f8.3,f8.3,62x,f6.1)') lon,lat,alldepth
! read(1,'(f8.3,f8.3,38x,f6.1)') lon,lat,alldepth
!write(6,'(f8.3,f8.3,38x,f6.1)') lon,lat,alldepth
if(i.eq.iline+1) newdepth = alldepth
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment