--- MITgcm_contrib/plumes/plume2dyn.F 2004/05/26 03:10:27 1.4 +++ MITgcm_contrib/plumes/plume2dyn.F 2004/05/26 14:17:41 1.5 @@ -88,6 +88,7 @@ else qdyn1(i,j,L,bi,bj) = qplumeav(i,j,L) qdyn2(i,j,L,bi,bj) = 0. + endif enddo enddo enddo