From 6a4a6686dede2ce07cfb6f927a21f2b4587bfbd3 Mon Sep 17 00:00:00 2001
From: "Lee T. Murray" <lee.murray@rochester.edu>
Date: Sun, 25 Apr 2021 14:02:02 -0400
Subject: [PATCH] Bug fix in nudging code

---
 model/NUDGE.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/model/NUDGE.f b/model/NUDGE.f
index 53e518d..87081b7 100644
--- a/model/NUDGE.f
+++ b/model/NUDGE.f
@@ -304,8 +304,8 @@ subroutine vinterana2mod(varo,lmo,po,varn)
      &          varo(i,j-1,lo+1)==sngl(undef))    
      &          call stop_model('undefined wind in vinterana2mod',13)
 #endif
-                varn(i,j,ln)=((varo(i,j-1,lo) * dp1)
-     &               + (varo(i,j-1,lo+1) *dp2)) / (dp1 + dp2)
+                varn(i,j,ln)=((varo(i,j-1,lo) * dp2)
+     &               + (varo(i,j-1,lo+1) *dp1)) / (dp1 + dp2)
               else
                 lo=lo+1
                 if(lo==lmo)call stop_model(