Bug fix in nudging code

ltmurray · Apr 25, 2021 · 6a4a668 · 6a4a668
1 parent 14b3fd6
commit 6a4a668
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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(