PROGRAM mask_text
C     land portion at 0.5 deg resolution
      parameter (im=720,jm=360)
      real w(im,jm)
      open(20,file='mask_text',status='old')
      read(20,10) w
      write(*,*) w
 10   format(1x,10f6.1) w
      STOP
      END