source: trunk/WRF.COMMON/WRFV3/arch/Config_new.pl @ 3094

Last change on this file since 3094 was 2775, checked in by aslmd, 2 years ago

modified the default configuration in WRFV3 arch so that executing configure creates a configure.wrf that is compliant with planetary applications directly without the need to patch. a by-product is that there no longer a weird mix of NETCDF env variable and harcoded stuff when patching, from now on setting the NETCDF environment variable is enough (as usually in WRF). the link to compiled LMDZ physics library is done through the libo_links folder that contains only ciclad right now but can be populated with configurations. for the moment the changes to default is only applicable to ifort cases but it is easy to broaden this to other cases by working on arch/configure_new.defaults.
File size: 18.7 KB
RevLine 
[2759]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$sw_perl_path = perl ;
9$sw_netcdf_path = "" ;
10$sw_pnetcdf_path = "" ;
11$sw_phdf5_path=""; 
12$sw_jasperlib_path=""; 
13$sw_jasperinc_path=""; 
14$sw_esmflib_path="";
15$sw_esmfinc_path="";
16$sw_ldflags=""; 
17$sw_compileflags=""; 
18$sw_opt_level=""; 
19$sw_rwordsize="\$\(NATIVE_RWORDSIZE\)";
20$sw_rttov_flag = "" ;
21$sw_rttov_inc = "" ;
22$sw_crtm_flag = "" ;
23$sw_crtm_inc = "" ;
24$WRFCHEM = 0 ;
25$sw_os = "ARCH" ;           # ARCH will match any
26$sw_mach = "ARCH" ;         # ARCH will match any
27$sw_wrf_core = "" ;
28$sw_da_core = "-DDA_CORE=\$\(WRF_DA_CORE\)" ;
29$sw_nmm_core = "-DNMM_CORE=\$\(WRF_NMM_CORE\)" ;
30$sw_em_core = "-DEM_CORE=\$\(WRF_EM_CORE\)" ;
31$sw_exp_core = "-DEXP_CORE=\$\(WRF_EXP_CORE\)" ;
32$sw_coamps_core = "-DCOAMPS_CORE=\$\(WRF_COAMPS_CORE\)" ;
33$sw_dmparallel = "" ;
34$sw_ompparallel = "" ;
35$sw_stubmpi = "" ;
[2775]36$sw_usenetcdff = "-lnetcdff" ;    # for 3.6.2 and greater, the fortran bindings might be in a separate lib file
[2759]37$sw_time = "" ;          # name of a timer to time fortran compiles, e.g. timex or time
38$sw_ifort_r8 = 0 ;
39
40while ( substr( $ARGV[0], 0, 1 ) eq "-" )
41 {
42  if ( substr( $ARGV[0], 1, 5 ) eq "perl=" )
43  {
44    $sw_perl_path = substr( $ARGV[0], 6 ) ;
45  }
46  if ( substr( $ARGV[0], 1, 7 ) eq "netcdf=" )
47  {
48    $sw_netcdf_path = substr( $ARGV[0], 8 ) ;
49  }
50  if ( substr( $ARGV[0], 1, 8 ) eq "pnetcdf=" )
51  {
52    $sw_pnetcdf_path = substr( $ARGV[0], 9 ) ;
53  }
54  if ( substr( $ARGV[0], 1, 6 ) eq "phdf5=" )
55  {
56    $sw_phdf5_path = substr( $ARGV[0], 7 ) ;
57  }
58  if ( substr( $ARGV[0], 1, 3 ) eq "os=" )
59  {
60    $sw_os = substr( $ARGV[0], 4 ) ;
61  }
62  if ( substr( $ARGV[0], 1, 5 ) eq "mach=" )
63  {
64    $sw_mach = substr( $ARGV[0], 6 ) ;
65  }
66  if ( substr( $ARGV[0], 1, 10 ) eq "opt_level=" )
67  {
68    $sw_opt_level = substr( $ARGV[0], 11 ) ;
69  }
[2775]70#  if ( substr( $ARGV[0], 1, 11 ) eq "USENETCDFF=" )
71#  {
72#    $sw_usenetcdff = substr( $ARGV[0], 12 ) ;
73#  }
[2759]74  if ( substr( $ARGV[0], 1, 5 ) eq "time=" )
75  {
76    $sw_time = substr( $ARGV[0], 6 ) ;
77  }
78  if ( substr( $ARGV[0], 1, 8 ) eq "ldflags=" )
79  {
80    $sw_ldflags = substr( $ARGV[0], 9 ) ;
81# multiple options separated by spaces are passed in from sh script
82# separated by ! instead. Replace with spaces here.
83    $sw_ldflags =~ s/!/ /g ;
84  }
85  if ( substr( $ARGV[0], 1, 9 ) eq "wrf_core=" )
86  {
87    $sw_wrf_core = substr( $ARGV[0], 10 ) ;
88    if ( index ( $sw_wrf_core , "EM_CORE" ) > -1 ) 
89    {
90      $sw_em_core = "-DEM_CORE=1" ;
91      $sw_da_core = "-DDA_CORE=0" ;
92      $sw_nmm_core = "-DNMM_CORE=0" ;
93      $sw_exp_core = "-DEXP_CORE=0" ;
94      $sw_coamps_core = "-DCOAMPS_CORE=0" ;
95    }
96    if ( index ( $sw_wrf_core , "DA_CORE" ) > -1 ) 
97    {
98      $sw_em_core = "-DEM_CORE=1" ;
99      $sw_da_core = "-DDA_CORE=1" ;
100      $sw_nmm_core = "-DNMM_CORE=0" ;
101      $sw_exp_core = "-DEXP_CORE=0" ;
102      $sw_coamps_core = "-DCOAMPS_CORE=0" ;
103    }
104    if ( index ( $sw_wrf_core , "NMM_CORE" ) > -1 ) 
105    {
106      $sw_em_core = "-DEM_CORE=0" ;
107      $sw_da_core = "-DDA_CORE=0" ;
108      $sw_nmm_core = "-DNMM_CORE=1" ;
109      $sw_exp_core = "-DEXP_CORE=0" ;
110      $sw_coamps_core = "-DCOAMPS_CORE=0" ;
111    }
112    if ( index ( $sw_wrf_core , "EXP_CORE" ) > -1 ) 
113    {
114      $sw_em_core = "-DEM_CORE=0" ;
115      $sw_da_core = "-DDA_CORE=0" ;
116      $sw_nmm_core = "-DNMM_CORE=0" ;
117      $sw_exp_core = "-DEXP_CORE=1" ;
118      $sw_coamps_core = "-DCOAMPS_CORE=0" ;
119    }
120    if ( index ( $sw_wrf_core , "COAMPS_CORE" ) > -1 ) 
121    {
122      $sw_em_core = "-DEM_CORE=0" ;
123      $sw_da_core = "-DDA_CORE=0" ;
124      $sw_nmm_core = "-DNMM_CORE=0" ;
125      $sw_exp_core = "-DEXP_CORE=0" ;
126      $sw_coamps_core = "-DCOAMPS_CORE=1" ;
127    }
128  }
129  if ( substr( $ARGV[0], 1, 13 ) eq "compileflags=" )
130  {
131    $sw_compileflags = substr( $ARGV[0], 14 ) ;
132    $sw_compileflags =~ s/!/ /g ;
133#   look for each known option
134    $where_index = index ( $sw_compileflags , "-DWRF_CHEM" ) ;
135    if ( $where_index eq -1 ) 
136    {
137      $WRFCHEM = 0 ;
138    }
139    else
140    {
141      $WRFCHEM = 1 ;
142    } 
143  }
144  if ( substr( $ARGV[0], 1, 11 ) eq "dmparallel=" )
145  {
146    $sw_dmparallel=substr( $ARGV[0], 12 ) ;
147  }
148  if ( substr( $ARGV[0], 1, 12 ) eq "ompparallel=" )
149  {
150    $sw_ompparallel=substr( $ARGV[0], 13 ) ;
151  }
152  shift @ARGV ;
153 }
154
155 $sw_fc = "\$(SFC)" ;
156 $sw_cc = "\$(SCC)" ;
157 $sw_comms_lib = "" ;
158 $sw_comms_include = "" ;
159 $sw_dmparallelflag = "" ;
160 $sw_nest_opt = "" ; 
161 $sw_comms_external = "gen_comms_serial module_dm_serial" ;
162
163 if ( $sw_dmparallel eq "RSL_LITE" ) 
164 {
165  $sw_fc = "\$(DM_FC)" ;
166  $sw_cc = "\$(DM_CC)" ;
167  $sw_dmparallelflag = "-DDM_PARALLEL" ;
168  $sw_comms_lib = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a" ;
169  $sw_comms_external = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a gen_comms_rsllite module_dm_rsllite" ;
170  $sw_comms_include = "-I\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE" ;
171 }
172
173# The jasper library is required to build Grib2 I/O.  User must set
174# environment variables JASPERLIB and JASPERINC to paths to library and
175# include files to enable this feature prior to running configure. 
176 if ( $ENV{JASPERLIB} && $ENV{JASPERINC} )
177   {
178   printf "Configuring to use jasper library to build Grib2 I/O...\n" ;
179   printf("  \$JASPERLIB = %s\n",$ENV{JASPERLIB});
180   printf("  \$JASPERINC = %s\n",$ENV{JASPERINC});
181   $sw_jasperlib_path = $ENV{JASPERLIB}; 
182   $sw_jasperinc_path = $ENV{JASPERINC}; 
183   }
184 else
185   {
186   printf "\$JASPERLIB or \$JASPERINC not found in environment, configuring to build without grib2 I/O...\n" ;
187   }
188
189# When compiling DA code, we need to always use 8-byte reals.
190 if ( $ENV{WRF_DA_CORE} eq "1" || $sw_da_core eq "-DDA_CORE=1" )
191   {
192     $sw_rwordsize = "8"; 
193     if ( $ENV{CRTM} )
194       {
195       $sw_crtm_flag = "-DCRTM";
196       $sw_crtm_inc = "-I$ENV{CRTM}/src";
197       }
198     if ( $ENV{RTTOV} )
199       {
200       $sw_rttov_flag = "-DRTTOV";
201       $sw_rttov_inc = "-I$ENV{RTTOV}/src";
202       }
203   }
204
205# A separately-installed ESMF library is required to build the ESMF
206# implementation of WRF IOAPI in external/io_esmf.  This is needed
207# to couple WRF with other ESMF components.  User must set environment
208# variables ESMFLIB and ESMFINC to paths ESMF to library and include
209# files to enable this feature prior to running configure.
210 if ( $ENV{ESMFLIB} && $ENV{ESMFINC} )
211   {
212   printf "Configuring to use ESMF library to build WRF...\n" ;
213   printf "WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING\n" ;
214   printf "WARNING:  THIS IS AN EXPERIMENTAL CONFIGURATION\n" ;
215   printf "WARNING:  IT DOES NOT WORK WITH NESTING\n" ;
216   printf "WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING\n" ;
217   printf("  \$ESMFLIB = %s\n",$ENV{ESMFLIB});
218   printf("  \$ESMFINC = %s\n",$ENV{ESMFINC});
219   $sw_esmflib_path = $ENV{ESMFLIB};
220   $sw_esmfinc_path = $ENV{ESMFINC};
221   $sw_esmf_ldflag = "yes" ;
222   }
223
224# parse the configure.wrf file
225
226$validresponse = 0 ;
227
228# Display the choices to the user and get selection
229until ( $validresponse ) {
230  printf "------------------------------------------------------------------------\n" ;
231  printf "Please select from among the following supported platforms.\n\n" ;
232
233  $opt = 1 ;
234  open CONFIGURE_DEFAULTS, "< ./arch/configure_new.defaults" 
235      or die "Cannot open ./arch/configure_new.defaults for reading" ;
236  while ( <CONFIGURE_DEFAULTS> )
237  {
238    for $paropt ( 'serial','smpar','dmpar','dm+sm' )
239    {
240      if ( substr( $_, 0, 5 ) eq "#ARCH"
241          && ( index( $_, $sw_os ) >= 0 ) && ( index( $_, $sw_mach ) >= 0 ) 
242          && ( index($_, $paropt) >= 0 ) )
243      {
244        $optstr[$opt] = substr($_,6) ;
245        $optstr[$opt] =~ s/^[   ]*// ;
246        $optstr[$opt] =~ s/#.*$//g ;
247        chomp($optstr[$opt]) ;
248        $optstr[$opt] = $optstr[$opt]." (".$paropt.")" ;
249        if ( substr( $optstr[$opt], 0,4 ) ne "NULL" )
250        {
251          printf "  %2d.  %s\n",$opt,$optstr[$opt] ;
252          $opt++ ;
253        }
254      }
255    }
256  }
257  close CONFIGURE_DEFAULTS ;
258
259  $opt -- ;
260
261  printf "\nEnter selection [%d-%d] : ",1,$opt ;
262  $response = <STDIN> ;
263
264  if ( $response == -1 ) { exit ; }
265
266  if ( $response >= 1 && $response <= $opt ) 
267  { $validresponse = 1 ; }
268  else
269  { printf("\nInvalid response (%d)\n",$response);}
270}
271printf "------------------------------------------------------------------------\n" ;
272
273$optchoice = $response ;
274
275open CONFIGURE_DEFAULTS, "cat ./arch/configure_new.defaults |"  ;
276$latchon = 0 ;
277while ( <CONFIGURE_DEFAULTS> )
278{
279  if ( substr( $_, 0, 5 ) eq "#ARCH" && $latchon == 1 )
280  {
281    close CONFIGURE_DEFAULTS ;
282    if ( $sw_opt_level eq "-f" ) {
283      open CONFIGURE_DEFAULTS, "cat ./arch/postamble_new ./arch/noopt_exceptions_f |"  or die "horribly" ;
284    } else {
285      open CONFIGURE_DEFAULTS, "cat ./arch/postamble_new ./arch/noopt_exceptions |"  or die "horribly" ;
286    }
287  }
288  if ( $latchon == 1 )
289  {
290    $_ =~ s/CONFIGURE_PERL_PATH/$sw_perl_path/g ;
291    $_ =~ s/CONFIGURE_NETCDF_PATH/$sw_netcdf_path/g ;
292    $_ =~ s/CONFIGURE_PNETCDF_PATH/$sw_pnetcdf_path/g ;
293    $_ =~ s/CONFIGURE_PHDF5_PATH/$sw_phdf5_path/g ;
294    $_ =~ s/CONFIGURE_LDFLAGS/$sw_ldflags/g ;
295    $_ =~ s/CONFIGURE_COMPILEFLAGS/$sw_compileflags/g ;
296    $_ =~ s/CONFIGURE_RWORDSIZE/$sw_rwordsize/g ;
297    $_ =~ s/CONFIGURE_FC/$sw_time $sw_fc/g ;
298    $_ =~ s/CONFIGURE_CC/$sw_cc/g ;
299    $_ =~ s/CONFIGURE_COMMS_LIB/$sw_comms_lib/g ;
300    $_ =~ s/CONFIGURE_COMMS_INCLUDE/$sw_comms_include/g ;
301    $_ =~ s/CONFIGURE_COMMS_EXTERNAL/$sw_comms_external/g ;
302    $_ =~ s/CONFIGURE_DMPARALLEL/$sw_dmparallelflag/g ;
303    $_ =~ s/CONFIGURE_STUBMPI/$sw_stubmpi/g ;
304    $_ =~ s/CONFIGURE_NESTOPT/$sw_nest_opt/g ;
305    $_ =~ s/CONFIGURE_CRTM_FLAG/$sw_crtm_flag/g ;
306    $_ =~ s/CONFIGURE_CRTM_INC/$sw_crtm_inc/g ;
307    $_ =~ s/CONFIGURE_RTTOV_FLAG/$sw_rttov_flag/g ;
308    $_ =~ s/CONFIGURE_RTTOV_INC/$sw_rttov_inc/g ;
309    if ( $sw_ifort_r8 ) {
310      $_ =~ s/^PROMOTION.*=/PROMOTION       =       -r8 /g ;
311    }
312    if ( $sw_dmparallel ne "" && ($_ =~ /^DMPARALLEL[=\t ]/) ) {
313       $_ =~ s/#// ;
314    }
315    if ( $sw_ompparallel ne "" && ( $_ =~ /^OMPCPP[=\t ]/ || $_ =~ /^OMP[=\t ]/ ) ) {
316       $_ =~ s/#// ;
317       $_ =~ s/#// ;
318    }
319    if ( $sw_netcdf_path ) 
320      { $_ =~ s/CONFIGURE_WRFIO_NF/wrfio_nf/g ;
321        $_ =~ s:CONFIGURE_NETCDF_FLAG:-DNETCDF: ;
322        if ( $sw_os == Interix ) {
[2775]323          $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf/libwrfio_nf.a -L$sw_netcdf_path/lib -lnetcdf $sw_usenetcdff $sw_netcdf_path/lib/libnetcdf.a : ;
[2759]324        } else {
[2775]325          $_ =~ s:CONFIGURE_NETCDF_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_netcdf -lwrfio_nf -L$sw_netcdf_path/lib -lnetcdf $sw_usenetcdff $sw_netcdf_path/lib/libnetcdf.a : ;
[2759]326        }
327         }
328    else                   
329      { $_ =~ s/CONFIGURE_WRFIO_NF//g ;
330        $_ =~ s:CONFIGURE_NETCDF_FLAG::g ;
331        $_ =~ s:CONFIGURE_NETCDF_LIB_PATH::g ;
332         }
333
334    if ( $sw_pnetcdf_path ) 
335      { $_ =~ s/CONFIGURE_WRFIO_PNF/wrfio_pnf/g ;
336        $_ =~ s:CONFIGURE_PNETCDF_FLAG:-DPNETCDF: ;
337        if ( $sw_os == Interix ) {
338          $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH:\$\(WRF_SRC_ROOT_DIR\)/external/io_pnetcdf/libwrfio_pnf.a -L$sw_pnetcdf_path/lib -lpnetcdf: ;
339        } else {
340          $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_pnetcdf -lwrfio_pnf -L$sw_pnetcdf_path/lib -lpnetcdf: ;
341        }
342         }
343    else                   
344      { $_ =~ s/CONFIGURE_WRFIO_PNF//g ;
345        $_ =~ s:CONFIGURE_PNETCDF_FLAG::g ;
346        $_ =~ s:CONFIGURE_PNETCDF_LIB_PATH::g ;
347         }
348
349    if ( $sw_phdf5_path ) 
350
351      { $_ =~ s/CONFIGURE_WRFIO_PHDF5/wrfio_phdf5/g ;
352        $_ =~ s:CONFIGURE_PHDF5_FLAG:-DPHDF5: ;
353        $_ =~ 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: ;
354         }
355    else                   
356      { $_ =~ s/CONFIGURE_WRFIO_PHDF5//g ;
357        $_ =~ s:CONFIGURE_PHDF5_FLAG::g ;
358        $_ =~ s:CONFIGURE_PHDF5_LIB_PATH::g ;
359         }
360
361    if ( $sw_jasperlib_path && $sw_jasperinc_path ) 
362      { $_ =~ s/CONFIGURE_WRFIO_GRIB2/wrfio_grib2/g ;
363        $_ =~ s:CONFIGURE_GRIB2_FLAG:-DGRIB2:g ;
364        $_ =~ s:CONFIGURE_GRIB2_INC:-I$sw_jasperinc_path:g ;
365        $_ =~ s:CONFIGURE_GRIB2_LIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/io_grib2 -lio_grib2 -L$sw_jasperlib_path -ljasper:g ;
366      }
367    else                   
368      { $_ =~ s/CONFIGURE_WRFIO_GRIB2//g ;
369        $_ =~ s:CONFIGURE_GRIB2_FLAG::g ;
370        $_ =~ s:CONFIGURE_GRIB2_INC::g ;
371        $_ =~ s:CONFIGURE_GRIB2_LIB::g ;
372      }
373
374
375    # ESMF substitutions in configure.defaults
376    if ( $sw_esmflib_path && $sw_esmfinc_path )
377      {
378      $_ =~ s:CONFIGURE_ESMF_FLAG:-DESMFIO:g ;
379      $_ =~ s:ESMFIOLIB:-L$sw_esmflib_path -lesmf -L\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf -lwrfio_esmf \$\(ESMF_LIB_FLAGS\):g ;
380      $_ =~ s:ESMFIOEXTLIB:-L$sw_esmflib_path -lesmf -L\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf -lwrfio_esmf \$\(ESMF_LIB_FLAGS\):g ;
381      $_ =~ s:ESMFLIBFLAG:\$\(ESMF_LDFLAG\):g ;
382      }
383    else
384      {
385        $_ =~ s:CONFIGURE_ESMF_FLAG::g ;
386        $_ =~ s:ESMFLIBFLAG::g ;
387        if ( $sw_os == Interix ) {
388           $_ =~ s:ESMFIOLIB:\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90/libesmf_time.a:g ;
389           $_ =~ s:ESMFIOEXTLIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90/libesmf_time.a:g ;
390        } else {
391           $_ =~ s:ESMFIOLIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90 -lesmf_time:g ;
392           $_ =~ s:ESMFIOEXTLIB:-L\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90 -lesmf_time:g ;
393        }
394      }
395
396    if ( ! (substr( $_, 0, 5 ) eq "#ARCH") ) { @machopts = ( @machopts, $_ ) ; }
397    if ( substr( $_, 0, 10 ) eq "ENVCOMPDEF" )
398    {
399      @machopts = ( @machopts, "WRF_CHEM\t=\t$WRFCHEM \n" ) ;
400    }
401  }
402
403# nesting support
404# 0 = no nesting (only selectable for serial and smpar)
405# 1 = basic nesting (serial and smpar compile with RSL_LITE and STUBMPI; dmpar and dm+sm use RSL_LITE and MPI)
406# 2 = nesting with prescribed moves  (add -DMOVE_NESTS to ARCHFLAGS)
407# 3 = nesting with prescribed moves  (add -DMOVE_NESTS and -DVORTEX_CENTER to ARCHFLAGS)
408
409  for $paropt ( 'serial','smpar','dmpar','dm+sm' )
410  {
411    if ( substr( $_, 0, 5 ) eq "#ARCH" && $latchon == 0 
412          && ( index( $_, $sw_os ) >= 0 ) && ( index( $_, $sw_mach ) >= 0 ) 
413          && ( index($_, $paropt) >= 0 ) )
414    {
415      $x=substr($_,6) ;
416      $x=~s/^[     ]*// ;
417      $x =~ s/#.*$//g ;
418      chomp($x) ;
419      $x = $x." (".$paropt.")" ;
420      if ( $x eq $optstr[$optchoice] )
421      {
422        $latchon = 1 ;
423        $sw_ompparallel = "" ;
424        $sw_dmparallel = "" ;
425        $validresponse = 0 ;
426        #only allow parallel netcdf if the user has chosen parallel option
427        if ( $paropt ne 'dmpar' && $paropt ne 'dm+sm' ) { $sw_pnetcdf_path = "" ; }
428        #
429        until ( $validresponse ) {
430          if ( $paropt eq 'serial' || $paropt eq 'smpar' ) {
431            printf "Compile for nesting? (0=no nesting, 1=basic, 2=preset moves, 3=vortex following) [default 0]: " ;
432          } else {
433            printf "Compile for nesting? (1=basic, 2=preset moves, 3=vortex following) [default 1]: " ;
434          }
435          $response = <STDIN> ;
436          printf "\n" ;
437          lc $response ;
438          chop $response ;
439          if ( $response == "" || ($response >= 0 && $response <= 3) )
440            { $validresponse = 1 ; }
441          else
442            { printf("\nInvalid response (%d)\n",$response);}
443        }
444        if ( $response == "" ) { 
445          if ( ( $paropt eq 'serial' || $paropt eq 'smpar' ) ) { $response = 0 ; }
446          else                                                 { $response = 1 ; }
447        }
448        if ( $response == 0 ) {
449          if ( ! ( $paropt eq 'serial' || $paropt eq 'smpar' ) ) { $response = 1 ; }
450        } 
451        if ( ( $response == 1 ) || ( $response == 2 ) || ( $response == 3 ) ) {
452          if ( ( $paropt eq 'serial' || $paropt eq 'smpar' ) ) {   # nesting without MPI
453            $sw_stubmpi = "-DSTUBMPI" ;
454            $sw_comms_lib = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a" ;
455            $sw_comms_external = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a gen_comms_rsllite module_dm_rsllite" ;
456            $sw_dmparallel = "RSL_LITE" ;
457            $sw_dmparallelflag = "-DDM_PARALLEL" ;
458          }
459        } 
460        if ( $response == 2 ) {
461          $sw_nest_opt = "-DMOVE_NESTS" ; 
462        } elsif ( $response == 3 ) {
463          $sw_nest_opt = "-DMOVE_NESTS -DVORTEX_CENTER" ; 
464        }
465        if ( $paropt eq 'smpar' || $paropt eq 'dm+sm' ) { $sw_ompparallel = "OMP" ; }
466        if ( $paropt eq 'dmpar' || $paropt eq 'dm+sm' ) { 
467          $sw_comms_lib = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a" ;
468          $sw_comms_external = "\$(WRF_SRC_ROOT_DIR)/external/RSL_LITE/librsl_lite.a gen_comms_rsllite module_dm_rsllite" ;
469          $sw_dmparallel = "RSL_LITE" ;
470          $sw_dmparallelflag = "-DDM_PARALLEL" ;
471          $sw_fc = "\$(DM_FC)" ;
472          $sw_cc = "\$(DM_CC)" ;
473        }  # only one option in v3.0
474
475        $sw_ifort_r8 = 0 ;
476        if ( index ( $x, "ifort" ) > -1 || index ( $x, "intel compiler" ) > -1 ) {
477          if ( $sw_rwordsize == 8 ) {
478            $sw_ifort_r8 = 1 ;
479          }
480        }
481      }
482    }
483  }
484}
485close CONFIGURE_DEFAULTS ;
486close POSTAMBLE ;
487close ARCH_NOOPT_EXCEPTIONS ;
488
489open CONFIGURE_WRF, "> configure.wrf" or die "cannot append configure.wrf" ;
490open ARCH_PREAMBLE, "< arch/preamble_new" or die "cannot open arch/preamble_new" ;
491my @preamble;
492# apply substitutions to the preamble...
493while ( <ARCH_PREAMBLE> )
494  {
495  # ESMF substitutions in preamble
496  if ( $sw_esmflib_path && $sw_esmfinc_path )
497    {
498    $_ =~ s/ESMFCOUPLING/1/g ;
499    $_ =~ s:ESMFMODDEPENDENCE:\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf/module_utility.o:g ;
500    $_ =~ s:ESMFMODINC:-I$sw_esmfinc_path -I\$\(WRF_SRC_ROOT_DIR\)/main:g ;
501    $_ =~ s:ESMFIOINC:-I\$\(WRF_SRC_ROOT_DIR\)/external/io_esmf:g ;
502    $_ =~ s:ESMFIODEFS:-DESMFIO:g ;
503    $_ =~ s:ESMFTARGET:wrfio_esmf:g ;
504    }
505  else
506    {
507    $_ =~ s/ESMFCOUPLING/0/g ;
508    $_ =~ s:ESMFMODDEPENDENCE:\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90/module_utility.o:g ;
509    $_ =~ s:ESMFMODINC::g ;
510    $_ =~ s:ESMFIOINC:-I\$\(WRF_SRC_ROOT_DIR\)/external/esmf_time_f90:g ;
511    $_ =~ s:ESMFIODEFS::g ;
512    $_ =~ s:ESMFTARGET:esmf_time:g ;
513    }
514  $_ =~ s:CONFIGURE_EM_CORE:$sw_em_core:g ;
515  $_ =~ s:CONFIGURE_DA_CORE:$sw_da_core:g ;
516  $_ =~ s:CONFIGURE_NMM_CORE:$sw_nmm_core:g ;
517  $_ =~ s:CONFIGURE_COAMPS_CORE:$sw_coamps_core:g ;
518  $_ =~ s:CONFIGURE_EXP_CORE:$sw_exp_core:g ;
519
520  @preamble = ( @preamble, $_ ) ;
521  }
522close ARCH_PREAMBLE ;
523print CONFIGURE_WRF @preamble  ;
524close ARCH_PREAMBLE ;
525printf CONFIGURE_WRF "# Settings for %s\n", $optstr[$optchoice] ;
526print CONFIGURE_WRF @machopts  ;
527print "$ENV{WRF_MARS}" ;
528if ( $ENV{WRF_MARS} || $ENV{WRF_TITAN} || $ENV{WRF_VENUS} )
529{
530    open ARCH_PLANETAMBLE, "< arch/planetamble" or die "cannot open arch/planetamble" ;
531    while ( <ARCH_PLANETAMBLE> ) { print CONFIGURE_WRF } ;
532    close ARCH_PLANETAMBLE ;
533}
534
535close CONFIGURE_WRF ;
536
537printf "Configuration successful. To build the model type compile . \n" ;
538printf "------------------------------------------------------------------------\n" ;
539
540
Note: See TracBrowser for help on using the repository browser.