#!/bin/perl

# Alter start dates of run so that start dump etc agree...

# Use: change-start4.pl RUNID

$VN=405;

$RUNID=shift;

$BASE=glob "~"; $BASE.="/umui_jobs";

undef $/; open IN,"$BASE/$RUNID/CNTLALL"; $IN=<IN>; close IN;
($Y,$M,$D) = ($IN =~ /MODEL_BASIS_TIME= (\d{4}) , (\d{1,2}) , (\d{1,2})/);


edit("RECONA");
edit("RECONO");

exit;

sub edit {

  my ($FILE) = @_;

  my $FILE1="$BASE/$RUNID/$FILE";

  print "Editing $FILE1 to force Y=$Y, M=$M, D=$D in $FILE\n";

  open IN,"$FILE1"; undef $/; $IN=<IN>; close IN;
  $IN=~s/(FIXHD\(12\)=$VN,)(\n &END)/$1\n FIXHD(21)=$Y,\n FIXHD(22)=$M,\n FIXHD(23)=$D,\n FIXHD(28)=$Y,\n FIXHD(29)=$M,\n FIXHD(30)=$D,$2/;
  open OUT,">$FILE1"; print OUT $IN; close OUT

};