chem/KPP/util/create_inc_files.csh

   1 #!/bin/csh -f
   2
   3
   4 if ( $#argv != 1 ) then
   5 echo Usage: create_inc_files.csh name_of_mechanism
   6 endif
   7
   8 set model =  $argv[1]
   9 set incm_dir = inc/${model}
  10
  11
  12 # make directory (if not already there)
  13    if ( ! -e inc/${model} ) then
  14     mkdir ${incm_dir}
  15    endif
  16
  17
  18 # if not already there, then put empty .inc files into directory
  19
  20     set inc_list = "u l b a ibu ib ia e"
  21
  22     foreach inam ( $inc_list )
  23        if (! -e ${incm_dir}/kpp_mechd_${inam}_${model}.inc ) then
  24           echo ! > ${incm_dir}/kpp_mechd_${inam}_${model}.inc
  25        endif
  26     end
  27
  28     if (! -e ${incm_dir}/extra_args_to_update_rconst_${model}.inc ) then
  29           echo ! > ${incm_dir}/extra_args_to_update_rconst_${model}.inc
  30     endif
  31
  32
  33     if (! -e ${incm_dir}/extra_args_update_rconst_${model}.inc ) then
  34           echo ! > ${incm_dir}/extra_args_update_rconst_${model}.inc
  35     endif
  36
  37     if (! -e ${incm_dir}/extra_decls_update_rconst_${model}.inc ) then
  38           echo ! > ${incm_dir}/extra_decls_update_rconst_${model}.inc
  39     endif
  40
  41
  42
  43 # link .inc files in chem/KPP/$(model)/inc
  44
  45
  46 set kincfiles = ( ${incm_dir}/*.inc )
  47
  48
  49
  50 foreach kincfile ( $kincfiles )
  51
  52  set incf = `echo $kincfile:t`
  53
  54
  55  if ( ! -e ${WRFC_ROOT}/inc/${incf} ) then
  56
  57    echo ln -s ../chem/${WKC_DIRNAME}/${kincfile}  ${WRFC_ROOT}/inc
  58    ln -s ../chem/${WKC_DIRNAME}/${kincfile}  ${WRFC_ROOT}/inc
  59
  60  endif
  61
  62 end
  63
  64
  65
  66 exit 0