CALL SEQUENCE... dely XIN DATAIN XOUT INPUT OUTPUT [-a VAL1 -d60 VAL2 -ly VAL3] AUTHORS - S.TURNER, B.DENIS, S.BINER, JUL 08/93. LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/dely.ptn,v 4.7 2014/09/25 20:20:47 dugas Exp $ DESCRIPTION... dely FAIT LA DERIVEE SELON Y PURPOSE - FAIT LA DERIVEE SELON Y D'UN CHAMP LU SUR XIN EN DIVISANT LA DIFFERENCE ENTRE DEUX POINTS CONSECUTIFS SUR L'AXE DES Y PAR LE PARAMETRE D60 INPUT FILES... XIN = INPUT FILE CONTAINING REGIONAL DATA DATAIN = (OPTIONAL) MODEL INFORMATION FILE OUTPUT FILE... XOUT = OUTPUT FILE PARAMETER... OPT (a) = 0, POUR NE PAS COMBLER LES FRONTIERES 1, POUR COMBLER LES FRONTIERES AVEC LA VALEUR LA PLUS PROCHE NJ (ly) = NOMBRE DE POINTS DE GRILLE SELON Y. LA VALEUR PAR DEFAUT EST LA TAILLE DE LA GRILLE SELON Y+1. D60 = LONGUEUR DE LA MAILLE VRAI A 60 DEGRE DE LATITUDE. VALEUR PAR DEFAUT = 1.0 NOTE: CES DEUX DERNIERS PARAMETRES SONT FACULTATIFS SI 1) LE FICHIER DATAIN EXISTE. ILS SONT ALORS LUS DANS DATAIN(2) ET DATAIN(6), RESPECTIVEMENT. *OU SI* 2) XIN EST UN FICHIER CMC/RPN CONTENANT DES GRILLES POLAIRE-STEREOGRAPHIQUES READ(5,5010) OPT READ(5,5011) NJ,D60 5010 FORMAT(10X,I2) 5011 FORMAT(10X,I5,F10.1) EXAMPLE OF INPUT CARD... DELY 1 DELY 121 45000. 0123456789012345678901234567890123456789012345678901234567890 1 2 3 4 5 6 7 EXIT CONDITIONS... 0 NO PROBLEMS 1 READ ILLEGAL OPT VALUE 2 PROBLEMS READING THE FIRST DIRECTIVE CARD 3 PROBLEMS READING FILE XIN 4 FOUND SPECTRAL OR FOURIER DATA 5 OPT=1 AND IBUF(6).EQ.NJ 6 PROBLEMS READING THE SECOND DIRECTIVE CARD 7 UNSUPPORTED GRID TYPE 8 MORE THAN ONE GRID CONFIGURATION