167,170c167,179
<         EMV(I,K)=WW1(I,K)*WW2(I,K)*EM3V(IT(I,K)-9)+
<      1           WW2(I,K)*DT(I,K)*EM3V(IT(I,K)-8)+
<      2           WW1(I,K)*DU(I,K)*EM3V(IT(I,K)+19)+
<      3           DT(I,K)*DU(I,K)*EM3V(IT(I,K)+20)
---
> C WNE can
> C        EMV(I,K)=WW1(I,K)*WW2(I,K)*EM3V(IT(I,K)-9)+
> C     1           WW2(I,K)*DT(I,K)*EM3V(IT(I,K)-8)+
> C     2           WW1(I,K)*DU(I,K)*EM3V(IT(I,K)+19)+
> C     3           DT(I,K)*DU(I,K)*EM3V(IT(I,K)+20)
> 
>         ITT = IT(I,K)
>         EMV(I,K)=WW1(I,K)*WW2(I,K)*EM3V(max0(ITT-9,1))+
>      1           WW2(I,K)*DT(I,K)*EM3V(max0(ITT-8,1))+
>      2           WW1(I,K)*DU(I,K)*EM3V(ITT+19)+
>      3           DT(I,K)*DU(I,K)*EM3V(ITT+20)
> 
>