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

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

parent 77639592
No related branches found
No related tags found
No related merge requests found
...@@ -217,7 +217,9 @@ subroutine timemanager ...@@ -217,7 +217,9 @@ subroutine timemanager
! If kindz>1, vertical positions computation ! If kindz>1, vertical positions computation
if (ipin.eq.3 .or. ipin.eq.4) call kindz_to_z(i) if (ipin.eq.3 .or. ipin.eq.4) call kindz_to_z(i)
#ifdef ETA #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 #endif
end do end do
!$OMP 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