Skip to content
Snippets Groups Projects
Commit ab0fed9b authored by Lucie Bakels's avatar Lucie Bakels
Browse files

bugfix: zeta not correctly updated when read from part_ic using kindz=3

Former-commit-id: 82f82098
parent 3e8898e0
Branches
Tags
No related merge requests found
......@@ -217,7 +217,9 @@ subroutine timemanager
! If kindz>1, vertical positions computation
if (ipin.eq.3 .or. ipin.eq.4) call kindz_to_z(i)
#ifdef ETA
call update_z_to_zeta(itime, i)
call z_to_zeta(itime,part(i)%xlon,part(i)%ylat,part(i)%z,part(i)%zeta)
part(i)%etaupdate = .true.
part(i)%meterupdate = .true.
#endif
end do
!$OMP END DO
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment