**************************************************************************** *** *** DS780.0 NCAR CONTINENTAL OUTLINE DATA *** *** SUBJECT TO CHANGE WITHOUT NOTICE *** X X *** Thu Dec 12 17:18:29 MST 1991 *** *** Prepared and maintained by the Data Support Section, Scientific *** Computing Division, National Center for Atmospheric Research. NCAR *** is operated by the University Corporation for Atmospheric Research and *** is sponsored by the National Science Foundation. Please credit when *** publishing research which utilized data from this archive. The original *** source of the data should also be acknowledged. *** *** Direct all inquiries to the person[s] whose last name[s] appears *** on the 'specialist:' line below, or to Roy Jenne, manager of the Data *** Support Section. Our mailing address, telephone numbers, and login *** names are shown in the file ~ftp/catalogs/catds. This file is a *** catalog of all the data sets in our archive. It includes some *** general information, our latest charging schedule, and a policy *** statement. *** *** First time users of our archive, or this data set, should contact *** the specialist[s] before attempting to access the data. We can provide *** users with access routines, format documentation [mentioned on the *** 'format refs:' line in the listing below], and advice. *** *** Experienced users of this data set should from time to time make a *** new listing of this file, as we update our tapes and documentation *** without notice. *** **************************************************************************** *** DATA SET: 780.0 TITLE: CONTINENTAL OUTLINE DATA SUMMARY: SUMMARY: SUMMARY: VOLUME: NNNMB/DAY, NNNMB/VSN, NNNMB (NNNGB) TOTAL AS OF YYYYMONDD DAN SECTIONS: TN REFERENCES: FORMAT REFS: FOLDERS - INV INFO PROG SUBR PROJ SP.PROJ MOVIE MICRO MISC REQ I- TYPES: TOPO GRIDS: \ GLOBAL LEVELS: SFC VARIABLES: PERIODS: TIMES: STATISTICS: SOURCES: KENNISON SOURCES: RIDLEY CHALMERS NCAR \SUPMAP PLOT PACKAGE SPECIALIST: JOSEPH PUBLICATIONS: FILES (ON THE MSS) - FILENAME (SPECIFY IN UPPER CASE) DESCRIPTION /DSS/P/ACC/DS7800 MSS READ AND DOCS FOR KENNISON OUTLINE DATA /DSS/[VSN] DATA VOLUME READ PROGRAM PROGRAM OUTL DIMENSION XLAT(100),XLON(100) C C VARIABLE DEFINITIONS C NPTS = TOTAL NUMBER OF POINTS IN NEXT LINE (NPTS/2 LAT-LON PAIRS). C IF NPTS < 2 THIS RECORD IS A GROUP SEPARATOR AND NO POINT C PAIRS FOLLOW. C IGID = GROUP ID FOR THESE POINTS WHERE C 1 = CONTINENTAL OUTLINES C 2 = US STATE BOUNDARIES (HIGHER RESOLUTION THAN 1) C 3 = INTERNATIONAL POLITICAL BOUNDARIES C C XLATMX,XLATMN,XLONMX,XLONMN = THE LAT-LON LIMITS FOR POINTS IN C THE FOLLOWING LINE. C C XLAT,XLON ARE THE COORDINATES OF A CONTINUOUS LINE IN THE OUTLINE C CONTAINING NPTS/2 POINTS. C C TAPE STRUCTURE C THE TAPE IS DIVIDED INTO FOUR GROUPS, SEPARATED BY LINE HEADERS C WITH POINT COUNTS LESS THAN 2. C GROUP CONTENT C 1 CONTINENTAL OUTLINES ONLY. C 2 US STATE OULINES ONLY (HIGHER RESOLUTION THAN 1). C 3 CONTINENTAL AND US STATE AND INTERNATIONAL POLITICAL C BOUNDARIES (USES 2 WHERE IT OVERLAPS 1). C 4 CONTINENTAL AND INTERNATIONAL POLITICAL BOUNDARIES. NGRP=0 C 5 NLINE=0 NGRP=NGRP+1 C READ LINE HEADER 10 READ (1,1001,END=90)NPTS,IGID,XLATMX,XLATMN,XLONMX,XLONMN 1001 FORMAT(2I8,4F8.3) IF(NPTS.LT.2) GO TO 90 NPR=(NPTS+1)/2 C READ LINE READ(1,1002,END=90)(XLAT(I),XLON(I),I=1,NPR) 1002 FORMAT(10F8.3) NLINE=NLINE+1 IF(NLINE.GT.10) GO TO 10 PRINT 1003,NPTS,IGID,XLATMX,XLATMN,XLONMX,XLONMN,XLAT(1), 2 XLON(1),XLAT(NPR),XLON(NPR) 1003 FORMAT(' LINE ',I5,I3,8F9.3) GO TO 10 90 CONTINUE PRINT 1004,NGRP,NLINE 1004 FORMAT(' END OF GROUP ',I2,' LINES =',I6) IF(NLINE.GT.0) GO TO 5 END VSN -FF T,DD PERIOD AND COMMENTS - - ALL OF THE C-VSNS ARE NOW ON THE MSS (MVN CTPUBLIC) - - SUBJECT TO CHANGE, - AS WE ARE MOVING THE C-VSNS TO Y-VSNS ON DEDICATED CARTRIDGES - K9998K ASCII FILE OF KENNISONS OUTLINE DATA, 13925 LRECS, - UNBLOCKED ASCII CARD IMAGES, LRECL 80. - READ AND DOCS IN PROGRAM FILE ABOVE. -