subroutine plumes_init_fixed (myThid) c----------------------------------------------------------------------- c Routine to initialise the plumes package. c c Input: myThid - Process number calling this routine c c----------------------------------------------------------------------- implicit none #include "CPP_OPTIONS.h" #include "SIZE.h" #include "plumes_SIZE.h" #include "EEPARAMS.h" integer myThid integer bi, bj integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 im1 = 1-OLx im2 = sNx+OLx jm1 = 1-OLy jm2 = sNy+OLy idim1 = 1 idim2 = sNx jdim1 = 1 jdim2 = sNy do bj = myByLo(myThid), myByHi(myThid) do bi = myBxLo(myThid), myBxHi(myThid) C Dummy routine - nothing to do for now enddo enddo return end