var/convertor/kma_wave2grid/CUT.inc

   1       SUBROUTINE CUT(DATO,IOUT,JOUT,KMAX,DATI,IMAX,INTVL)
   2       DIMENSION DATO(IOUT,JOUT,KMAX),DATI(IMAX,JOUT,KMAX)
   3 C
   4       DO 100 K=1,KMAX
   5       DO 100 J=1,JOUT
   6       DO 100 I=1,IOUT
   7       DATO(I,J,K)=DATI(INTVL*(I-1)+1,J,K)
   8   100 CONTINUE
   9 C
  10       RETURN
  11       END SUBROUTINE CUT
  12