source: trunk/grids/Original_masks/rid.f

Last change on this file was 2, checked in by post_it, 17 years ago

Initial import from ~/POST_IT/
File size: 172 bytes
Line 
1      PROGRAM gram
2
3      PARAMETER(jpi=96,jpj=48)
4
5      INTEGER mask(jpi,jpj)
6
7      read(20) mask
8
9      write(15,1000) mask
10
11
12 1000 FORMAT(96I1)
13
14      STOP
15      END 
Note: See TracBrowser for help on using the repository browser.