arch/Config.pl

   1 #!/usr/bin/perl
   2 #
   3 # Configuration script for WRF prototype code
   4 #
   5 # Be sure to run as ./configure (to avoid getting a system configure command by mistake)
   6 #
   7
   8 use Cwd qw(getcwd);
   9 $wrf_cmaq_option =  $ENV{'WRF_CMAQ'};     # determine building WRF-CMAQ coupled model or not
  10
  11 select((select(STDOUT), $|=1)[0]);
  12 $sw_perl_path = perl ;
  13 $sw_netcdf_path = "" ;
  14 $sw_pnetcdf_path = "" ;
  15 $sw_netcdfpar_path = "" ;
  16 $sw_adios2_path = "" ;
  17 $sw_hdf5_path="";
  18 $sw_phdf5_path="";
  19 $sw_jasperlib_path="";
  20 $sw_jasperinc_path="";
  21 $sw_esmflib_path="";
  22 $sw_esmfinc_path="";
  23 $sw_ctsm_mkfile_path="";
  24 $sw_ldflags="";
  25 $sw_compileflags="";
  26 $sw_opt_level="";
  27 $sw_rwordsize="\$\(NATIVE_RWORDSIZE\)";
  28 $sw_rttov_flag = "" ;
  29 $sw_rttov_inc = "" ;
  30 $sw_rttov_path = "" ;
  31 $sw_crtm_flag = "" ;
  32 $sw_cloudcv_flag = "" ;
  33 $sw_4dvar_flag = "" ;
  34 $sw_wrfplus_path = "" ;
  35 $sw_wavelet_flag = "" ;
  36 $WRFCHEM = 0 ;
  37 $sw_os = "ARCH" ;           # ARCH will match any
  38 $sw_mach = "ARCH" ;         # ARCH will match any
  39 $sw_wrf_core = "" ;
  40 $sw_da_core = "-DDA_CORE=\$\(WRF_DA_CORE\)" ;
  41 $sw_wrfplus_core = "-DWRFPLUS=\$\(WRF_PLUS_CORE\)" ;
  42 $sw_nmm_core = "-DNMM_CORE=\$\(WRF_NMM_CORE\)" ;
  43 $sw_em_core = "-DEM_CORE=\$\(WRF_EM_CORE\)" ;
  44 $sw_dmparallel = "" ;
  45 $sw_ompparallel = "" ;
  46 $sw_stubmpi = "" ;
  47 $sw_usenetcdff = "" ;    # UNIDATA switches around library names a bit
  48 $sw_usenetcdf = "" ;
  49 $sw_time = "" ;          # name of a timer to time fortran compiles, e.g. timex or time
  50 $sw_ifort_r8 = 0 ;
  51 $sw_hdf5 = "-lhdf5_hl -lhdf5";
  52 $sw_hdf5_hl_fortran="-lhdf5_hl_fortran";
  53 $sw_zlib = "-lz";
  54 $sw_netcdf4_dep_lib = "";
  55 $sw_gpfs_path = "";
  56 $sw_gpfs_lib  = "-lgpfs";
  57 $sw_curl_path = "";
  58 $sw_curl_lib  = "-lcurl";
  59 $sw_terrain_and_landuse = "";
  60 $sw_tfl = "" ;
  61 $sw_cfl = "" ;
  62 $sw_config_line = "" ;
  63 while ( substr( $ARGV[0], 0, 1 ) eq "-" )
  64  {
  65   if ( substr( $ARGV[0], 1, 5 ) eq "perl=" )
  66   {
  67     $sw_perl_path = substr( $ARGV[0], 6 ) ;
  68   }
  69   if ( substr( $ARGV[0], 1, 7 ) eq "netcdf=" )
  70   {
  71     $sw_netcdf_path = substr( $ARGV[0], 8 ) ;
  72   }
  73   if ( substr( $ARGV[0], 1, 16 ) eq "netcdf4_dep_lib=" )
  74   {
  75     $sw_netcdf4_dep_lib = substr( $ARGV[0], 17 ) ;
  76     $sw_netcdf4_dep_lib =~ s/\r|\n/ /g ;
  77   }
  78   if ( substr( $ARGV[0], 1, 5 ) eq "gpfs=" )
  79   {
  80     $sw_gpfs_path = substr( $ARGV[0], 6 ) ;
  81     if ( $sw_gpfs_path ne "" )
  82       {
  83         if ( substr( $sw_gpfs_path, -1, 1 ) eq "/" )
  84           {
  85             $sw_gpfs_path = substr($sw_gpfs_path, 0, length($sw_gpfs_path)-1 ) ;
  86           }
  87       }
  88   }
  89   if ( substr( $ARGV[0], 1, 5 ) eq "curl=" )
  90   {
  91     $sw_curl_path = substr( $ARGV[0], 6 ) ;
  92     if ( $sw_curl_path ne "" )
  93       {
  94         if ( substr( $sw_curl_path, -1, 1 ) eq "/" )
  95           {
  96             $sw_curl_path = substr($sw_curl_path, 0, length($sw_curl_path)-1 ) ;
  97           }
  98       }
  99   }
 100   if ( substr( $ARGV[0], 1, 8 ) eq "pnetcdf=" )
 101   {
 102     $sw_pnetcdf_path = substr( $ARGV[0], 9 ) ;
 103   }
 104   if ( substr( $ARGV[0], 1, 10 ) eq "netcdfpar=" )
 105   {
 106     $sw_netcdfpar_path = substr( $ARGV[0], 11 ) ;
 107   }
 108   if ( substr( $ARGV[0], 1, 7 ) eq "adios2=" )
 109   {
 110     $sw_adios2_path = substr( $ARGV[0], 8 ) ;
 111   }
 112   if ( substr( $ARGV[0], 1, 5 ) eq "hdf5=" )
 113   {
 114     $sw_hdf5_path = substr( $ARGV[0], 6 ) ;
 115   }
 116   if ( substr( $ARGV[0], 1, 6 ) eq "phdf5=" )
 117   {
 118     $sw_phdf5_path = substr( $ARGV[0], 7 ) ;
 119   }
 120   if ( substr( $ARGV[0], 1, 3 ) eq "os=" )
 121   {
 122     $sw_os = substr( $ARGV[0], 4 ) ;
 123   }
 124   if ( substr( $ARGV[0], 1, 5 ) eq "mach=" )
 125   {
 126     $sw_mach = substr( $ARGV[0], 6 ) ;
 127   }
 128   if ( substr( $ARGV[0], 1, 10 ) eq "opt_level=" )
 129   {
 130     $sw_opt_level = substr( $ARGV[0], 11 ) ;
 131   }
 132   if ( substr( $ARGV[0], 1, 11 ) eq "USENETCDFF=" )
 133   {
 134     $sw_usenetcdff = substr( $ARGV[0], 12 ) ;
 135   }
 136   if ( substr( $ARGV[0], 1, 10 ) eq "USENETCDF=" )
 137   {
 138     $sw_usenetcdf = substr( $ARGV[0], 11 ) ;
 139   }
 140   if ( substr( $ARGV[0], 1, 5 ) eq "time=" )
 141   {
 142     $sw_time = substr( $ARGV[0], 6 ) ;
 143   }
 144   if ( substr( $ARGV[0], 1, 8 ) eq "ldflags=" )
 145   {
 146     $sw_ldflags = substr( $ARGV[0], 9 ) ;
 147 # multiple options separated by spaces are passed in from sh script
 148 # separated by ! instead. Replace with spaces here.
 149     $sw_ldflags =~ s/!/ /g ;
 150   }
 151   if ( substr( $ARGV[0], 1, 9 ) eq "wrf_core=" )
 152   {
 153     $sw_wrf_core = substr( $ARGV[0], 10 ) ;
 154     if ( index ( $sw_wrf_core , "EM_CORE" ) > -1 )
 155     {
 156       $sw_em_core = "-DEM_CORE=1" ;
 157       $sw_da_core = "-DDA_CORE=0" ;
 158       $sw_wrfplus_core = "-DWRFPLUS=0" ;
 159       $sw_nmm_core = "-DNMM_CORE=0" ;
 160     }
 161     if ( index ( $sw_wrf_core , "WRF_PLUS_CORE" ) > -1 )
 162     {
 163       $sw_em_core = "-DEM_CORE=1" ;
 164       $sw_da_core = "-DDA_CORE=0" ;
 165       $sw_wrfplus_core = "-DWRFPLUS=1" ;
 166       $sw_nmm_core = "-DNMM_CORE=0" ;
 167       $sw_dfi_radar = "-DDFI_RADAR=0" ;
 168     }
 169     if ( index ( $sw_wrf_core , "DA_CORE" ) > -1 )
 170     {
 171       $sw_em_core = "-DEM_CORE=1" ;
 172       $sw_da_core = "-DDA_CORE=1" ;
 173       $sw_wrfplus_core = "-DWRFPLUS=0" ;
 174       $sw_nmm_core = "-DNMM_CORE=0" ;
 175     }
 176     if ( index ( $sw_wrf_core , "4D_DA_CORE" ) > -1 )
 177     {
 178       $sw_em_core = "-DEM_CORE=1" ;
 179       $sw_da_core = "-DDA_CORE=1" ;
 180       $sw_nmm_core = "-DNMM_CORE=0" ;
 181     }
 182     if ( index ( $sw_wrf_core , "4D_DA_CORE" ) > -1 )
 183     {
 184       $sw_em_core = "-DEM_CORE=1" ;
 185       $sw_da_core = "-DDA_CORE=1" ;
 186       $sw_nmm_core = "-DNMM_CORE=0" ;
 187     }
 188     if ( index ( $sw_wrf_core , "NMM_CORE" ) > -1 )
 189     {
 190       $sw_em_core = "-DEM_CORE=0" ;
 191       $sw_da_core = "-DDA_CORE=0" ;
 192       $sw_wrfplus_core = "-DWRFPLUS=0" ;
 193       $sw_nmm_core = "-DNMM_CORE=1" ;
 194     }
 195   }
 196   if ( substr( $ARGV[0], 1, 13 ) eq "compileflags=" )
 197   {
 198     $sw_compileflags = substr( $ARGV[0], 14 ) ;
 199     $sw_compileflags =~ s/!/ /g ;
 200 #   look for each known option
 201     $where_index = index ( $sw_compileflags , "-DWRF_CHEM" ) ;
 202     if ( $where_index eq -1 )
 203     {
 204       $WRFCHEM = 0 ;
 205     }
 206     else
 207     {
 208       $WRFCHEM = 1 ;
 209     }
 210   }
 211   if ( substr( $ARGV[0], 1, 11 ) eq "dmparallel=" )
 212   {
 213     $sw_dmparallel=substr( $ARGV[0], 12 ) ;
 214   }
 215   if ( substr( $ARGV[0], 1, 12 ) eq "ompparallel=" )
 216   {
 217     $sw_ompparallel=substr( $ARGV[0], 13 ) ;
 218   }
 219   if ( substr( $ARGV[0], 1, 4 ) eq "tfl=" )
 220   {
 221     $sw_tfl=substr( $ARGV[0], 5 ) ;
 222   }
 223   if ( substr( $ARGV[0], 1, 4 ) eq "cfl=" )
 224   {
 225     $sw_cfl=substr( $ARGV[0], 5 ) ;
 226   }
 227   if ( substr( $ARGV[0], 1, 12 ) eq "config_line=" )
 228   {
 229     $sw_config_line=substr( $ARGV[0], 13 ) ;
 230   }
 231   shift @ARGV ;
 232  }
 233
 234  $sw_fc = "\$(SFC)" ;
 235  $sw_cc = "\$(SCC)" ;
 236  $sw_comms_lib = "" ;
 237  $sw_comms_include = "" ;
 238  $sw_dmparallelflag = "" ;
 239  $sw_nest_opt = "" ;
 240  $sw_comms_external = "gen_comms_serial module_dm_serial" ;
 241
 242
 243  if ( $sw_dmparallel eq "RSL_LITE" )
 244  {
 245   $sw_fc = "\$(DM_FC)" ;
 246   $sw_cc = "\$(DM_CC)" ;
 247   $sw_dmparallelflag = "-DDM_PARALLEL" ;
 248   $sw_comms_lib = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a" ;
 249   $sw_comms_external = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a gen_comms_rsllite module_dm_rsllite" ;
 250   $sw_comms_include = "-I\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE" ;
 251  }
 252
 253 # The jasper library is required to build Grib2 I/O.  User must set
 254 # environment variables JASPERLIB and JASPERINC to paths to library and
 255 # include files to enable this feature prior to running configure.
 256
 257  $I_really_want_to_output_grib2_from_WRF = "FALSE" ;
 258
 259  if ( $ENV{JASPERLIB} && $ENV{JASPERINC} && $I_really_want_to_output_grib2_from_WRF eq "TRUE" )
 260    {
 261    printf "Configuring to use jasper library to build Grib2 I/O...\n" ;
 262    printf("  \$JASPERLIB = %s\n",$ENV{JASPERLIB});
 263    printf("  \$JASPERINC = %s\n",$ENV{JASPERINC});
 264    $sw_jasperlib_path = $ENV{JASPERLIB};
 265    $sw_jasperinc_path = $ENV{JASPERINC};
 266    }
 267  else
 268    {
 269    if ( $ENV{JASPERLIB} && $ENV{JASPERINC} )
 270      {
 271      printf "\n\nIf you REALLY want Grib2 output from WRF, modify the arch/Config.pl script.\n" ;
 272      printf "Right now you are not getting the Jasper lib, from the environment, compiled into WRF.\n\n" ;
 273      }
 274    else
 275      {
 276      printf "\$JASPERLIB or \$JASPERINC not found in environment, configuring to build without grib2 I/O...\n" ;
 277      }
 278    }
 279
 280 # When compiling DA and WRFPLUS code, we need to always use 8-byte reals.
 281  if ( $ENV{WRF_DA_CORE} eq "1" || $sw_da_core eq "-DDA_CORE=1" )
 282    {
 283      $sw_rwordsize = "8";
 284      if(defined $ENV{'CRTM'})
 285        {
 286        if ( $ENV{CRTM} ne "0" )
 287          {
 288          $sw_crtm_flag = "-DCRTM";
 289          }
 290        }
 291      else
 292        {
 293          {
 294          $sw_crtm_flag = "-DCRTM";
 295          }
 296        }
 297      if ( $ENV{RTTOV} )
 298        {
 299        $sw_rttov_flag = "-DRTTOV";
 300        $sw_rttov_inc = "-I$ENV{RTTOV}/include -I$ENV{RTTOV}/mod";
 301        $sw_rttov_path= $ENV{RTTOV};
 302        }
 303      if ( $ENV{CLOUD_CV} )
 304        {
 305        $sw_cloudcv_flag = "-DCLOUD_CV";
 306        }
 307      if ( $sw_wrf_core eq "4D_DA_CORE" )
 308        {
 309        $sw_4dvar_flag = "-DVAR4D";
 310        $sw_wrfplus_path= $ENV{WRFPLUS_DIR};
 311        }
 312      if ( $ENV{WAVELET} )
 313        {
 314        $sw_wavelet_flag = "-DWAVELET";
 315        }
 316    }
 317
 318  $sw_rwordsize = "8" if ( $sw_wrfplus_core eq "-DWRFPLUS=1" );
 319
 320 # A separately-installed ESMF library is required to build the ESMF
 321 # implementation of WRF IOAPI in external/io_esmf.  This is needed
 322 # to couple WRF with other ESMF components.  User must set environment
 323 # variables ESMFLIB and ESMFINC to paths ESMF to library and include
 324 # files to enable this feature prior to running configure.
 325  if ( $ENV{ESMFLIB} && $ENV{ESMFINC} )
 326    {
 327    printf "Configuring to use ESMF library to build WRF...\n" ;
 328    printf "WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING\n" ;
 329    printf "WARNING:  THIS IS AN EXPERIMENTAL CONFIGURATION\n" ;
 330    printf "WARNING:  IT DOES NOT WORK WITH NESTING\n" ;
 331    printf "WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING\n" ;
 332    printf("  \$ESMFLIB = %s\n",$ENV{ESMFLIB});
 333    printf("  \$ESMFINC = %s\n",$ENV{ESMFINC});
 334    $sw_esmflib_path = $ENV{ESMFLIB};
 335    $sw_esmfinc_path = $ENV{ESMFINC};
 336    $sw_esmf_ldflag = "yes" ;
 337    }
 338
 339 # A separately-installed CTSM library and its dependencies are required
 340 # to build WRF with the CTSM land surface model (the next generation of
 341 # the CLM model, coupled via LILAC). The user must set the environment
 342 # variable WRF_CTSM_MKFILE, which should be a path to a make-formatted
 343 # file containing settings of CTSM_INCLUDES and CTSM_LIBS. When this
 344 # environment variable is set, this also triggers adding -DWRF_USE_CTSM;
 345 # when this env var is not set, then we instead use -DWRF_USE_CLM, which
 346 # builds an old version of CLM that is included in the WRF source code.
 347 # (We currently cannot build with both at once because of namespace
 348 # collisions at link time.)
 349 if ( $ENV{WRF_CTSM_MKFILE} ) {
 350    $sw_ctsm_mkfile_path = $ENV{WRF_CTSM_MKFILE};
 351 }
 352
 353 if ( $sw_hdf5_path ) {
 354   opendir(my $dh, "$sw_hdf5_path/lib");
 355   ($hl) = grep(/hdf5hl_fortran/i, readdir $dh);
 356   closedir($dh);
 357   if ($hl ne "") {
 358     $sw_hdf5_hl_fortran="-lhdf5hl_fortran";
 359   }
 360 }
 361
 362 # parse the configure.wrf file
 363
 364 $validresponse = 0 ;
 365
 366 if ( ($sw_wrf_core eq "WRF_PLUS_CORE") || ($sw_wrf_core eq "4D_DA_CORE") )
 367    { @platforms = qw ( serial dmpar ) ; }
 368    else
 369    { @platforms = qw ( serial smpar dmpar dm+sm ) ; }
 370
 371 # Display the choices to the user and get selection
 372 until ( $validresponse ) {
 373   printf "------------------------------------------------------------------------\n" ;
 374   printf "Please select from among the following $sw_os $sw_mach options:\n\n" ;
 375
 376   $opt = 1 ;
 377   $optstr = "";
 378   open CONFIGURE_DEFAULTS, "< ./arch/configure.defaults"
 379       or die "Cannot open ./arch/configure.defaults for reading" ;
 380   while ( <CONFIGURE_DEFAULTS> ) {
 381
 382      $currline = $_;
 383      chomp $currline;
 384      # Look for our platform in the configuration option header.
 385      # If we're going to list it, print parallelism options
 386      if ( substr( $currline, 0, 5 ) eq "#ARCH" && ( index( $currline, $sw_os ) >= 0 )
 387          && ( index( $currline, $sw_mach ) >= 0 ) ) {
 388         $optstr = substr($currline,6) ;
 389
 390         foreach ( @platforms ) { # Check which parallelism options are valid for this configuration option
 391            $paropt = $_ ;
 392            if ( index($optstr, $paropt) >= 0 ) { #If parallelism option is valid, print and assign number
 393               printf "%3d. (%s) ",$opt,$paropt ;
 394               $pararray[$opt] = $paropt ;
 395               $opttemp = $optstr ;
 396               $opttemp =~ s/#.*$//g ;
 397               chomp($opttemp) ;
 398               $optarray[$opt] = $opttemp." (".$paropt.")" ;
 399               $opt++ ;
 400            } else { #If parallelism option is not valid, print spaces for formatting/readability
 401               $paropt =~ s/./ /g ;
 402               printf "      %s  ",$paropt ;
 403            }
 404         }
 405         next;
 406      }
 407
 408      next unless ( length $optstr ) ; # Don't read option lines unless it's valid for our platform
 409
 410      if ( substr( $currline, 0, 11 ) eq "DESCRIPTION" ) {
 411         $optstr = $currline ; #Initial value of $optstr is DESCRIPTION line
 412         next;
 413      }
 414
 415      if ( substr( $currline, 0, 3 ) eq "SFC" ) {
 416         $currline =~ s/^SFC\s*=\s*//g;      #remove "SFC ="
 417         $currline =~ s/ (\-\S*)*$//g;       #remove trailing arguments and/or spaces
 418         $optstr =~ s/\$SFC/$currline/g;     #Substitute the fortran compiler name into optstr
 419         $optstr =~ s/DESCRIPTION\s*=\s*//g; #Remove "DESCRIPTION ="
 420         next;
 421      }
 422
 423      if ( substr( $currline, 0, 3 ) eq "SCC" ) {
 424         $currline =~ s/^SCC\s*=\s*//g;      #remove "SCC ="
 425         $currline =~ s/ (\-\S*)*$//g;       #remove trailing arguments and/or spaces
 426         $optstr =~ s/\$SCC/$currline/g;     #Substitute the C compiler name into optstr
 427         next;
 428      }
 429
 430      if ( substr( $currline, 0, 4 ) eq "####" ) { #reached the end of this option's entry
 431         chomp($optstr) ;
 432         printf "  %s\n",$optstr ;
 433         $optstr = "";
 434         next;
 435      }
 436
 437   }
 438   close CONFIGURE_DEFAULTS ;
 439
 440   $opt -- ;
 441
 442   printf "\nEnter selection [%d-%d] : ",1,$opt ;
 443   $response = <STDIN> ;
 444
 445   if ( $response == -1 ) { exit ; }
 446
 447   if ( $response >= 1 && $response <= $opt )
 448   { $validresponse = 1 ; }
 449   else
 450   { printf("\nInvalid response (%d)\n",$response);}
 451   $response_opt = $response ;
 452   chop $response_opt ;
 453 }
 454 printf "------------------------------------------------------------------------\n" ;
 455
 456 $optchoice = $response ;
 457 if ( $response == 2 || $response == 3 ) {
 458   if ( $ENV{'TERRAIN_AND_LANDUSE'} eq "1" && index($sw_wrf_core, "EM_CORE") > -1 ) {
 459     $sw_terrain_and_landuse =" -DTERRAIN_AND_LANDUSE" ;
 460   } else {
 461     $sw_terrain_and_landuse =" -DLANDREAD_STUB=1" ;
 462   }
 463 } else {
 464   $sw_terrain_and_landuse =" -DLANDREAD_STUB=1" ;
 465 }
 466
 467 open CONFIGURE_DEFAULTS, "cat ./arch/configure.defaults |"  ;
 468 $latchon = 0 ;
 469 while ( <CONFIGURE_DEFAULTS> )
 470 {
 471   if ( $_ =~ /ifort compiler/ )
 472      { $lioapi_temp = 'Linux2_x86_64ifort';
 473      }
 474   elsif ( $_ =~ /PGI compiler/ )
 475      { $lioapi_temp = 'Linux2_x86_64pg';
 476      }
 477   elsif ( $_ =~ /gfortran compiler/ )
 478      { $lioapi_temp = 'Linux2_x86_64gfort';
 479      }
 480
 481   if ( substr( $_, 0, 5 ) eq "#ARCH" && $latchon == 1 )
 482   {
 483     close CONFIGURE_DEFAULTS ;
 484     if ( $sw_opt_level eq "-f" ) {
 485
 486          # determine whether variable EM_MODULE_DIR contains -I../cmaq or not
 487          my $file = "Makefile";
 488          open(FH, $file) or die("File $file not found");
 489
 490          $lib_path_wo_cmaq = 1;
 491          while ( my $String = <FH> )
 492            { if($String =~ /-I..\/dyn_em -I..\/cmaq/)
 493                { $lib_path_wo_cmaq = 0;
 494                }
 495            }
 496          close (FH);
 497
 498          # determine whether declarations in Registry/registry.CMAQ is commented out or not
 499          my $file = "Registry/registry.CMAQ";
 500          open (FH, $file) or die("File $file not found");
 501
 502          $registry_wo_cmaq = 0;
 503          while ( my $String = <FH> )
 504            { if($String =~ /#state/)
 505                { $registry_wo_cmaq = 1;
 506                }
 507            }
 508          close (FH);
 509
 510          # determine whether express #NOWIN LIB_BUNDLED contains $(IOAPI_LIB) or not
 511          my $file = "arch/preamble";
 512          open (FH, $file) or die("File $file not found");
 513
 514          $bundle_wo_ioapi = 1;
 515          while ( my $String = <FH> )
 516            { if ( $String =~ /IOAPI_LIB/ )
 517                { $bundle_wo_ioapi = 0;
 518                }
 519            }
 520          close (FH);
 521
 522          if ( $wrf_cmaq_option eq 1 )   # build WRF-CMAQ coupled model
 523             { if ( $lib_path_wo_cmaq == 1 )
 524                  { open (FILE, "<Makefile") || die "File not found";
 525                    my @lines = <FILE>;
 526                    close (FILE);
 527
 528                    foreach ( @lines )
 529                      { $_ =~ s/ -I..\/dyn_em/ -I..\/dyn_em -I..\/cmaq/g;
 530                      }
 531
 532                    open (FILE, ">Makefile") || die "File not found";
 533                    print FILE @lines;
 534                    close (FILE);
 535                  }
 536
 537               if ( $registry_wo_cmaq == 1 )
 538                  { open (FILE, "<Registry/registry.CMAQ") || die "File not found";
 539                    my @lines = <FILE>;
 540                    close (FILE);
 541
 542                    foreach (@lines)
 543                      { $_ =~ s/#state/state/g;
 544                      }
 545
 546                    open (FILE, ">Registry/registry.CMAQ") || die "File not found";
 547                    print FILE @lines;
 548                    close (FILE);
 549                  }
 550
 551               if ( $bundle_wo_ioapi == 1 )
 552                  { open (FILE, "<arch/preamble") || die "File not found";
 553                    my @lines = <FILE>;
 554                    close (FILE);
 555
 556                    foreach (@lines)
 557                      { $_ =~ s/#NOWIN LIB_BUNDLED     = \\/#NOWIN LIB_BUNDLED     = \$(IOAPI_LIB) \\/g;
 558                      }
 559
 560                    open (FILE, ">arch/preamble") || die "File not found";
 561                    print FILE @lines;
 562                    close (FILE);
 563                  }
 564
 565               open (FH, '>', wrf_cmaq_path) or die $! ;
 566               $ioapi_path = $ENV{'IOAPI'} ;
 567               print FH "CMAQLIB = libcmaqlib.a \n" ;
 568               print FH "IOAPI      = $ioapi_path\n" ;
 569               print FH "LIOAPI     = $lioapi\n" ;
 570               print FH "IOAPI_LIB  = -L$ioapi_path/$lioapi -lioapi \n" ;
 571               close (FH) ;
 572               open CONFIGURE_DEFAULTS, "cat wrf_cmaq_path ./arch/postamble ./arch/noopt_exceptions_f |"  or die "horribly" ;
 573             }
 574          else
 575             { if ( $lib_path_wo_cmaq == 0 )
 576                  { open (FILE, "<Makefile") || die "File not found";
 577                    my @lines = <FILE>;
 578                    close (FILE);
 579
 580                    foreach (@lines)
 581                      { $_ =~ s/ -I..\/cmaq//g;
 582                      }
 583
 584                    open (FILE, ">Makefile") || die "File not found";
 585                    print FILE @lines;
 586                    close (FILE);
 587
 588                  }
 589
 590               if ( $registry_wo_cmaq == 0 )
 591                  { open (FILE, "<Registry/registry.CMAQ") || die "File not found";
 592                    my @lines = <FILE>;
 593                    close (FILE);
 594
 595                    foreach(@lines)
 596                      { $_ =~ s/state/#state/g;
 597                      }
 598
 599                    open (FILE, ">Registry/registry.CMAQ") || die "File not found";
 600                    print FILE @lines;
 601                    close (FILE);
 602                  }
 603
 604               if ( $bundle_wo_ioapi == 0 )
 605                  { open (FILE, "<arch/preamble") || die "File not found";
 606                    my @lines = <FILE>;
 607                    close (FILE);
 608
 609                    foreach (@lines)
 610                      { $_ =~ s/ \$\(IOAPI_LIB\)//g;
 611                      }
 612
 613                    open (FILE, ">arch/preamble") || die "File not found";
 614                    print FILE @lines;
 615                    close (FILE);
 616                  }
 617
 618               open CONFIGURE_DEFAULTS, "cat ./arch/postamble ./arch/noopt_exceptions_f |"  or die "horribly" ;
 619             }
 620     } else {
 621       open CONFIGURE_DEFAULTS, "cat ./arch/postamble ./arch/noopt_exceptions |"  or die "horribly" ;
 622     }
 623   }
 624   $_ =~ s:CONFIGURE_NMM_CORE:$sw_nmm_core:g ;
 625   if ( $latchon == 1 )
 626   {
 627     $_ =~ s/CONFIGURE_PERL_PATH/$sw_perl_path/g ;
 628     $_ =~ s/CONFIGURE_NETCDF_PATH/$sw_netcdf_path/g ;
 629     $_ =~ s/CONFIGURE_PNETCDF_PATH/$sw_pnetcdf_path/g ;
 630     $_ =~ s/CONFIGURE_NETCDFPAR_PATH/$sw_netcdfpar_path/g ;
 631     $_ =~ s/CONFIGURE_ADIOS2_PATH/$sw_adios2_path/g ;
 632     $_ =~ s/CONFIGURE_HDF5_PATH/$sw_hdf5_path/g ;
 633     $_ =~ s/CONFIGURE_PHDF5_PATH/$sw_phdf5_path/g ;
 634     $_ =~ s/CONFIGURE_LDFLAGS/$sw_ldflags/g ;
 635     $_ =~ s/CONFIGURE_COMPILEFLAGS/$sw_compileflags/g ;
 636     $_ =~ s/CONFIGURE_RWORDSIZE/$sw_rwordsize/g ;
 637     $_ =~ s/CONFIGURE_FC/$sw_time $sw_fc/g ;
 638     $_ =~ s/CONFIGURE_CC/$sw_cc/g ;
 639     $_ =~ s/CONFIGURE_COMMS_LIB/$sw_comms_lib/g ;
 640     $_ =~ s/CONFIGURE_COMMS_INCLUDE/$sw_comms_include/g ;
 641     $_ =~ s/CONFIGURE_COMMS_EXTERNAL/$sw_comms_external/g ;
 642     if ( $sw_os ne "CYGWIN_NT" ) {
 643       $_ =~ s/#NOWIN// ;
 644     }
 645     $_ =~ s/CONFIGURE_DMPARALLEL/$sw_dmparallelflag/g ;
 646     $_ =~ s/CONFIGURE_STUBMPI/$sw_stubmpi/g ;
 647     $_ =~ s/CONFIGURE_NESTOPT/$sw_nest_opt/g ;
 648     $_ =~ s/CONFIGURE_TRADFLAG/$sw_tfl/g ;
 649     $_ =~ s/CONFIGURE_CPPFLAGS/$sw_cfl/g ;
 650     $_ =~ s/CONFIGURE_4DVAR_FLAG/$sw_4dvar_flag/g ;
 651     $_ =~ s/CONFIGURE_WRFPLUS_PATH/$sw_wrfplus_path/g ;
 652     $_ =~ s/CONFIGURE_CRTM_FLAG/$sw_crtm_flag/g ;
 653     $_ =~ s/CONFIGURE_RTTOV_FLAG/$sw_rttov_flag/g ;
 654     $_ =~ s/CONFIGURE_RTTOV_INC/$sw_rttov_inc/g ;
 655     $_ =~ s/CONFIGURE_RTTOV_PATH/$sw_rttov_path/g ;
 656     $_ =~ s/CONFIGURE_CLOUDCV_FLAG/$sw_cloudcv_flag/g ;
 657     $_ =~ s/CONFIGURE_WAVELET_FLAG/$sw_wavelet_flag/g ;
 658     if ( $sw_ifort_r8 ) {
 659       $_ =~ s/^PROMOTION.*=/PROMOTION       =       -r8 /g ;
 660     }
 661     if ( $sw_dmparallel ne "" && ($_ =~ /^DMPARALLEL[=\t ]/) ) {
 662        $_ =~ s/#// ;
 663     }
 664     if ( $sw_ompparallel ne "" && ( $_ =~ /^OMPCPP[=\t ]/ || $_ =~ /^OMPCC[=\t ]/ || $_ =~ /^OMP[=\t ]/ ) ) {
 665        $_ =~ s/#// ;
 666        $_ =~ s/#// ;
 667        $_ =~ s/#// ;
 668     }
 669
 670 # put netcdfpar ahead of netcdf so that part of the name does not get clobbered
 671     if ( $sw_netcdfpar_path )
 672       { $_ =~ s/CONFIGURE_WRFIO_NFPAR/wrfio_nfpar/g ;
 673         $_ =~ s:CONFIGURE_NETCDFPAR_FLAG:-DNETCDFPAR: ;
 674         $_ =~ s:CONFIGURE_NETCDFPAR_BUILD:: ;
 675         if ( $ENV{NETCDFPAR_LDFLAGS} ) {
 676           $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdfpar/libwrfio_nfpar.a $ENV{NETCDFPAR_LDFLAGS} : ;
 677         } elsif ( $sw_os eq "Interix" ) {
 678           $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdfpar/libwrfio_nfpar.a -L$sw_netcdfpar_path/lib $sw_usenetcdff $sw_usenetcdf : ;
 679         } else {
 680           $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdfpar -lwrfio_nfpar -L$sw_netcdfpar_path/lib $sw_usenetcdff $sw_usenetcdf : ;
 681         }
 682          }
 683     else
 684       { $_ =~ s/CONFIGURE_WRFIO_NFPAR//g ;
 685         $_ =~ s:CONFIGURE_NETCDFPAR_FLAG::g ;
 686         $_ =~ s:CONFIGURE_NETCDFPAR_BUILD:echo SKIPPING: ;
 687         $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH::g ;
 688          }
 689
 690     if ( $sw_netcdf_path )
 691       { $_ =~ s/CONFIGURE_WRFIO_NF/wrfio_nf/g ;
 692         $_ =~ s:CONFIGURE_NETCDF_FLAG:-DNETCDF: ;
 693         if ( $ENV{NETCDF_LDFLAGS} ) {
 694           $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf/libwrfio_nf.a $ENV{NETCDF_LDFLAGS} : ;
 695         } elsif ( $sw_os eq "Interix" ) {
 696           $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf/libwrfio_nf.a -L$sw_netcdf_path/lib $sw_usenetcdff $sw_usenetcdf : ;
 697         } else {
 698           $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf -lwrfio_nf -L$sw_netcdf_path/lib $sw_usenetcdff $sw_usenetcdf : ;
 699         }
 700          }
 701     else
 702       { $_ =~ s/CONFIGURE_WRFIO_NF//g ;
 703         $_ =~ s:CONFIGURE_NETCDF_FLAG::g ;
 704         $_ =~ s:CONFIGURE_NETCDF_LIB_PATH::g ;
 705          }
 706
 707     if ( $sw_pnetcdf_path )
 708       { $_ =~ s/CONFIGURE_WRFIO_PNF/wrfio_pnf/g ;
 709         $_ =~ s:CONFIGURE_PNETCDF_FLAG:-DPNETCDF: ;
 710         if ( $sw_os eq "Interix" ) {
 711           $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_pnetcdf/libwrfio_pnf.a -L$sw_pnetcdf_path/lib -lpnetcdf: ;
 712         } else {
 713           $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_pnetcdf -lwrfio_pnf -L$sw_pnetcdf_path/lib -lpnetcdf: ;
 714         }
 715          }
 716     else
 717       { $_ =~ s/CONFIGURE_WRFIO_PNF//g ;
 718         $_ =~ s:CONFIGURE_PNETCDF_FLAG::g ;
 719         $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH::g ;
 720          }
 721
 722     if ( $sw_adios2_path )
 723       { $_ =~ s/CONFIGURE_WRFIO_ADIOS2/wrfio_adios2/g ;
 724         $_ =~ s:CONFIGURE_ADIOS2_FLAG:-DADIOS2: ;
 725         if ( -d "$sw_adios2_path/lib" )
 726           {
 727             $adios2_libdir = "$sw_adios2_path/lib" ;
 728           }
 729         elsif ( -d "$sw_adios2_path/lib64" )
 730           {
 731             $adios2_libdir = "$sw_adios2_path/lib64" ;
 732           }
 733         else
 734           {
 735             die "ADIOS2 environment variable was set, but neither $sw_adios2_path/lib nor $sw_adios2_path/lib64 were found." ;
 736           }
 737         $_ =~ s:CONFIGURE_ADIOS2_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_adios2 -lwrfio_adios2 -L$adios2_libdir -ladios2_fortran_mpi -ladios2_fortran:;
 738       }
 739     else
 740       { $_ =~ s/CONFIGURE_WRFIO_ADIOS2//g ;
 741               $_ =~ s:CONFIGURE_ADIOS2_FLAG::g ;
 742               $_ =~ s:CONFIGURE_ADIOS2_LIB_PATH::g ;
 743       }
 744
 745     if ( $sw_hdf5_path )
 746       { $_ =~ s:CONFIGURE_HDF5_LIB_PATH:-L$sw_hdf5_path/lib $sw_hdf5_hl_fortran -lhdf5_hl -lhdf5_fortran -lhdf5 -lm -lz: ;
 747         $_ =~ s:CONFIGURE_HDF5_FLAG:-DHDF5: ;
 748          }
 749     else
 750       { $_ =~ s:CONFIGURE_HDF5_LIB_PATH::g ;
 751         $_ =~ s:CONFIGURE_HDF5_FLAG::g ;
 752          }
 753
 754     if ( $sw_phdf5_path )
 755
 756       { $_ =~ s/CONFIGURE_WRFIO_PHDF5/wrfio_phdf5/g ;
 757         $_ =~ s:CONFIGURE_PHDF5_FLAG:-DPHDF5: ;
 758         $_ =~ s:CONFIGURE_PHDF5_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_phdf5 -lwrfio_phdf5 -L$sw_phdf5_path/lib -lhdf5_fortran -lhdf5 -lm -lz -L$sw_phdf5_path/lib -lsz: ;
 759          }
 760     else
 761       { $_ =~ s/CONFIGURE_WRFIO_PHDF5//g ;
 762         $_ =~ s:CONFIGURE_PHDF5_FLAG::g ;
 763         $_ =~ s:CONFIGURE_PHDF5_LIB_PATH::g ;
 764          }
 765
 766     if ( $sw_jasperlib_path && $sw_jasperinc_path )
 767       { $_ =~ s/CONFIGURE_WRFIO_GRIB2/wrfio_grib2/g ;
 768         $_ =~ s:CONFIGURE_GRIB2_FLAG:-DGRIB2:g ;
 769         $_ =~ s:CONFIGURE_GRIB2_INC:-I$sw_jasperinc_path:g ;
 770         $_ =~ s:CONFIGURE_GRIB2_LIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_grib2 -lio_grib2 -L$sw_jasperlib_path -ljasper:g ;
 771       }
 772     else
 773       { $_ =~ s/CONFIGURE_WRFIO_GRIB2//g ;
 774         $_ =~ s:CONFIGURE_GRIB2_FLAG::g ;
 775         $_ =~ s:CONFIGURE_GRIB2_INC::g ;
 776         $_ =~ s:CONFIGURE_GRIB2_LIB::g ;
 777       }
 778
 779    if ( $sw_terrain_and_landuse )
 780      {
 781         $_ =~ s/CONFIGURE_TERRAIN_AND_LANDUSE/$sw_terrain_and_landuse/g;
 782      }
 783    else
 784      {
 785        $_  =~ s:CONFIGURE_TERRAIN_AND_LANDUSE:-DLANDREAD_STUB=1:g;
 786      }
 787
 788     # ESMF substitutions in configure.defaults
 789     if ( $sw_esmflib_path && $sw_esmfinc_path )
 790       {
 791       $_ =~ s:CONFIGURE_ESMF_FLAG:-DESMFIO:g ;
 792 # pre 5.2.0r
 793 #      $_ =~ s:ESMFIOLIB:-L$sw_esmflib_path -lesmf -L\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf -lwrfio_esmf \$\(ESMF_LIB_FLAGS\):g ;
 794 #      $_ =~ s:ESMFIOEXTLIB:-L$sw_esmflib_path -lesmf -L\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf -lwrfio_esmf \$\(ESMF_LIB_FLAGS\):g ;
 795 # post 5.2.0r
 796       $_ =~ s:ESMFIOLIB:\$\(ESMF_F90LINKPATHS\) \$\(ESMF_F90ESMFLINKLIBS\) -L\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf -lwrfio_esmf: ;
 797       $_ =~ s:ESMFIOEXTLIB:\$\(ESMF_IO_LIB\): ;
 798
 799
 800       $_ =~ s:ESMFLIBFLAG:\$\(ESMF_LDFLAG\):g ;
 801 #      $_ =~ s:ESMFINCLUDEGOESHERE:'include $(ESMFLIB)/esmf.mk': ;
 802
 803       }
 804     else
 805       {
 806         $_ =~ s:CONFIGURE_ESMF_FLAG::g ;
 807         $_ =~ s:ESMFLIBFLAG::g ;
 808         if ( $sw_os eq "Interix" ) {
 809            $_ =~ s:ESMFIOLIB:\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90/libesmf_time.a:g ;
 810            $_ =~ s:ESMFIOEXTLIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90/libesmf_time.a:g ;
 811         } else {
 812            $_ =~ s:ESMFIOLIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90 -lesmf_time:g ;
 813            $_ =~ s:ESMFIOEXTLIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90 -lesmf_time:g ;
 814         }
 815       }
 816
 817     # CTSM substitutions in configure.defaults and postamble
 818     if ( $sw_ctsm_mkfile_path ) {
 819        $_ =~ s:CONFIGURE_D_CTSM:-DWRF_USE_CTSM:g ;
 820        $_ =~ s:CONFIGURE_CTSM_INC:\$\(CTSM_INCLUDES\):g ;
 821        $_ =~ s:CONFIGURE_CTSM_LIB:\$\(CTSM_LIBS\):g ;
 822     }
 823     else {
 824        $_ =~ s:CONFIGURE_D_CTSM:-DWRF_USE_CLM:g ;
 825        $_ =~ s:CONFIGURE_CTSM_INC::g ;
 826        $_ =~ s:CONFIGURE_CTSM_LIB::g ;
 827     }
 828
 829      if ( $ENV{HWRF} )
 830        {
 831         $_ =~ s:CONFIGURE_ATMOCN_LIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/atm_ocn  -latm_ocn:g ;
 832         $_ =~ s:CONFIGURE_ATMOCN_INC:-I\$\(WRF_SRC_ROOT_DIR\)/external/atm_ocn:g;
 833         $_ =~ s/CONFIGURE_ATMOCN/atm_ocn/g ;
 834        }
 835      else
 836        {
 837         $_ =~ s:CONFIGURE_ATMOCN_LIB::g ;
 838         $_ =~ s/CONFIGURE_ATMOCN//g ;
 839         $_ =~ s:CONFIGURE_ATMOCN_INC::g;
 840        }
 841      if ( $ENV{NETCDF4} )
 842        { if ( $ENV{NETCDF4} eq "1" )
 843            {
 844              if ( /(^ARCH_LOCAL.*=|^TRADFLAG.*=)/ )
 845                { $_  =~ s/\r|\n//g;
 846                  $_ .= " \$\(NETCDF4_IO_OPTS\)\n" ;
 847                }
 848              if (/^LIB.*=/)
 849                { $_  =~ s/(\\?)[\r\n]/ \$\(NETCDF4_DEP_LIB\)\1\n/g ;
 850                }
 851            }
 852        }
 853
 854     if ( ! (substr( $_, 0, 5 ) eq "#ARCH") ) { @machopts = ( @machopts, $_ ) ; }
 855     if ( substr( $_, 0, 10 ) eq "ENVCOMPDEF" )
 856     {
 857       @machopts = ( @machopts, "WRF_CHEM\t=\t$WRFCHEM \n" ) ;
 858     }
 859   }
 860
 861 # nesting support
 862 # 0 = no nesting (only selectable for serial and smpar)
 863 # 1 = basic nesting (serial and smpar compile with RSL_LITE and STUBMPI; dmpar and dm+sm use RSL_LITE and MPI)
 864 # 2 = nesting with prescribed moves  (add -DMOVE_NESTS to ARCHFLAGS)
 865 # 3 = nesting with prescribed moves  (add -DMOVE_NESTS and -DVORTEX_CENTER to ARCHFLAGS)
 866
 867   for $paropt ( @platforms )
 868   {
 869     if ( substr( $_, 0, 5 ) eq "#ARCH" && $latchon == 0
 870           && ( index( $_, $sw_os ) >= 0 ) && ( index( $_, $sw_mach ) >= 0 )
 871           && ( index($_, $paropt) >= 0 ) )
 872     {
 873       # We are cycling through the configure.defaults file again.
 874       # This bit tries to match the line corresponding to the option we previously selected.
 875       $x=substr($_,6) ;
 876       $x =~ s/#.*$//g ;
 877       chomp($x) ;
 878       $x = $x." (".$paropt.")" ;
 879       if ( $x eq $optarray[$optchoice] )
 880       {
 881
 882         if($ENV{WRF_HYDRO} eq 1) {
 883            $tt = `cd hydro; ./wrf_hydro_config "$x" "$paropt"`;
 884         }
 885
 886         $latchon = 1 ;
 887         $sw_ompparallel = "" ;
 888         $sw_dmparallel = "" ;
 889         $validresponse = 0 ;
 890         #only allow parallel netcdf if the user has chosen parallel option
 891         if ( $paropt ne 'dmpar' && $paropt ne 'dm+sm' ) { $sw_pnetcdf_path = "" ; }
 892         #
 893         until ( $validresponse ) {
 894           if ( $ENV{WRF_DA_CORE} eq "1" || $sw_da_core eq "-DDA_CORE=1" ) {
 895              $response = 1 ;
 896           } elsif ( $sw_wrfplus_core eq "-DWRFPLUS=1" ) {
 897              $response = 0 ;
 898           } elsif ( $ENV{HWRF} ) {
 899              printf "HWRF requires moving nests";
 900              $response = "2\n";
 901           } else {
 902              if ( $paropt eq 'serial' || $paropt eq 'smpar' ) {
 903                printf "Compile for nesting? (0=no nesting, 1=basic, 2=preset moves, 3=vortex following) [default 0]: " ;
 904              } elsif ( $ENV{WRF_NMM_CORE} eq "1" ) {
 905                printf "Compile for nesting? (1=basic, 2=preset moves) [default 1]: " ;
 906              } else {
 907                printf "Compile for nesting? (1=basic, 2=preset moves, 3=vortex following) [default 1]: " ;
 908              }
 909              $response = <STDIN> ;
 910              $lioapi = $lioapi_temp;
 911           }
 912           printf "\n" ;
 913           lc $response ;
 914           chop $response ;
 915           if ( $response == "" || ($response >= 0 && $response <= 3) )
 916             { $validresponse = 1 ; }
 917           else
 918             { printf("\nInvalid response (%d)\n",$response);}
 919         }
 920         if ( $response == "" ) {
 921           if ( ( $paropt eq 'serial' || $paropt eq 'smpar' ) ) { $response = 0 ; }
 922           else                                                 { $response = 1 ; }
 923         }
 924         if ( $response == 0 ) {
 925           if ( ! ( $paropt eq 'serial' || $paropt eq 'smpar' ) ) { $response = 1 ; }
 926         }
 927         $response_nesting = $response ;
 928         if ( ( $response == 1 ) || ( $response == 2 ) || ( $response == 3 ) ) {
 929           if ( ( $paropt eq 'serial' || $paropt eq 'smpar' ) ) {   # nesting without MPI
 930             $sw_stubmpi = "-DSTUBMPI" ;
 931             if ( $sw_os ne "CYGWIN_NT" ) {
 932               $sw_comms_lib = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a" ;
 933             } else {
 934               $sw_comms_lib = "../external/RSL_LITE/librsl_lite.a" ;
 935             }
 936             $sw_comms_external = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a gen_comms_rsllite module_dm_rsllite" ;
 937             $sw_dmparallel = "RSL_LITE" ;
 938             $sw_dmparallelflag = "-DDM_PARALLEL" ;
 939           }
 940         }
 941         if ( $response == 2 ) {
 942           $sw_nest_opt = "-DMOVE_NESTS" ;
 943           if ( $ENV{'TERRAIN_AND_LANDUSE'} eq "1" ) {
 944             $sw_terrain_and_landuse =" -DTERRAIN_AND_LANDUSE" ;
 945             $sw_nest_opt = $sw_nest_opt . $sw_terrain_and_landuse;
 946           }
 947         } elsif ( $response == 3 ) {
 948           $sw_nest_opt = "-DMOVE_NESTS -DVORTEX_CENTER" ;
 949           if ( $ENV{'TERRAIN_AND_LANDUSE'} eq "1" ) {
 950             $sw_terrain_and_landuse =" -DTERRAIN_AND_LANDUSE" ;
 951             $sw_nest_opt = $sw_nest_opt . $sw_terrain_and_landuse;
 952           }
 953         }
 954         if ( $paropt eq 'smpar' || $paropt eq 'dm+sm' ) { $sw_ompparallel = "OMP" ; }
 955         if ( $paropt eq 'dmpar' || $paropt eq 'dm+sm' ) {
 956           if ( $sw_os ne "CYGWIN_NT" ) {
 957             $sw_comms_lib = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a" ;
 958             if ( $sw_wrf_core eq "4D_DA_CORE" )
 959             {
 960               $sw_comms_lib = "\$(WRFPLUS_DIR)/external/RSL_LITE/librsl_lite.a" ;
 961             }
 962           } else {
 963             $sw_comms_lib = "../external/RSL_LITE/librsl_lite.a" ;
 964           }
 965           $sw_comms_external = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a gen_comms_rsllite module_dm_rsllite" ;
 966           $sw_dmparallel = "RSL_LITE" ;
 967           $sw_dmparallelflag = "-DDM_PARALLEL" ;
 968           $sw_fc = "\$(DM_FC)" ;
 969           $sw_cc = "\$(DM_CC)" ;
 970         }  # only one option in v3.0
 971
 972         $sw_ifort_r8 = 0 ;
 973         if ( index ( $x, "ifort" ) > -1 || index ( $x, "intel compiler" ) > -1 ) {
 974           if ( $sw_rwordsize == 8 ) {
 975             $sw_ifort_r8 = 1 ;
 976           }
 977         }
 978       }
 979     }
 980   }
 981 }
 982
 983 if ($latchon == 0) { # Never hurts to check that we actually found the option again.
 984   unlink "configure.wrf";
 985   print "\nERROR ERROR ERROR ERROR\n\n";
 986   print "SOMETHING TERRIBLE HAS HAPPENED: configure.wrf not created correctly.\n";
 987   print 'Check "$x" and "$optarray[$optchoice]"';
 988   die   "\n\nERROR ERROR ERROR ERROR\n\n";
 989 }
 990
 991 close CONFIGURE_DEFAULTS ;
 992 close POSTAMBLE ;
 993 close ARCH_NOOPT_EXCEPTIONS ;
 994
 995 if ( $wrf_cmaq_option eq 1 )
 996    { unlink "wrf_cmaq_path";
 997    }
 998
 999 open CONFIGURE_WRF, "> configure.wrf" or die "cannot append configure.wrf" ;
1000 open ARCH_PREAMBLE, "< arch/preamble" or die "cannot open arch/preamble" ;
1001 my @preamble;
1002 # apply substitutions to the preamble...
1003 while ( <ARCH_PREAMBLE> )
1004   {
1005     if ( $sw_os ne "CYGWIN_NT" ) {
1006       $_ =~ s/#NOWIN// ;
1007     }
1008   # ESMF substitutions in preamble
1009   if ( $sw_esmflib_path && $sw_esmfinc_path )
1010     {
1011     $_ =~ s/ESMFCOUPLING/1/g ;
1012     $_ =~ s:ESMFMODDEPENDENCE:\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf/module_utility.o:g ;
1013     $_ =~ s:ESMFMODINC:-I$sw_esmfinc_path -I\$\(WRF_SRC_ROOT_DIR\)/main:g ;
1014     $_ =~ s:ESMFIOINC:-I\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf:g ;
1015     $_ =~ s:ESMFIODEFS:-DESMFIO:g ;
1016     $_ =~ s:ESMFTARGET:wrfio_esmf:g ;
1017     $_ =~ s:\# ESMFINCLUDEGOESHERE:include \$\(ESMFLIB\)/esmf.mk: ;
1018
1019     }
1020   else
1021     {
1022     $_ =~ s/ESMFCOUPLING/0/g ;
1023     $_ =~ s:ESMFMODDEPENDENCE:\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90/module_utility.o:g ;
1024     $_ =~ s:ESMFMODINC::g ;
1025     $_ =~ s:ESMFIOINC:-I\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90:g ;
1026     $_ =~ s:ESMFIODEFS::g ;
1027     $_ =~ s:ESMFTARGET:esmf_time:g ;
1028     }
1029
1030   # CTSM substitutions in preamble
1031   if ( $sw_ctsm_mkfile_path ) {
1032      $_ =~ s:\# CTSMINCLUDEGOESHERE:include $sw_ctsm_mkfile_path: ;
1033   }
1034
1035   if ( $ENV{HWRF} )
1036     {
1037     $_ =~ s:CONFIGURE_ATMOCN_LIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/atm_ocn  -latm_ocn:g ;
1038     $_ =~ s/CONFIGURE_ATMOCN/atm_ocn/g ;
1039     }
1040   else
1041     {
1042     $_ =~ s:CONFIGURE_ATMOCN_LIB::g ;
1043     $_ =~ s/CONFIGURE_ATMOCN//g ;
1044     }
1045   $_ =~ s:CONFIGURE_EM_CORE:$sw_em_core:g ;
1046   $_ =~ s:CONFIGURE_DA_CORE:$sw_da_core:g ;
1047   $_ =~ s:CONFIGURE_WRFPLUS_CORE:$sw_wrfplus_core:g ;
1048   $_ =~ s:CONFIGURE_NMM_CORE:$sw_nmm_core:g ;
1049   $_ =~ s/CONFIGURE_CONFIG_LINE/$sw_config_line/g ;
1050   $_ =~ s/CONFIGURE_CONFIG_NUM/Compiler choice: $response_opt/g ;
1051   $_ =~ s/CONFIGURE_CONFIG_NEST/Nesting option: $response_nesting/g ;
1052
1053   $_ =~ s/CONFIGURE_NETCDF4_DEP_LIB/$sw_netcdf4_dep_lib/g ;
1054
1055     $_ =~ s/CONFIGURE_COMMS_LIB/$sw_comms_lib/g ;
1056     if ( $sw_os ne "CYGWIN_NT" ) {
1057       $_ =~ s/#NOWIN// ;
1058     }
1059
1060     if ( $sw_netcdfpar_path )
1061       { #print("set sw_netcdfpar_path stuff\n");
1062         $_ =~ s/CONFIGURE_WRFIO_NFPAR/wrfio_nfpar/g ;
1063         $_ =~ s:CONFIGURE_NETCDFPAR_FLAG:-DNETCDFPAR: ;
1064         if ( $ENV{NETCDFPAR_LDFLAGS} ) {
1065           $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdfpar/libwrfio_nfpar.a $ENV{NETCDFPAR_LDFLAGS} : ;
1066         } elsif ( $sw_os eq "Interix" ) {
1067           $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdfpar/libwrfio_nfpar.a -L$sw_netcdfpar_path/lib $sw_usenetcdff $sw_usenetcdf : ;
1068         } else {
1069           $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdfpar -lwrfio_nfpar -L$sw_netcdfpar_path/lib $sw_usenetcdff $sw_usenetcdf : ;
1070         }
1071          }
1072     else
1073       { $_ =~ s/CONFIGURE_WRFIO_NFPAR//g ;
1074         $_ =~ s:CONFIGURE_NETCDFPAR_FLAG::g ;
1075         $_ =~ s:CONFIGURE_NETCDFPAR_LIB_PATH::g ;
1076          }
1077
1078     if ( $sw_netcdf_path )
1079       { $_ =~ s/CONFIGURE_WRFIO_NF/wrfio_nf/g ;
1080         $_ =~ s:CONFIGURE_NETCDF_FLAG:-DNETCDF: ;
1081         if ( $ENV{NETCDF_LDFLAGS} ) {
1082           $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf/libwrfio_nf.a $ENV{NETCDF_LDFLAGS} : ;
1083         } elsif ( $sw_os eq "Interix" ) {
1084           $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf/libwrfio_nf.a -L$sw_netcdf_path/lib $sw_usenetcdff $sw_usenetcdf : ;
1085         } else {
1086           $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf -lwrfio_nf -L$sw_netcdf_path/lib $sw_usenetcdff $sw_usenetcdf : ;
1087         }
1088          }
1089     else
1090       { $_ =~ s/CONFIGURE_WRFIO_NF//g ;
1091         $_ =~ s:CONFIGURE_NETCDF_FLAG::g ;
1092         $_ =~ s:CONFIGURE_NETCDF_LIB_PATH::g ;
1093          }
1094
1095     if ( $sw_pnetcdf_path )
1096       { $_ =~ s/CONFIGURE_WRFIO_PNF/wrfio_pnf/g ;
1097         $_ =~ s:CONFIGURE_PNETCDF_FLAG:-DPNETCDF: ;
1098         if ( $sw_os eq "Interix" ) {
1099           $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_pnetcdf/libwrfio_pnf.a -L$sw_pnetcdf_path/lib -lpnetcdf: ;
1100         } else {
1101           $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_pnetcdf -lwrfio_pnf -L$sw_pnetcdf_path/lib -lpnetcdf: ;
1102         }
1103          }
1104     else
1105       { $_ =~ s/CONFIGURE_WRFIO_PNF//g ;
1106         $_ =~ s:CONFIGURE_PNETCDF_FLAG::g ;
1107         $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH::g ;
1108          }
1109
1110     if ( $sw_adios2_path )
1111       { $_ =~ s/CONFIGURE_WRFIO_ADIOS2/wrfio_adios2/g ;
1112         $_ =~ s:CONFIGURE_ADIOS2_FLAG:-DADIOS2: ;
1113         if ( -d "$sw_adios2_path/lib" )
1114           {
1115             $adios2_libdir = "$sw_adios2_path/lib" ;
1116           }
1117         elsif ( -d "$sw_adios2_path/lib64" )
1118           {
1119             $adios2_libdir = "$sw_adios2_path/lib64" ;
1120           }
1121         else
1122           {
1123             die "ADIOS2 environment variable was set, but neither $sw_adios2_path/lib nor $sw_adios2_path/lib64 were found." ;
1124           }
1125         $_ =~ s:CONFIGURE_ADIOS2_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_adios2 -lwrfio_adios2 -L$adios2_libdir -ladios2_fortran_mpi -ladios2_fortran:;
1126       }
1127     else
1128       { $_ =~ s/CONFIGURE_WRFIO_ADIOS2//g ;
1129               $_ =~ s:CONFIGURE_ADIOS2_FLAG::g ;
1130               $_ =~ s:CONFIGURE_ADIOS2_LIB_PATH::g ;
1131       }
1132
1133     if ( $sw_hdf5_path )
1134       { $_ =~ s:CONFIGURE_HDF5_LIB_PATH:-L$sw_hdf5_path/lib $sw_hdf5_hl_fortran -lhdf5_hl -lhdf5_fortran -lhdf5 -lm -lz: ;
1135         $_ =~ s:CONFIGURE_HDF5_FLAG:-DHDF5: ;
1136          }
1137     else
1138       { $_ =~ s:CONFIGURE_HDF5_LIB_PATH::g ;
1139         $_ =~ s:CONFIGURE_HDF5_FLAG::g ;
1140          }
1141
1142     if ( $sw_phdf5_path )
1143
1144       { $_ =~ s/CONFIGURE_WRFIO_PHDF5/wrfio_phdf5/g ;
1145         $_ =~ s:CONFIGURE_PHDF5_FLAG:-DPHDF5: ;
1146         $_ =~ s:CONFIGURE_PHDF5_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_phdf5 -lwrfio_phdf5 -L$sw_phdf5_path/lib -lhdf5_fortran -lhdf5 -lm -lz -L$sw_phdf5_path/lib -lsz: ;
1147          }
1148     else
1149       { $_ =~ s/CONFIGURE_WRFIO_PHDF5//g ;
1150         $_ =~ s:CONFIGURE_PHDF5_FLAG::g ;
1151         $_ =~ s:CONFIGURE_PHDF5_LIB_PATH::g ;
1152          }
1153
1154     if ( $sw_jasperlib_path && $sw_jasperinc_path )
1155       { $_ =~ s/CONFIGURE_WRFIO_GRIB2/wrfio_grib2/g ;
1156         $_ =~ s:CONFIGURE_GRIB2_FLAG:-DGRIB2:g ;
1157         $_ =~ s:CONFIGURE_GRIB2_INC:-I$sw_jasperinc_path:g ;
1158         $_ =~ s:CONFIGURE_GRIB2_LIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_grib2 -lio_grib2 -L$sw_jasperlib_path -ljasper:g ;
1159       }
1160     else
1161       { $_ =~ s/CONFIGURE_WRFIO_GRIB2//g ;
1162         $_ =~ s:CONFIGURE_GRIB2_FLAG::g ;
1163         $_ =~ s:CONFIGURE_GRIB2_INC::g ;
1164         $_ =~ s:CONFIGURE_GRIB2_LIB::g ;
1165       }
1166
1167   if ( $sw_gpfs_path ne "" )
1168     { if (/^GPFS.*=/)
1169         { $_  =~ s/\r|\n//g;
1170           if ( $sw_gpfs_path ne "DEFAULT" )
1171             { $_ .= " -L" . $sw_gpfs_path ; }
1172           $_ .= " " . $sw_gpfs_lib . "\n" ;
1173         }
1174     }
1175   if ( $sw_curl_path ne "" )
1176     { if (/^CURL.*=/)
1177         { $_  =~ s/\r|\n//g;
1178           if ( $sw_curl_path ne "DEFAULT" )
1179             { $_ .= " -L" . $sw_curl_path ; }
1180           $_ .= " " . $sw_curl_lib . "\n" ;
1181         }
1182     }
1183   if ( $sw_netcdf4_dep_lib ne "" )
1184     { if (/^HDF5.*=/)
1185         { $_  =~ s/\r|\n//g;
1186           $_ .= " " . $sw_hdf5 . "\n" ;
1187         }
1188       if (/^ZLIB.*=/)
1189         { $_  =~ s/\r|\n//g;
1190           $_ .= " " . $sw_zlib . "\n" ;
1191         }
1192     }
1193
1194   @preamble = ( @preamble, $_ ) ;
1195   }
1196 close ARCH_PREAMBLE ;
1197 print CONFIGURE_WRF @preamble  ;
1198 close ARCH_PREAMBLE ;
1199 printf CONFIGURE_WRF "# Settings for %s\n", $optarray[$optchoice] ;
1200 print CONFIGURE_WRF @machopts  ;
1201 print "$ENV{WRF_MARS}" ;
1202         if ( $ENV{WRF_MARS} || $ENV{WRF_TITAN} || $ENV{WRF_VENUS} )
1203 {
1204     open ARCH_PLANETAMBLE, "< arch/planetamble" or die "cannot open arch/planetamble" ;
1205     while ( <ARCH_PLANETAMBLE> ) { print CONFIGURE_WRF } ;
1206     close ARCH_PLANETAMBLE ;
1207 }
1208
1209 close CONFIGURE_WRF ;
1210
1211 printf "Configuration successful! \n" ;
1212 printf "------------------------------------------------------------------------\n" ;
1213