/[MITgcm]/MITgcm/verification/OpenAD/code_ad/ad_template.checkpoint.f
ViewVC logotype

Diff of /MITgcm/verification/OpenAD/code_ad/ad_template.checkpoint.f

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

revision 1.3 by utke, Thu Dec 8 18:01:51 2005 UTC revision 1.4 by utke, Sat Dec 10 17:44:23 2005 UTC
# Line 54  c we may need these for the checkpointin Line 54  c we may need these for the checkpointin
54    
55        our_indent=our_indent+1        our_indent=our_indent+1
56    
57  c      write(*,'(A,A,L,L,L,L,L)')        write(*,'(A,A,A,L,L,L,L,L)')
58  c     +indentation(1:our_indent), "enter __SRNAME__:",       +'JU:',indentation(1:our_indent), "enter __SRNAME__:",
59  c     +our_rev_mode%arg_store,       +our_rev_mode%arg_store,
60  c     +our_rev_mode%arg_restore,       +our_rev_mode%arg_restore,
61  c     +our_rev_mode%plain,       +our_rev_mode%plain,
62  c     +our_rev_mode%tape,       +our_rev_mode%tape,
63  c     +our_rev_mode%adjoint       +our_rev_mode%adjoint
64    
65  c      write(*,'(A,A,A,I6,A,I6,A,I6,A,I6,A,I8,A,I8)')  c      write(*,'(A,A,A,I6,A,I6,A,I6,A,I6,A,I8,A,I8)')
66  c     +indentation(1:our_indent), "enter __SRNAME__:",  c     +indentation(1:our_indent), "enter __SRNAME__:",
# Line 72  c     +" TD:",double_tape_pointer, Line 72  c     +" TD:",double_tape_pointer,
72  c     +" TI:",integer_tape_pointer  c     +" TI:",integer_tape_pointer
73    
74        if (our_rev_mode%arg_store) then        if (our_rev_mode%arg_store) then
75           write(*,'(A,A)')           write(*,'(A,A,A)')
76       +indentation(1:our_indent), " __SRNAME__: entering arg store"       +'JU:',indentation(1:our_indent), " __SRNAME__: entering arg store"
77  !$PLACEHOLDER_PRAGMA$ id=4  !$PLACEHOLDER_PRAGMA$ id=4
78        end if        end if
79        if (our_rev_mode%arg_restore) then        if (our_rev_mode%arg_restore) then
80           write(*,'(A,A)')           write(*,'(A,A,A)')
81       +indentation(1:our_indent), " __SRNAME__: entering arg restore"       +'JU:',indentation(1:our_indent),
82         +" __SRNAME__: entering arg restore"
83  !$PLACEHOLDER_PRAGMA$ id=6  !$PLACEHOLDER_PRAGMA$ id=6
84        end if        end if
85        if (our_rev_mode%plain) then        if (our_rev_mode%plain) then
86           write(*,'(A,A)')           write(*,'(A,A,A)')
87       +indentation(1:our_indent), " __SRNAME__: entering plain"       +'JU:',indentation(1:our_indent), " __SRNAME__: entering plain"
88           our_orig_mode=our_rev_mode           our_orig_mode=our_rev_mode
89           our_rev_mode%arg_store=.FALSE.           our_rev_mode%arg_store=.FALSE.
90  !$PLACEHOLDER_PRAGMA$ id=1  !$PLACEHOLDER_PRAGMA$ id=1
91           our_rev_mode=our_orig_mode           our_rev_mode=our_orig_mode
92        end if        end if
93        if (our_rev_mode%tape) then        if (our_rev_mode%tape) then
94           write(*,'(A,A)')           write(*,'(A,A,A)')
95       +indentation(1:our_indent), " __SRNAME__: entering tape"       +'JU:',indentation(1:our_indent), " __SRNAME__: entering tape"
96           our_orig_mode=our_rev_mode           our_orig_mode=our_rev_mode
97           our_rev_mode%arg_store=.TRUE.           our_rev_mode%arg_store=.TRUE.
98           our_rev_mode%arg_restore=.FALSE.           our_rev_mode%arg_restore=.FALSE.
# Line 101  c     +" TI:",integer_tape_pointer Line 102  c     +" TI:",integer_tape_pointer
102           our_rev_mode%tape=.FALSE.           our_rev_mode%tape=.FALSE.
103           our_rev_mode%adjoint=.FALSE.           our_rev_mode%adjoint=.FALSE.
104  !$PLACEHOLDER_PRAGMA$ id=2  !$PLACEHOLDER_PRAGMA$ id=2
105           write(*,'(A,A)')           write(*,'(A,A,A)')
106       +indentation(1:our_indent), " __SRNAME__: following with adjoint"       +'JU:',indentation(1:our_indent),
107         +" __SRNAME__: following with adjoint"
108           our_rev_mode%arg_store=.FALSE.           our_rev_mode%arg_store=.FALSE.
109           our_rev_mode%arg_restore=.TRUE.           our_rev_mode%arg_restore=.TRUE.
110           our_rev_mode%res_store=.FALSE.           our_rev_mode%res_store=.FALSE.
# Line 123  c     +" CS:",cp_string_pointer, Line 125  c     +" CS:",cp_string_pointer,
125  c     +" TD:",double_tape_pointer,  c     +" TD:",double_tape_pointer,
126  c     +" TI:",integer_tape_pointer  c     +" TI:",integer_tape_pointer
127    
128  c      write(*,'(A,A,L,L,L,L,L)')        write(*,'(A,A,A,L,L,L,L,L)')
129  c     +indentation(1:our_indent), "leave __SRNAME__:",       +'JU:',indentation(1:our_indent), "leave __SRNAME__:",
130  c     +our_rev_mode%arg_store,       +our_rev_mode%arg_store,
131  c     +our_rev_mode%arg_restore,       +our_rev_mode%arg_restore,
132  c     +our_rev_mode%plain,       +our_rev_mode%plain,
133  c     +our_rev_mode%tape,       +our_rev_mode%tape,
134  c     +our_rev_mode%adjoint       +our_rev_mode%adjoint
135    
136        our_indent=our_indent-1        our_indent=our_indent-1
137    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22