modbudget added

sderoode · May 21, 2024 · f4fae48 · f4fae48
1 parent 4c2e67c
commit f4fae48
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/modbudget.f90 b/src/modbudget.f90
@@ -669,7 +669,7 @@ subroutine do_genbudget
           mombudg_term_avl (k,iwwvf) = mombudg_term_avl (k,iwwvf)  + wf*wf*vf
 
           mombudg_term_avl (k,iuwrh) = mombudg_term_avl (k,iuwrh)+(w0(i,j,k)+w0(i-1,j,k))*(u0(i,j,k-1)+u0(i,j,k))/4.   
-          mombudg_term_avl (k,ivwrh) = mombudg_term_avl (k,ivwrh)+(w0(i,j,k)+w0(i-1,j,k))*(v0(i,j,k-1)+v0(i,j,k))/4.
+          mombudg_term_avl (k,ivwrh) = mombudg_term_avl (k,ivwrh)+(w0(i,j,k)+w0(i,j-1,k))*(v0(i,j,k-1)+v0(i,j,k))/4.
 
 !hier volgende twee
           mombudg_term_avl (k,iwuuh) = mombudg_term_avl (k,iwuuh)+(w0(i,j,k)+w0(i,j,k))*uh**2