Subversion Repositories lagranto.ecmwf

Rev

Rev 3 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 9
Line 126... Line 126...
126 
    }
 126 
    }
127 
    elsif ( $time eq 'FIRST' )
 127 
    elsif ( $time eq 'FIRST' )
128 
    {
 128 
    {
129 
        $time = -996;
 129 
        $time = -996;
130 
        print "1 \n";
 130 
        print "1 \n";
131 
	print "$time \n";
 131 
	    print "$time \n";
132 
    }
 132 
    }
133 
    elsif ( $time eq 'LAST' )
 133 
    elsif ( $time eq 'LAST' )
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 
	}
- 
 
 139 
	elsif ( $time eq 'TRIGGER' )
- 
 
 140 
    {
- 
 
 141 
        print "-993 \n";
138 
    }
 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;
144 
	foreach $j ( @times )
 148 
	    foreach $j ( @times )
145 
        {
 149 
        {
146 
	    $to = index($j,'to');
 150 
	    $to = index($j,'to');
147 
            if ( $to == -1 )
 151 
            if ( $to == -1 )
148 
               {
152 
               {
149 
		if ( $j eq 'FIRST' )
 153 
		if ( $j eq 'FIRST' )