Date: Tue, 11 Apr 2000 14:12:33 -0600 (MDT)

Jim,

I've found the problem to the strange boundary effect in the lowest to
the ground layer of the vertical winds on the nests.  It's a one line
fix.  Modify line 12 of the file MPP/RSL/parallel_src/vpp_stotndt.F so
that it reads:

define(PACK2D,
      `do ii = -IOR,IOR
        do jj = -IOR,IOR
          VECX_var (kk_x+1,ii,jj) = $1 (i+ii,j+jj)    <<<<<<
        enddo
      enddo
      kk_x = kk_x + 1'
      )

The change is to add "+1" to kk_x  in the first index of VECX_var.

Once you make the change, it is only necessary to 'make mpp'. You do
not have to recompile the entire code.  (Unless you're superstitious).

Note, this bug was probably affecting the rainc and rainnc fields near
nest boundaries too, but since the influence of the boundaries is
slight on these fields, it might not have shown up for a while if
ever.

This bug only affects the Fujitsu VPP.

John