____________________________________________________________________________________________

Description: coupler input_data_list may be incomplete
Date       : 2011-11-11
Contact    : tcraig
Information:

The coupling input data list in the case directory file
Buildconf/cpl.input_data_list does not always generate
a complete list of needed files.  The fix is as follows,

in models/drv/bld/cpl.template, delete

======

set mapfilevarname = (map_a2of_file map_a2os_file map_o2af_file map_o2as_file \
                 map_a2lf_file map_a2ls_file map_l2af_file map_l2as_file \
                 map_r2o_file)

set i = 0
foreach mapfile (\$map_a2of_file \$map_a2os_file \$map_o2af_file \$map_o2as_file \
                 \$map_a2lf_file \$map_a2ls_file \$map_l2af_file \$map_l2as_file \
                 \$map_r2o_file)
  @ i++
  if (\$mapfile != idmap) then
    if(-r "\$DIN_LOC_ROOT/\$mapfile") then
      set \$mapfilevarname[\$i] = \$DIN_LOC_ROOT/\$mapfile
      cat >> \$CASEBUILD/cpl.input_data_list << EOF
      \$mapfilevarname[\$i] = \$DIN_LOC_ROOT/\$mapfile
EOF
    else if(-r "\$DIN_LOC_ROOT/cpl/cpl6/\$mapfile") then
      set \$mapfilevarname[\$i] = \$DIN_LOC_ROOT/cpl/cpl6/\$mapfile
      cat >> \$CASEBUILD/cpl.input_data_list << EOF
      \$mapfilevarname[\$i] = \$DIN_LOC_ROOT/cpl/cpl6/\$mapfile
EOF

    endif
  endif
end

======

and replace it with

=======

set mapfilevarname = \
                  (map_a2of_file   map_a2os_file   map_o2af_file   map_o2as_file \
                   map_a2lf_file   map_a2ls_file   map_l2af_file   map_l2as_file \
                   map_r2o_file)

set i = 0
foreach mapfile (\$map_a2of_file \$map_a2os_file \$map_o2af_file \$map_o2as_file \
                 \$map_a2lf_file \$map_a2ls_file \$map_l2af_file \$map_l2as_file \
                 \$map_r2o_file)
  @ i++                
  if (\$mapfile != idmap) then  
    if (\$mapfile =~ *cpl/gridmaps*) then
       set mapdir = ""
    else
       if (\$mapfile =~ */*) then
          echo "ERROR: unsupported mapfile path \$mapfile"
          exit -9
       endif
       set mapdir = "cpl/cpl6/"
    endif
cat >> \$CASEBUILD/cpl.input_data_list << EOF
\$mapfilevarname[\$i] = \${DIN_LOC_ROOT}/\${mapdir}\${mapfile} 
EOF
    set \$mapfilevarname[\$i] = \${DIN_LOC_ROOT}/\${mapdir}\${mapfile} 
  endif
end