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

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

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


Revision 1.1 - (show annotations) (download)
Mon Mar 21 07:50:18 2016 UTC (8 years ago) by dgoldberg
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65v, checkpoint65w, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, HEAD
ensure streamice_cg_make_a runs in anonymous mode to avoid large integer tape growth

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) 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) then
42 #ifdef OAD_DEBUG_SPLIT1
43 write(standardmessageunit,'(A,A,A)')
44 +'OAD:',indentation(1:our_indent),
45 +' __SRNAME__: entering adjoint'
46 #endif
47 !$PLACEHOLDER_PRAGMA$ id=3
48 end if
49
50 #ifdef OAD_DEBUG_SPLIT1
51 write(standardmessageunit,'(A,A,A)', ADVANCE='NO')
52 +'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
53 call oad_dump_revmod(); call oad_dump_tapestats()
54 write(standardmessageunit,*)
55
56 our_indent=our_indent-1
57 #endif
58
59 end subroutine template

  ViewVC Help
Powered by ViewVC 1.1.22