west sum for nesting not defined

[jcwarner]

I thought we had taken care of this, but it is not corrected in the main repository. This is only for the error checking, and will not change resutls. But can you update this for nesting.F

1) line 754 has EastSum=WestSum+BRY_CONTACT(ieast,cr)%Mflux(Jbf) but should probably be EastSum=EastSum+BRY_CONTACT(ieast,cr)%Mflux(Jbf)

2) 767 from

MFratio=REFINED(cr)%DU_avg2(1,m,tnew)/WestSum

to

MFratio=REFINED(cr)%DU_avg2(1,m,tnew)/EastSum

3) 871 from

MFratio=REFINED(cr)%DV_avg2(1,m,tnew)/SouthSum

to

MFratio=REFINED(cr)%DV_avg2(1,m,tnew)/NorthSum