/[MITgcm]/MITgcm/tools/OAD_support/ad_template.split.F
ViewVC logotype

Contents of /MITgcm/tools/OAD_support/ad_template.split.F

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


Revision 1.1 - (show annotations) (download)
Thu Sep 20 23:12:47 2012 UTC (11 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64a, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64c, checkpoint64g, checkpoint64f, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD
* Merge OAD_support from MITgcm_contrib/heimbach/OpenAD/OAD_support/
  to tools/OAD_support/
* Adjust genmake2 to reflect path change (attempt with ${OADTOOLS})
* Adjust insertTemplateDir.bash to reflect path change
Seems to work.

1 subroutine template()
2 use OAD_cp
3 use OAD_tape
4 use OAD_rev
5
6 !$TEMPLATE_PRAGMA_DECLARATIONS
7
8 integer :: cp_loop_variable_1,cp_loop_variable_2,
9 + cp_loop_variable_3,cp_loop_variable_4
10
11 integer iaddr
12 external iaddr
13
14 #ifdef OAD_DEBUG_SPLIT1
15 character*(80):: indentation='
16 + '
17 our_indent=our_indent+1
18
19 write(standardmessageunit, '(A,A,A)', ADVANCE='NO')
20 +'OAD:',indentation(1:our_indent), 'enter __SRNAME__:'
21 call oad_dump_revmod(); call oad_dump_tapestats()
22 write(standardmessageunit,*)
23 #endif
24
25 if (our_rev_mode%plain) then
26 #ifdef OAD_DEBUG_SPLIT1
27 write(standardmessageunit,'(A,A,A)')
28 +'OAD:',indentation(1:our_indent),
29 +' __SRNAME__: entering plain'
30 #endif
31 !$PLACEHOLDER_PRAGMA$ id=1
32 end if
33 if (our_rev_mode%tape .and..not.our_rev_mode%strictAnonymous) then
34 #ifdef OAD_DEBUG_SPLIT1
35 write(standardmessageunit,'(A,A,A)')
36 +'OAD:',indentation(1:our_indent),
37 +' __SRNAME__: entering tape'
38 #endif
39 !$PLACEHOLDER_PRAGMA$ id=2
40 end if
41 if (our_rev_mode%adjoint
42 +.and. .not.our_rev_mode%strictAnonymous) then
43 #ifdef OAD_DEBUG_SPLIT1
44 write(standardmessageunit,'(A,A,A)')
45 +'OAD:',indentation(1:our_indent),
46 +' __SRNAME__: entering adjoint'
47 #endif
48 !$PLACEHOLDER_PRAGMA$ id=3
49 end if
50 if (our_rev_mode%tape .and. our_rev_mode%strictAnonymous) then
51 #ifdef OAD_DEBUG_SPLIT1
52 write(standardmessageunit,'(A,A,A)')
53 +'OAD:',indentation(1:our_indent),
54 +' __SRNAME__: entering sa tape'
55 #endif
56 !$PLACEHOLDER_PRAGMA$ id=10
57 end if
58 if (our_rev_mode%adjoint
59 +.and. our_rev_mode%strictAnonymous) then
60 #ifdef OAD_DEBUG_SPLIT1
61 write(standardmessageunit,'(A,A,A)')
62 +'OAD:',indentation(1:our_indent),
63 +' __SRNAME__: entering sa adjoint'
64 #endif
65 !$PLACEHOLDER_PRAGMA$ id=11
66 end if
67
68 #ifdef OAD_DEBUG_SPLIT1
69 write(standardmessageunit,'(A,A,A)', ADVANCE='NO')
70 +'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
71 call oad_dump_revmod(); call oad_dump_tapestats()
72 write(standardmessageunit,*)
73
74 our_indent=our_indent-1
75 #endif
76
77 end subroutine template

  ViewVC Help
Powered by ViewVC 1.1.22