hydro/wrf_hydro_config

   1 #!/usr/bin/perl
   2 #input argument: Compiler/System sequential/parallel
   3 #This is called by WRF configuration only.
   4 if($#ARGV ne 1) {
   5   print("Error: No such configuration for Hydro \n");
   6   exit(1);
   7 }
   8          $x = lc(shift(@ARGV));
   9          $paropt = lc(shift(@ARGV));
  10
  11          print("Configure option for Hydro : $x  $paropt \n");
  12           if($x =~ "pgi") {
  13               if($paropt eq 'serial') {
  14                  # system("./configure 1");
  15                  print "Error : option not defined in WRF-Hyro. \n";
  16                  exit(1);
  17               }
  18               else {system("./configure 1"); exit(0);}
  19           }
  20           if($x =~ "aix") {
  21               print "Error : option not defined. \n";
  22               exit(1);
  23               if($paropt eq 'serial') { system("./configure 3");}
  24               else {system("./configure 4");}
  25           }
  26           if($x =~ "gfortran") {
  27               if($paropt eq 'serial') {
  28                  # system("./configure 5");
  29                  print "Error : option not defined in WRF-Hyro. \n";
  30                  exit(1);
  31               }
  32               else {system("./configure 2"); exit(0);}
  33           }
  34           if($x =~ "ifort") {
  35               if($paropt eq 'serial') {
  36                    #system("./configure 7");
  37                  print "Error : option not defined. \n";
  38                  exit(1);
  39               }
  40               else {system("./configure 3"); exit(0);}
  41           }
  42                  print "Error : option not defined. \n";
  43                  exit(1);
  44