/[MITgcm]/MITgcm/tools/OAD_support/insertTemplateDir.bash
ViewVC logotype

Annotation of /MITgcm/tools/OAD_support/insertTemplateDir.bash

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.13 - (hide annotations) (download)
Mon Mar 2 18:16:02 2015 UTC (9 years ago) by dgoldberg
Branch: MAIN
CVS Tags: checkpoint65k, checkpoint65l, checkpoint65m
Changes since 1.12: +3 -0 lines
add files to allow residual-based fwd loop termination

1 jmc 1.3 #! /usr/bin/env bash
2     OADTOOLS=`dirname $0`
3     #OADTOOLS=`awk '{print $1 }' < oadtempflile`
4 heimbach 1.1 echo "#generated file" > temp.sed
5     for i in `grep '^ *SUBROUTINE ' $1 | awk '{print $2}'`
6 jmc 1.3 do
7 heimbach 1.1 # extract the name
8     srName=${i%%\(*}
9     echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed
10 jmc 1.3 case "$srName" in
11 utke 1.2 "OpenAD_main_do_loop" )
12 jahn 1.4 echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
13 heimbach 1.1 ;;
14 jmc 1.3 "OpenAD_cg2d" )
15 jahn 1.4 echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
16 heimbach 1.1 ;;
17 utke 1.7 "OpenAD_streamice_cg_solve" )
18     echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
19     ;;
20 heimbach 1.11 "OpenAD_active_read_xyz" )
21     echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
22     ;;
23 heimbach 1.8 "OpenAD_active_read_xy" )
24 heimbach 1.9 echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
25 heimbach 1.8 ;;
26 heimbach 1.10 "OpenAD_active_write_xy" )
27     echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed
28     ;;
29 dgoldberg 1.12 "OpenAD_streamice_vel_phistage" )
30     echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed
31     ;;
32     "OpenAD_streamice_get_fp_err_oad" )
33     echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed
34     ;;
35 dgoldberg 1.13 "OpenAD_streamice_get_vel_resid_err_oad" )
36     echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed
37     ;;
38 heimbach 1.1 "OpenAD_exch1_rl" | \
39     "OpenAD_exch1_rs" | \
40 jmc 1.3 "OpenAD_global_max_r8" | \
41 jahn 1.5 "OpenAD_global_sum_r8" | \
42     "OpenAD_global_sum_tile_rl" )
43 heimbach 1.1 tmpName=${srName#OpenAD_}
44 jahn 1.4 echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
45 heimbach 1.1 ;;
46 jmc 1.3 *)
47 jahn 1.4 echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
48 heimbach 1.1 ;;
49     esac
50     done
51     cat $1 | sed -f temp.sed > $2

  ViewVC Help
Powered by ViewVC 1.1.22