/[MITgcm]/MITgcm_contrib/snarayan/divided_adjoint/tools/OAD_support/insertTemplateDir.bash
ViewVC logotype

Annotation of /MITgcm_contrib/snarayan/divided_adjoint/tools/OAD_support/insertTemplateDir.bash

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


Revision 1.3 - (hide annotations) (download)
Sun Jul 26 20:25:36 2015 UTC (11 years, 1 month ago) by snarayan
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +7 -0 lines
Changes for restarting the adjoint model with OpenAD DIVA.

1 snarayan 1.1 #! /usr/bin/env bash
2     OADTOOLS=`dirname $0`
3     #OADTOOLS=`awk '{print $1 }' < oadtempflile`
4     echo "#generated file" > temp.sed
5     for i in `grep '^ *SUBROUTINE ' $1 | awk '{print $2}'`
6     do
7     # extract the name
8     srName=${i%%\(*}
9     echo "/^ *SUBROUTINE $srName(/i\\" >> temp.sed
10     case "$srName" in
11     "OpenAD_main_do_loop" )
12 snarayan 1.2 if [ -z ${ALLOW_OPENAD_DIVA+x} ]; then
13     echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
14     else
15     echo "c\$openad XXX Template ad_template.regular.f" >> temp.sed
16     fi
17 snarayan 1.1 ;;
18 snarayan 1.3 "OpenAD_the_main_loop" )
19     if [ -z ${ALLOW_OPENAD_DIVA+x} ]; then
20     echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
21     else
22     echo "c\$openad XXX Template ad_template.the_main_loop.f" >> temp.sed
23     fi
24     ;;
25 snarayan 1.1 "OpenAD_inner_do_loop" )
26     echo "c\$openad XXX Template ad_template.revolve.f" >> temp.sed
27     ;;
28     "OpenAD_cg2d" )
29     echo "c\$openad XXX Template ad_template.sa_cg2d.f" >> temp.sed
30     ;;
31     "OpenAD_streamice_cg_solve" )
32     echo "c\$openad XXX Template ad_template.streamice_cg_solve.f" >> temp.sed
33     ;;
34     "OpenAD_active_read_xyz" )
35     echo "c\$openad XXX Template ad_template.active_read_xyz.f" >> temp.sed
36     ;;
37     "OpenAD_active_read_xy" )
38     echo "c\$openad XXX Template ad_template.active_read_xy.f" >> temp.sed
39     ;;
40     "OpenAD_active_write_xy" )
41     echo "c\$openad XXX Template ad_template.active_write_xy.f" >> temp.sed
42     ;;
43     "OpenAD_streamice_vel_phistage" )
44     echo "c\$openad XXX Template ad_template.streamice_vel_phistage.f" >> temp.sed
45     ;;
46     "OpenAD_streamice_get_fp_err_oad" )
47     echo "c\$openad XXX Template ad_template.streamice_get_fp_err_oad.f" >> temp.sed
48     ;;
49     "OpenAD_streamice_get_vel_resid_err_oad" )
50     echo "c\$openad XXX Template ad_template.streamice_get_vel_resid_err_oad.f" >> temp.sed
51     ;;
52     "OpenAD_exch1_rl" | \
53     "OpenAD_exch1_rs" | \
54     "OpenAD_global_max_r8" | \
55     "OpenAD_global_sum_r8" | \
56     "OpenAD_global_sum_tile_rl" )
57     tmpName=${srName#OpenAD_}
58     echo "c\$openad XXX Template ad_template.${tmpName}.f" >> temp.sed
59     ;;
60     *)
61     echo "c\$openad XXX Template ad_template.split.f" >> temp.sed
62     ;;
63     esac
64     done
65     cat $1 | sed -f temp.sed > $2

  ViewVC Help
Powered by ViewVC 1.1.22