CALL SEQUENCE... enleve IN OUT INPUT OUTPUT \ [ -t1 VAL01 -t2 VAL02 -t3 VAL03 \ -lv1 VAL04 -lv2 VAL05 -kind VAL06 \ -name "VAL07" ["VAL08" ["VAL09" ["VAL10" ["VAL11" ... \ "VAL12" ["VAL13" ["VAL14" ["VAL15" ["VAL16" ]]]]]]]]] ] DESCRIPTION... ENLEVE - DELETES UP TO FOUR VARIABLES FROM A FILE AUTHOR - R.Laprise, NOV 07/83. LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/enleve.ptn,v 4.15 2014/09/25 20:20:47 dugas Exp $ PURPOSE - DELETES RECORDS FROM FILE IN FOR ALL TIMESTEPS AND LEVELS BETWEEN REQUESTED INTERVALS THEN PUTS THE RESULT ON FILE OUT. NOTES - 1) LABEL RECORDS ARE IGNORED (PASSED DIRECTLY TO FILE OUT). 2) STEP NUMBERS ARE ASSUMED TO BE INCREASING. INPUT FILE... IN = FILE TO BE COPIED. (THIS FILE MUST BE ORDERED BY TIMESTEP NUMBER) OUTPUT FILE... OUT = FILE COPIED FROM IN WITH DELETIONS. INPUT PARAMETERS... NT1,NT2 (t1,t2) = TIMESTEP INTERVAL TO BE DELETED, (INCLUSIVE). INT (t3) = DATA IS DELETED EVERY INT STEPS FROM STEP NT1. LV1,LV2 = LEVEL INTERVAL TO BE DELETED (LV2 >= LV1). IN COMMAND-LINE MODE, LV1 AND LV2 MAY ALSO BE THE REAL DECODED LEVEL VALUES. IN THAT CASE, THE KIND PARAMETER *** ABSOLUTELY HAS TO BE SPECIFIED ***. KIND = VERTICAL LEVEL TYPE. ONLY USE THIS WITH IN RPN STD FILES AND WHEN LV1 AND LV2 CONTAIN DECODED VALUES. FURTHERMORE, THIS PARAMETRE CAN ONLY BE SPECIFIED IN COMMAND-LINE MODE. THE CURRENTLY SUPPORTED VALUES ARE: 'HAUTEUR' , heights (m) with respect to sea level 'SIGMA' , classical terrain following (0.0 -> 1.0) 'ETA' , first version of the GEM ETA coordinate 'PRESSION' , pressure (mb) 'ARBITRAIRE', arbitrary level (no units apply) 'HAUTEURS' , heights (M) with respect to the surface 'HYBRIDE' , hybrid GEM coordinate 'THETA' , potential temperature coordinate 'GALCHEN' , GalChen generalized coordinate NAME1,...,NAME10= NAMES TO BE DELETED, OF WHICH ONLY THE FIRST FOUR CAN BE DEFINED USING INPUT CARD INPUT. READ( 5,5010 ) NT1,NT2,ANT1,ANT2, LV1,LV2, + NAME1,NAME2,NAME3,NAME4 5010 FORMAT(10X,5X,2I10,2A5,2I5,5X,4(1X,A4)) EXAMPLE OF INPUT CARD... ENLEVE STEP 0 24 6 LEVS 100 950 NAME VORT DIV 0123456789012345678901234567890123456789012345678901234567890 1 2 3 4 5 6 7 EXIT CONDITIONS... 0 NO PROBLEMS FATAL CONDITIONS... 1 INCONSISTENT VALUES IN INPUT PARAMETERS 2 NOT OK IN FILEV/GETSET2 AT THE FIRST SET 4 MORE THAN ONE KIND OF INPUT LEVEL REQUESTED NON-FATAL CONDITIONS... 101 NO NAME,LEVEL OR TIMESTEP SPECIFIED