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

Contents 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 - (show 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 #! /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 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 ;;
18 "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 "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