Subversion Repositories lagranto.ecmwf

Rev

Rev 3 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 9
Line 134... Line 134...
134 
    {
 134 
    {
135 
        $time = -995;
 135 
        $time = -995;
136 
        print "1 \n";
 136 
        print "1 \n";
137 
	print "$time \n";
 137 
	    print "$time \n";
138 
    }
 138 
	}
- 
 
 139 
	elsif ( $time eq 'TRIGGER' )
- 
 
 140 
    {
- 
 
 141 
        print "-993 \n";
- 
 
 142 
    }
139 
    else
 143 
    else
140 
    {
 144 
    {
141 
        @times  = split /,/, $time;
 145 
        @times  = split /,/, $time;
142 
        $outstr = "";
 146 
        $outstr = "";
143 
	$outlen = 0;
 147 
	    $outlen = 0;