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(