Skip to content
Snippets Groups Projects
Commit f9d9eb57 authored by Daley Calvert's avatar Daley Calvert
Browse files

Merge branch '236-EIV-tiling-fix' into 'main'

Resolve "Fix EIV when using tiling"

Closes #236

See merge request nemo/nemo!286
parents 1fe361e6 60f61720
No related branches found
No related tags found
No related merge requests found
......@@ -766,11 +766,11 @@ CONTAINS
& * ( aeiv (ji,jj,jk-1) + aeiv (ji,jj ,jk) ) * wvmask(ji,jj,jk)
END_3D
!
DO_3D_OVR( nn_hls, nn_hls-1, nn_hls, nn_hls-1, 1, jpkm1 )
DO_3D( nn_hls, nn_hls-1, nn_hls, nn_hls-1, 1, jpkm1 )
pu(ji,jj,jk) = pu(ji,jj,jk) - ( zpsi_uw(ji,jj,jk) - zpsi_uw(ji,jj,jk+1) )
pv(ji,jj,jk) = pv(ji,jj,jk) - ( zpsi_vw(ji,jj,jk) - zpsi_vw(ji,jj,jk+1) )
END_3D
DO_3D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 1, jpkm1 )
DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 1, jpkm1 )
pw(ji,jj,jk) = pw(ji,jj,jk) + ( ( zpsi_uw(ji,jj,jk) - zpsi_uw(ji-1,jj ,jk) ) & ! add () for NP repro
& + ( zpsi_vw(ji,jj,jk) - zpsi_vw(ji ,jj-1,jk) ) )
END_3D
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment