source: lmdz_wrf/WRFV3/tools/all_reg.csh @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

  • Property svn:executable set to *
File size: 20.7 KB
Line 
1#!/bin/csh
2unalias rm
3unalias cp
4unalias mv
5
6#       This script runs a large number of WRF regression tests.  On the
7#       IBM machines (which at NCAR allow queueing), the jobs are sent to
8#       the queue system via load leveler commands.  On all other machines,
9#       the jobs are sent in sequentially as soon as the process returns
10#       from completing the previous task.
11
12#       HOW TO RUN
13#       ----------
14
15#       Linux
16#       joshua1 or joshua3
17#       mkdir /data3/mp/$USER/`hostname`
18#       put all_reg.csh, regtest.csh, and wrf.tar in dir
19#       execute all_reg.csh
20#       takes about 36-48 h
21#       flex lm errors show up as fails to compile
22
23#       AIX
24#       bluevista or blueice
25#       put all_reg.csh, regtest.csh, and wrf.tar in ~
26#       execute all_reg.csh
27#       takes about 8-10 h
28
29#       Unless you are editing the script, no changes are required below
30
31
32#=======================================================================
33#=======================================================================
34
35#       The only really important thing.
36
37if ( ! -e wrf.tar ) then
38        echo " "
39        echo "Whoa there pardner, where is that wrf.tar file"
40        echo " "
41        exit ( 1 )
42endif
43
44#       What these tests do, must be a single string.
45
46set NAME     = ( "Standard"             "NESTED=FALSE"        "NESTED=FALSE"        "NONE"      1       \
47                 "Moving_Nest1"         "NESTED1=FALSE"       "NESTED1=TRUE"        "NONE"      2       \
48                 "Moving_Nest2"         "NESTED2=FALSE"       "NESTED2=TRUE"        "NONE"      3       \
49                 "NMM_Nest"             "NESTED2=FALSE"       "NESTED2=FALSE"       "NONE"      4       \
50                 "Full_Optimization"    "REG_TYPE=BIT4BIT"    "REG_TYPE=OPTIMIZED"  "NONE"      5       \
51                 "Chemistry"            "CHEM=FALSE"          "CHEM=TRUE"           "NONE"      6       \
52                 "Chemistry2"           "KPP=FALSE"           "KPP=TRUE"            "NONE"      7       \
53                 "Quilting"             "QUILT=FALSE"         "QUILT=TRUE"          "NONE"      8       \
54                 "Binary_IO"            "IO_FORM=2"           "IO_FORM=1"           "NONE"      9       \
55                 "GriB1_Output"         "IO_FORM=2"           "IO_FORM=5"           "NONE"      10      \
56                 "REAL8_Floats"         "REAL8=FALSE"         "REAL8=TRUE"          "NONE"      11      \
57                 "FDDA"                 "FDDA=FALSE"          "FDDA=TRUE"           "NONE"      12      \
58                 "FDDA2"                "FDDA2=FALSE"         "FDDA2=TRUE"          "NONE"      13      \
59                 "ESMF_Library"         "ESMF_LIB=FALSE"      "ESMF_LIB=TRUE"       "ONLY_AIX"  14      \
60                 "Global"               "GLOBAL=FALSE"        "GLOBAL=TRUE"         "NONE"      15      \
61                 "Adaptive"             "ADAPTIVE=FALSE"      "ADAPTIVE=TRUE"       "NONE"      16      \
62               )
63
64#       Where are we located.
65
66set starting_dir = `pwd`
67
68#       Get the tag manually.  This is for the auto-report that gets
69#       sent to the WRF web page on the history of the regression tests.
70
71set current_year4  = `date -u +"%Y"`
72set current_month  = `date -u +"%m"`
73set current_day    = `date -u +"%d"`
74set current_hour   = `date -u +"%H"`
75set current_minute = `date -u +"%M"`
76set current_second = `date -u +"%S"`
77set datehms        = ${current_year4}-${current_month}-${current_day}_${current_hour}:${current_minute}:${current_second}_UTC
78set dateh          = ${current_year4}${current_month}${current_day}${current_hour}
79set date           = ${current_year4}${current_month}${current_day}
80if ( ! $?TAG ) then
81        if      ( $user == michalak ) then
82                set initials = jm
83        else if ( $user == hender   ) then
84                set initials = th
85        else if ( $user == gill     ) then
86                set initials = dg
87        else if ( $user == dudhia   ) then
88                set initials = jd
89        else if ( $user == weiwang  ) then
90                set initials = ww
91        else
92                set initials = XX
93        endif
94        echo the TAG is NOT defined
95        echo Please define an environment variable that is the WRFV3 tag
96        echo Something such as: setenv TAG trunk_${date}_${initials}
97        echo " " 
98        exit ( 1 )
99endif
100
101#       Are we only interested in the PASS/FAIL report?
102
103if ( $#argv == 1 ) then
104        if ( $argv[1] == PASSFAIL ) then
105                goto PASSFAIL
106        endif
107endif
108
109#       If there are any command line args, they are processed, else
110#       we run all of the regression tests without a generate or
111#       compare flag being set.
112
113if ( $#argv == 0 ) then
114
115        set BASELINE = RUN_ONLY
116
117        set OLD_TEXT
118        set NEW_TEXT
119        set TOAST
120        set tests
121        set TEST_NUM
122        set count_test = 1
123        while ( $count_test < $#NAME )
124                set tests =  ( $tests "$NAME[$count_test]" )
125                @ count_test ++
126                set OLD_TEXT = ( $OLD_TEXT "$NAME[$count_test]" ) 
127                @ count_test ++
128                set NEW_TEXT = ( $NEW_TEXT "$NAME[$count_test]" ) 
129                @ count_test ++
130                set TOAST    = ( $TOAST "$NAME[$count_test]" ) 
131                @ count_test ++
132                set TEST_NUM = ( $TEST_NUM "$NAME[$count_test]" ) 
133                @ count_test ++
134        end
135
136#       We have some command line args.  They are either a request to run
137#       the test with a generate/compare flag, or a list of tests to perform.
138
139else
140
141        set INIT_OPTS = ( $* )
142
143        #       First, find the baseline type.  This is going to be one of three
144        #       possibilities: GENERATE, COMPARE, or a RUN_ONLY option.  The
145        #       default is RUN_ONLY.  Only the first baseline option found is
146        #       used.
147
148        set count = 0
149        while ( $count < $#INIT_OPTS )
150                @ count ++
151                set arg = $INIT_OPTS[$count]
152                if ( ( $arg == GENERATE ) || \
153                     ( $arg == COMPARE  ) || \
154                     ( $arg == RUN_ONLY ) ) then
155                        set BASELINE = $arg
156                        goto FINISHED_BASELINE_TYPE
157                endif
158        end
159        set BASELINE = RUN_ONLY
160FINISHED_BASELINE_TYPE:
161
162        #       If there was only one input, and it was telling us to do which type of baseline
163        #       option (GENERATE, COMPARE, RUN_ONLY), we assume they want all of the tests
164        #       conducted.
165
166        if ( $#INIT_OPTS == 1 ) then
167                if ( ( $INIT_OPTS == GENERATE ) || ( $INIT_OPTS == COMPARE  ) || ( $INIT_OPTS == RUN_ONLY ) ) then
168                        set OLD_TEXT
169                        set NEW_TEXT
170                        set TOAST
171                        set tests
172                        set TEST_NUM
173                        set count_test = 1
174                        while ( $count_test < $#NAME )
175                                set tests =  ( $tests "$NAME[$count_test]" )
176                                @ count_test ++
177                                set OLD_TEXT = ( $OLD_TEXT "$NAME[$count_test]" ) 
178                                @ count_test ++
179                                set NEW_TEXT = ( $NEW_TEXT "$NAME[$count_test]" ) 
180                                @ count_test ++
181                                set TOAST    = ( $TOAST "$NAME[$count_test]" ) 
182                                @ count_test ++
183                                set TEST_NUM = ( $TEST_NUM "$NAME[$count_test]" ) 
184                                @ count_test ++
185                        end
186                        goto FINISHED_TEST_LIST
187                endif
188        endif
189
190        #       Find which tests are to be conducted.  Loop over all of the
191        #       input, and compare each of the input fields with the list
192        #       of available test names.  When a match occurs, increment the
193        #       test found counter, and save the test name.
194
195        set count = 0
196        set OLD_TEXT
197        set NEW_TEXT
198        set TOAST
199        set tests
200        set TEST_NUM
201        while ( $count < $#INIT_OPTS ) 
202                @ count ++
203                set count_test = 1
204                while ( $count_test < $#NAME )
205                        if ( $INIT_OPTS[$count] == $NAME[$count_test] ) then
206                                set tests =  ( $tests "$NAME[$count_test]" )
207                                @ count_test ++
208                                set OLD_TEXT = ( $OLD_TEXT "$NAME[$count_test]" )
209                                @ count_test ++
210                                set NEW_TEXT = ( $NEW_TEXT "$NAME[$count_test]" )
211                                @ count_test ++
212                                set TOAST    = ( $TOAST "$NAME[$count_test]" )
213                                @ count_test ++
214                                set TEST_NUM = ( $TEST_NUM "$NAME[$count_test]" ) 
215                                @ count_test ++
216                        else
217                                @ count_test += 5
218                        endif
219                end
220        end
221
222        #       If there are no recognizable tests requested, let them know our concern.
223       
224        if ( $#tests == 0 ) then
225                echo No valid test requested in argument list
226                exit ( 4 ) 
227        endif
228endif
229FINISHED_TEST_LIST:
230
231#       A friendly check for the baseline directory existence, and locations for known
232#       NCAR machines.
233
234if ( ( $BASELINE == GENERATE ) || ( $BASELINE == COMPARE ) ) then
235        if ( ( `uname` == AIX ) && ( ( `hostname | cut -c 1-2` != bs ) && \
236                                     ( `hostname | cut -c 1-2` != bv ) && ( `hostname | cut -c 1-2` != be ) ) ) then
237                set SAVE_DIR = /ptmp/${USER}/BASELINE/`uname`
238        else if   ( `uname` == AIX ) then
239                set SAVE_DIR = /ptmp/${USER}/BASELINE/`uname`
240        else if ( ( `uname` == Linux  ) && ( `hostname` == basswood ) ) then
241                set SAVE_DIR = /basswood/${user}/Regression_Tests/BASELINE/`uname`
242        else if ( ( `uname` == Darwin  ) && ( `hostname` == stink ) ) then
243                set SAVE_DIR = /stink/${user}/Regression_Tests/BASELINE/`uname`
244        else if ( ( `uname` == Linux ) && ( `hostname` == bay-mmm ) ) then
245                set SAVE_DIR = /data3/mp/${USER}/BASELINE/`uname`
246        else
247                echo Hmm, no idea where to put/get this baseline data, stopping
248                exit ( 10 )
249        endif
250
251        if      ( (   -d $SAVE_DIR ) && ( $BASELINE == GENERATE ) ) then
252                echo "Troubles with SAVE_DIR logic."
253                echo "$SAVE_DIR should not exist for a $BASELINE run."
254#       exit ( 2 )
255        else if ( ( ! -d $SAVE_DIR ) && ( $BASELINE == COMPARE  ) ) then
256                echo "Troubles with SAVE_DIR logic."
257                echo "$SAVE_DIR should exist for a $BASELINE run."
258                exit ( 3 )
259        endif
260endif
261
262#       We need the regtest.csh file, badly.
263
264if ( ! -e regtest.csh ) then
265        echo we need regtest.csh in this dir
266        echo "supply-ez vous, s'il vous plait"
267        exit ( 1 )
268endif
269
270#       The regtest.csh file is treated as a template.  The following
271#       strings (first occurrence) is sought (OLD_TEXT) and replaced
272#       with the modified string (NEW_TEXT).  This edited regression
273#       script is then processed.
274
275#       Any exceptions to where they can run?  NONE means no
276#       exceptions, should run on all machines.  AIX/Linux
277#       means it will NOT run on that single machine.  The
278#       option ONLY_AIX/ONLY_Linux means that the option
279#       ONLY works on that specific architecture.
280
281
282#       Loop over all selected tests.
283
284set count_test = 0
285while ( $count_test < $#tests )
286
287        @ count_test ++
288
289        set count = 1
290        while ( $count < $#NAME )
291
292            if ( "$tests[$count_test]" == "$NAME[$count]" ) then
293                    goto FOUND_SELECTED_TEST
294            endif
295            @ count += 5
296        end
297        echo "Hmmm, no valid test found"
298        exit ( 11 )
299
300FOUND_SELECTED_TEST:
301
302        #       Specifically skip this test on this architecture.
303
304        if      ( `uname` == $TOAST[$count_test] ) then
305                echo skipping test $tests[$count_test] for `uname` specifically
306
307        #       Skip this test on this architecture because it ONLY runs
308        #       on a different architecture.
309
310        else if ( ( `echo $TOAST[$count_test] | cut -c 1-5` == ONLY_ ) && ( ONLY_`uname` != $TOAST[$count_test] ) ) then
311                echo skipping test $tests[$count_test] for `uname`, works on $TOAST[$count_test]
312
313        #       OK, we are allowed to run this test on this architecture.
314
315        else if ( ( $TOAST[$count_test] == NONE ) || \
316                  ( $TOAST[$count_test] != `uname` ) || \
317                  ( ONLY_`uname` ==  $TOAST[$count_test] ) ) then
318                echo doing test $tests[$count_test] for `uname`
319
320                #       If this is the generate or compare baseline test, where do we
321                #       save the data to/read the data from.
322
323                if ( ( $BASELINE == GENERATE ) || ( $BASELINE == COMPARE ) ) then
324                        if ( ( `uname` == AIX ) && ( ( `hostname | cut -c 1-2` != bs ) && \
325                                                     ( `hostname | cut -c 1-2` != bv ) && ( `hostname | cut -c 1-2` != be ) ) ) then
326                                set SAVE_DIR = /ptmp/${USER}/BASELINE/`uname`/$tests[$count_test]
327                        else if   ( `uname` == AIX ) then
328                                set SAVE_DIR = /ptmp/${USER}/BASELINE/`uname`/$tests[$count_test]
329                        else if ( ( `uname` == Linux ) && ( `hostname` == basswood ) ) then
330                                set SAVE_DIR = /basswood/${USER}/Regression_Tests/BASELINE/`uname`/$tests[$count_test]
331                        else if ( ( `uname` == Darwin ) && ( `hostname` == stink ) ) then
332                                set SAVE_DIR = /stink/${USER}/Regression_Tests/BASELINE/`uname`/$tests[$count_test]
333                        else if ( ( `uname` == Linux ) && ( `hostname` == bay-mmm ) ) then
334                                set SAVE_DIR = /data3/mp/${USER}/BASELINE/`uname`/$tests[$count_test]
335                        else
336                                echo No idea where to put the data, stopping
337                                exit ( 2 )
338                        endif
339
340                        #       Either zap existing stuff (GENERATE), or make sure it is there (COMPARE)
341
342                        if        ( $BASELINE == GENERATE ) then
343                                /bin/rm -rf $SAVE_DIR
344                        else if ( ( $BASELINE == COMPARE  )  && ( $tests[$count_test] != Full_Optimization ) ) then
345                                if ( ! -d $SAVE_DIR ) then
346                                        echo $SAVE_DIR does not exist for BASELINE comparison, stopping
347                                        exit ( 3 )
348                                endif
349                        else if ( ( $BASELINE == COMPARE  )  && ( $tests[$count_test] == Full_Optimization ) ) then
350                                echo No comparison done with baseline since this is an optimized run
351                        endif
352                endif
353
354                #       Build the short edit input script for ed and edit the regtest.csh file.
355
356                set OLDT = `echo $OLD_TEXT[$count_test] | sed 's/=/ = /'`
357                set NEWT = `echo $NEW_TEXT[$count_test] | sed 's/=/ = /'`
358
359                if ( $tests[$count_test] == "NMM_Nest" ) then
360                        cp regtest_nmmnest.csh reg.foo.$TEST_NUM[$count_test].$tests[$count_test]
361                else
362                        if      ( ( $BASELINE == RUN_ONLY ) || ( $tests[$count_test] == Full_Optimization ) ) then
363                                if ( -e ed.in ) rm ed.in
364                                cat >! ed_in << EOF
365,s/$OLDT/$NEWT/
366,s/1 2 3 4 5 6 7 8 9 10 11 12 13 14/1 2 3 4 5 6 7 8 9 10 11 12/
367w reg.foo.$TEST_NUM[$count_test].$tests[$count_test]
368q
369EOF
370                        else if ( $BASELINE == GENERATE ) then
371                                if ( -e ed.in ) rm ed.in
372                                cat >! ed_in << EOF
373,s/$OLDT/$NEWT/
374,s/1 2 3 4 5 6 7 8 9 10 11 12 13 14/1 2 3 4 5 6 7 8 9 10 11 12/
375,s?GENERATE_BASELINE = FALSE?GENERATE_BASELINE = $SAVE_DIR?
376w reg.foo.$TEST_NUM[$count_test].$tests[$count_test]
377q
378EOF
379                        else if ( $BASELINE == COMPARE  ) then
380                                if ( -e ed.in ) rm ed.in
381                                cat >! ed_in << EOF
382,s/$OLDT/$NEWT/
383,s/1 2 3 4 5 6 7 8 9 10 11 12 13 14/1 2 3 4 5 6 7 8 9 10 11 12/
384,s?COMPARE_BASELINE = FALSE?COMPARE_BASELINE = $SAVE_DIR?
385w reg.foo.$TEST_NUM[$count_test].$tests[$count_test]
386q
387EOF
388                        endif
389                        ed regtest.csh < ed_in >& /dev/null
390                endif
391                chmod +x reg.foo.$TEST_NUM[$count_test].$tests[$count_test]
392
393                #       On AIX, we submit jobs to the load leveler queue for bluesky and to the LSF queue for
394                #       bluevista.  After submission, we wait around until it completes, and then we send in
395                #       the next one.
396
397                if      ( ( `uname` == AIX ) && ( `hostname | cut -c 1-2` == bs   ) ) then
398                        llsubmit reg.foo.$TEST_NUM[$count_test].$tests[$count_test] >&! llsub.out
399                        set ok = 0
400                        set in_already = 0
401                        while ( $ok == 0 )
402                                sleep 10 ; llq -u $USER >&! llq.report
403                                grep `cat llsub.out | grep '"bs1' | cut -d\" -f2` llq.report >& /dev/null
404                                set ok = $status
405                                if ( ( $ok == 0 ) && ( $in_already == 0 ) ) then
406                                        set in_already = 1
407                                        set joe_id = `cat llsub.out | grep '"bs1' | cut -d\" -f2 | cut -d. -f2`
408                                endif
409                        end
410                        cp /ptmp/$USER/wrf_regression.$joe_id/wrftest.output wrftest.output.$TEST_NUM[$count_test].$tests[$count_test]
411                        rm llsub.out llq.report
412                else if ( ( `uname` == AIX ) && ( ( `hostname | cut -c 1-2` == bv ) || ( `hostname | cut -c 1-2` == be ) ) ) then
413                        bsub < reg.foo.$TEST_NUM[$count_test].$tests[$count_test] >&! bsub.out
414                        set ok = 0
415                        set in_already = 0
416                        while ( $ok == 0 )
417                                sleep 10 ; bjobs >&! bjobs.report
418                                grep `cat bsub.out | grep Job | cut -d"<" -f2 | cut -d">" -f1` bjobs.report >& /dev/null
419                                set ok = $status
420                                if ( ( $ok == 0 ) && ( $in_already == 0 ) ) then
421                                        set in_already = 1
422                                        set joe_id = `cat bsub.out | grep Job | cut -d"<" -f2 | cut -d">" -f1`
423                                endif
424                        end
425                        cp /ptmp/$USER/wrf_regression.$joe_id/wrftest.output wrftest.output.$TEST_NUM[$count_test].$tests[$count_test]
426                        rm bsub.out bjobs.report
427                else if ( ( `uname` == AIX ) && ( ( `hostname | cut -c 1-2` != bs ) && \
428                                                  ( `hostname | cut -c 1-2` != bv ) && ( `hostname | cut -c 1-2` != be ) ) ) then
429                        llsubmit reg.foo.$TEST_NUM[$count_test].$tests[$count_test] >&! llsub.out
430                        set ok = 0
431                        set in_already = 0
432                        while ( $ok == 0 )
433                                sleep 10 ; llq -u $USER >&! llq.report
434                                set llsubmit_name_all   = `cat llsub.out  | grep '"b'  | cut -d\" -f2`
435                                set llsubmit_name_front = `echo $llsubmit_name_all | cut -d\. -f1`
436                                set llsubmit_name_end   = `echo $llsubmit_name_all | cut -d\. -f5`
437                                grep $llsubmit_name_front llq.report | grep $llsubmit_name_end >& /dev/null
438                                set ok = $status
439                                if ( ( $ok == 0 ) && ( $in_already == 0 ) ) then
440                                        set in_already = 1
441                                        set joe_id = `cat llsub.out | grep '"b'  | cut -d\" -f2 | cut -d. -f5`
442                                endif
443                        end
444                        cp /ptmp/$USER/wrf_regression.$joe_id/wrftest.output wrftest.output.$TEST_NUM[$count_test].$tests[$count_test]
445                        rm llsub.out llq.report
446
447                #       On the "other" non-queued machines, we just execute the script and wait until
448                #       we get the process returning control, then we move on.
449
450                else
451                        reg.foo.$TEST_NUM[$count_test].$tests[$count_test] -f wrf.tar >&! output.$TEST_NUM[$count_test].$tests[$count_test]
452                        mv wrf_regression/wrftest.output wrftest.output.$TEST_NUM[$count_test].$tests[$count_test]
453                        if ( -d wrf_regression ) then
454                                mv wrf_regression wrf_regression.$TEST_NUM[$count_test].$tests[$count_test]
455                        endif
456                endif
457        endif
458end
459
460if ( ( `uname` == AIX ) && ( ( `hostname | cut -c 1-2` != bs ) && \
461                             ( `hostname | cut -c 1-2` != bv ) && ( `hostname | cut -c 1-2` != be ) ) ) then
462        echo no web page building, stopping
463        exit
464endif
465
466PASSFAIL:
467
468#       Build the html page.  We only need the middle portion.  It's
469#       a table with 5 columns: Date of test, WRFV3 tag, Developer
470#       who conducted the test, machine the test was run on, and the
471#       pass/fail status of the all_reg.csh script when compared
472#       to the benchmark results (usually a released code).
473
474cat >! history_middle_OK.html << EOF
475<tr>
476<td> XDATEX </td>
477<td> XTAGX </td>
478<td> XTESTERX </td>
479<td> XARCHITECTUREX </td>
480<td BGCOLOR="#00FF00"><a href="ARCHITECTURE/wrftest.all_${datehms}">PASS</a>
481                      <a href="ARCHITECTURE/message_${datehms}">DIFFS</a></td>
482<td>
483<!--
484<a href="other_docs/${date}_notes">Descriptions</a>
485<a href="other_docs/${date}_minutes">Minutes</a>
486-->
487</td>
488</tr>
489EOF
490
491cat >! history_middle_OOPS.html << EOF
492<tr>
493<td> XDATEX </td>
494<td> XTAGX </td>
495<td> XTESTERX </td>
496<td> XARCHITECTUREX </td>
497<td BGCOLOR="#FF0000"><a href="ARCHITECTURE/wrftest.all_${datehms}">FAIL</a>
498                      <a href="ARCHITECTURE/message_${datehms}">DIFFS</a></td>
499<td>
500<!--
501<a href="other_docs/${date}_notes">Descriptions</a>
502<a href="other_docs/${date}_minutes">Minutes</a>
503-->
504</td>
505</tr>
506EOF
507
508set name = `uname`
509cat >! ed2.in << EOF
510,s/ARCHITECTURE/${name}/g
511w history_middle.html
512q
513EOF
514
515#       Get all of the wrftest.output.* files in one BIG file.
516
517if ( -e wrftest.all_$datehms ) rm wrftest.all_$datehms
518cat wrftest.output.?.* wrftest.output.??.* >>! wrftest.all_$datehms
519if ( -d `uname` ) rm -rf `uname`
520mkdir `uname`
521mv wrftest.all_$datehms `uname`
522
523#       Compare regression PASS/FAILs with previous runs.
524
525pushd ~gill/RESULTS/`uname`
526grep FAIL wrftest.output.* >! ${starting_dir}/PREV.FAILS
527popd
528grep FAIL wrftest.output.* >! CURR.FAILS
529echo Comparison of regression results on `hostname` for `date` >! message
530echo "==================================================================" >> message
531echo "     " >> message
532echo "Previous FAILs" >> message
533echo "==================" >> message
534echo "     " >> message
535cat PREV.FAILS >> message
536echo "     " >> message
537echo "Current FAILs" >> message
538echo "==================" >> message
539echo "     " >> message
540cat CURR.FAILS >> message
541echo "     " >> message
542echo "Difference of FAILs" >> message
543echo "==================" >> message
544echo "     " >> message
545cat CURR.FAILS | grep -vi baseline >! CURR2.FAILS
546diff PREV.FAILS CURR2.FAILS >! diffs
547set ok = $status
548cat diffs >> message
549echo "     " >> message
550cp message message_$datehms
551mv message_$datehms `uname`
552
553#       Send out status info on the regression test.
554
555set OS = `uname`
556set NUMARGS = $#argv
557if ( $#argv != 0 ) then
558        set ARG1 = $argv[1]
559else
560        set ARG1 = BLANK
561endif
562
563if ( ( $NUMARGS == 0 ) || ( $ARG1 == PASSFAIL ) || \
564     ( ( $ARG1 == COMPARE  ) && ( $NUMARGS == 1 ) ) || \
565     ( ( $ARG1 == GENERATE ) && ( $NUMARGS == 1 ) ) ) then
566        if ( $ok != 0 ) then
567                Mail -s "REG DIFFS $OS" ${user}@ucar.edu < message
568                echo "   "
569                echo "Different FAILS from before for $OS - repository may have been broken"
570                echo "   "
571                m4 -DXDATEX=${dateh} -DXTAGX=${TAG} -DXTESTERX=${user} -DXARCHITECTUREX=`uname` \
572                        history_middle_OOPS.html >! history_middle_1.html
573        else if ( $ok == 0 ) then
574                Mail -s "REG OK $OS" ${user}@ucar.edu < message
575                echo "   "
576                echo "Same FAILS as before for $OS - repository OK"
577                echo "   "
578                m4 -DXDATEX=${dateh} -DXTAGX=${TAG} -DXTESTERX=${user} -DXARCHITECTUREX=`uname` \
579                        history_middle_OK.html >! history_middle_1.html
580        endif
581       
582        #       Store on the NCAR MSS system to circumvent security.
583       
584        ed history_middle_1.html < ed2.in >& /dev/null
585        tar -cf `uname`_hist.tar history_middle.html `uname`
586        echo Storing info on NCAR MSS
587        msrcp `uname`_hist.tar mss:/GILL/ALLREG/`uname`_hist.tar
588        if ( -e `uname`_NEW ) rm `uname`_NEW
589        echo "`uname` `date`" >! `uname`_NEW
590        msrcp `uname`_NEW mss:/GILL/ALLREG/`uname`_NEW
591endif
592
593rm ed_in >& /dev/null
594rm io_format >& /dev/null
595rm PREV.FAILS CURR.FAILS CURR2.FAILS message diffs >& /dev/null
596rm history_middle_OOPS.html history_middle_OK.html history_middle_1.html history_middle.html >& /dev/null
597rm `uname`_hist.tar `uname`_NEW ed2.in >& /dev/null
598rm -rf `uname` >& /dev/null
Note: See TracBrowser for help on using the repository browser.