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

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

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


Revision 1.1 - (show annotations) (download)
Sat Aug 20 03:10:02 2016 UTC (3 years, 3 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, HEAD
Merge I/O code.

1 subroutine template()
2 use OAD_rev
3
4 !$TEMPLATE_PRAGMA_DECLARATIONS
5
6 type(modeType) :: our_orig_mode
7
8 c lovcal vars:
9
10 #ifdef OAD_DEBUG_SPLIT2
11
12 character*(80):: indentation='
13 + '
14 our_indent=our_indent+1
15
16 write(standardmessageunit, '(A,A,A)', ADVANCE='NO')
17 +'OAD:',indentation(1:our_indent), 'enter __SRNAME__:'
18 call oad_dump_revmod(); call oad_dump_tapestats()
19 write(standardmessageunit,*)
20 #endif
21
22 if (our_rev_mode%plain .OR. our_rev_mode%tape) then
23 #ifdef OAD_DEBUG_SPLIT2
24 write(standardmessageunit,'(A,A,A)')
25 +'OAD:',indentation(1:our_indent),
26 +' __SRNAME__: entering plain or tape'
27 #endif
28 c set up for plain execution
29 our_orig_mode=our_rev_mode
30 our_rev_mode%arg_store=.FALSE.
31 our_rev_mode%arg_restore=.FALSE.
32 our_rev_mode%plain=.TRUE.
33 our_rev_mode%tape=.FALSE.
34 our_rev_mode%adjoint=.FALSE.
35 call dummy_in_stepping( myTime, myIter, myThid )
36 c reset the mode
37 our_rev_mode=our_orig_mode
38 c copy back
39 end if
40 if (our_rev_mode%adjoint) then
41 #ifdef OAD_DEBUG_SPLIT2
42 write(standardmessageunit,'(A,A,A)')
43 +'OAD:',indentation(1:our_indent),
44 +' __SRNAME__: entering adjoint'
45 #endif
46 c set up for plain execution
47 our_orig_mode=our_rev_mode
48 our_rev_mode%arg_store=.FALSE.
49 our_rev_mode%arg_restore=.FALSE.
50 our_rev_mode%plain=.TRUE.
51 our_rev_mode%tape=.FALSE.
52 our_rev_mode%adjoint=.FALSE.
53 call addummy_in_stepping(myTime, myIter, myThid)
54 c reset the mode
55 our_rev_mode=our_orig_mode
56 c copy back
57 end if
58
59 #ifdef OAD_DEBUG_SPLIT2
60 write(standardmessageunit,'(A,A,A)', ADVANCE='NO')
61 +'OAD:',indentation(1:our_indent), 'leave __SRNAME__:'
62 call oad_dump_revmod(); call oad_dump_tapestats()
63 write(standardmessageunit,*)
64
65 our_indent=our_indent-1
66 #endif
67
68 end subroutine template

  ViewVC Help
Powered by ViewVC 1.1.22