var/convertor/wave2grid_kma/MONTWO.inc

   1       SUBROUTINE MONTWO(DATA1,DATA2,CLV1,CLV2,IJMAX,KMAX)
   2 C----------------------------------------------------------------------
   3       DIMENSION DATA1(IJMAX,KMAX),DATA2(IJMAX,KMAX),
   4      1          DIFF (IJMAX,KMAX)
   5           CHARACTER*11 CLV2,CLV1
   6           DIMENSION VMX1(KMAX),VMN1(KMAX),VMX2(KMAX),VMN2(KMAX),
   7      1          DMX (KMAX),DMN (KMAX)
   8 C
   9           DIFF=DATA1-DATA2
  10           VMX1=MAXVAL(DATA1,DIM=1)
  11           VMN1=MINVAL(DATA1,DIM=1)
  12           VMX2=MAXVAL(DATA2,DIM=1)
  13           VMN2=MINVAL(DATA2,DIM=1)
  14           DMX =MAXVAL(DIFF ,DIM=1)
  15           DMN =MINVAL(DIFF ,DIM=1)
  16 C
  17           WRITE(6,*)'           ',CLV1,'        ',CLV2,
  18      1                            '        DIFF. OF 1 - 2'
  19           WRITE(6,*)'LEVEL    MIN       MAX       MIN       MAX       MIN
  20      1       MAX'
  21           DO K=1,KMAX
  22                 WRITE(6,'(I5,6F10.3)')K,VMN1(K),VMX1(K),VMN2(K),VMX2(K),
  23      1                          DMN (k),DMX (K)
  24           END DO
  25 C
  26           RETURN
  27           END SUBROUTINE MONTWO