/[MITgcm]/MITgcm/pkg/grdchk/grdchk_main.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_main.F

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

revision 1.19 by heimbach, Sun Nov 19 23:17:17 2006 UTC revision 1.20 by heimbach, Sat Mar 24 02:25:29 2007 UTC
# Line 184  cphadmtlm) Line 184  cphadmtlm)
184        end if        end if
185    
186        print *, 'grad-res -------------------------------'        print *, 'grad-res -------------------------------'
187        print ('(2a)'),        print '(2a)',
188       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',
189       &    '               fc ref           fc + eps           fc - eps'       &    '               fc ref           fc + eps           fc - eps'
190  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
191        print ('(2a)'),        print '(2a)',
192       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',
193       &    '             tlm grad            fd grad         1 - fd/tlm'       &    '             tlm grad            fd grad         1 - fd/tlm'
194  #else  #else
195        print ('(2a)'),        print '(2a)',
196       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',
197       &    '             adj grad            fd grad         1 - fd/adj'       &    '             adj grad            fd grad         1 - fd/adj'
198  #endif  #endif
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22