#include "CPP_OPTIONS.h"

      subroutine smooth_print (
     U     iloop,fld_in,mythid)


      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "GRID.h"
#include "PARAMS.h"
c#include "tamc.h"
#include "smooth.h"


      _RL fld_in(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
      integer smoothOpNb
      integer nbt_in,iloop
      character*( 80) fnamegeneric
      integer i,j,k,bi,bj
      integer itlo,ithi
      integer jtlo,jthi
      integer myThid

      jtlo = mybylo(mythid)
      jthi = mybyhi(mythid)
      itlo = mybxlo(mythid)
      ithi = mybxhi(mythid)

      DO bj=jtlo,jthi
       DO bi=itlo,ithi
      WRITE(standardMessageUnit,'(A,I4)')
     & 'smooth_print, test: ',iloop
        DO k=5,6
c        DO k=1,Nr
      WRITE(standardMessageUnit,'(3f5.2)')
     & fld_in(1,1,k,bi,bj), fld_in(2,2,k,bi,bj),fld_in(1,3,k,bi,bj)
        ENDDO
       ENDDO
      ENDDO

      end