var/convertor/wave2grid_kma/ZMNLAT.inc

   1       SUBROUTINE ZMNLAT
   2      O( RLAT,
   3      I  MAXJZ, COL, JMX )
   4       DIMENSION RLAT( MAXJZ ), COL( JMX )
   5 C
   6       RADEG  =180.0D0/pi
   7       CALL RESET( RLAT, MAXJZ )
   8       DO 10 J = 1, MAXJZ
   9         DO 20 I = 1, JMX/MAXJZ
  10           RLAT( J ) = RLAT( J )
  11      1              + 90.0 - RADEG*COL( (J-1)*JMX/MAXJZ + I )
  12    20   CONTINUE
  13    10 CONTINUE
  14       DO 30 J = 1, MAXJZ
  15         RLAT( J ) = RLAT( J ) / (JMX/MAXJZ)
  16    30 CONTINUE
  17 C
  18       RETURN
  19       END SUBROUTINE ZMNLAT