/[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.2 by utke, Sun Dec 4 06:44:13 2005 UTC revision 1.3 by utke, Thu Dec 8 18:01:51 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        write(*,'(A,A,L,L,L,L,L)')  c      write(*,'(A,A,L,L,L,L,L)')
58       +indentation(1:our_indent), "enter __SRNAME__:",  c     +indentation(1:our_indent), "enter __SRNAME__:",
59       +our_rev_mode%arg_store,  c     +our_rev_mode%arg_store,
60       +our_rev_mode%arg_restore,  c     +our_rev_mode%arg_restore,
61       +our_rev_mode%plain,  c     +our_rev_mode%plain,
62       +our_rev_mode%tape,  c     +our_rev_mode%tape,
63       +our_rev_mode%adjoint  c     +our_rev_mode%adjoint
64    
65        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       +indentation(1:our_indent), "enter __SRNAME__:",  c     +indentation(1:our_indent), "enter __SRNAME__:",
67       +" CD:",cp_double_pointer,  c     +" CD:",cp_double_pointer,
68       +" CI:",cp_integer_pointer,  c     +" CI:",cp_integer_pointer,
69       +" CB:",cp_boolean_pointer,  c     +" CB:",cp_boolean_pointer,
70       +" CS:",cp_string_pointer,  c     +" CS:",cp_string_pointer,
71       +" TD:",double_tape_pointer,  c     +" TD:",double_tape_pointer,
72       +" 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)')
# Line 114  c we may need these for the checkpointin Line 114  c we may need these for the checkpointin
114           our_rev_mode=our_orig_mode           our_rev_mode=our_orig_mode
115        end if        end if
116    
117            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)')
118       +indentation(1:our_indent), "leave __SRNAME__:",  c     +indentation(1:our_indent), "leave __SRNAME__:",
119       +" CD:",cp_double_pointer,  c     +" CD:",cp_double_pointer,
120       +" CI:",cp_integer_pointer,  c     +" CI:",cp_integer_pointer,
121       +" CB:",cp_boolean_pointer,  c     +" CB:",cp_boolean_pointer,
122       +" CS:",cp_string_pointer,  c     +" CS:",cp_string_pointer,
123       +" TD:",double_tape_pointer,  c     +" TD:",double_tape_pointer,
124       +" TI:",integer_tape_pointer  c     +" TI:",integer_tape_pointer
125    
126        write(*,'(A,A,L,L,L,L,L)')  c      write(*,'(A,A,L,L,L,L,L)')
127       +indentation(1:our_indent), "leave __SRNAME__:",  c     +indentation(1:our_indent), "leave __SRNAME__:",
128       +our_rev_mode%arg_store,  c     +our_rev_mode%arg_store,
129       +our_rev_mode%arg_restore,  c     +our_rev_mode%arg_restore,
130       +our_rev_mode%plain,  c     +our_rev_mode%plain,
131       +our_rev_mode%tape,  c     +our_rev_mode%tape,
132       +our_rev_mode%adjoint  c     +our_rev_mode%adjoint
133    
134        our_indent=our_indent-1        our_indent=our_indent-1
135    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22