/[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.22 by heimbach, Fri Jul 27 22:18:57 2007 UTC revision 1.23 by heimbach, Sat Aug 4 18:05:23 2007 UTC
# Line 185  cph   assuming all xx_ fields are initia Line 185  cph   assuming all xx_ fields are initia
185           grdchk_epsfac = 1. _d 0           grdchk_epsfac = 1. _d 0
186        end if        end if
187    
188        print *, 'grad-res -------------------------------'        WRITE(standardmessageunit,'(A)')
189        print '(2a)',       &    'grad-res -------------------------------'
190          WRITE(standardmessageunit,'(2a)')
191       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',
192       &    '               fc ref           fc + eps           fc - eps'       &    '               fc ref           fc + eps           fc - eps'
193  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
194        print '(2a)',        WRITE(standardmessageunit,'(2a)')
195       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',
196       &    '             tlm grad            fd grad         1 - fd/tlm'       &    '             tlm grad            fd grad         1 - fd/tlm'
197  #else  #else
198        print '(2a)',        WRITE(standardmessageunit,'(2a)')
199       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',       &    ' grad-res  proc    #    i    j    k   bi   bj iobc',
200       &    '             adj grad            fd grad         1 - fd/adj'       &    '             adj grad            fd grad         1 - fd/adj'
201  #endif  #endif
# Line 440  c*************************************** Line 441  c***************************************
441                 ierrmem   ( ichknum ) = ierr                 ierrmem   ( ichknum ) = ierr
442                 icglomem  ( ichknum ) = icglo                 icglomem  ( ichknum ) = icglo
443    
444                 print *, 'grad-res -------------------------------'                 WRITE(standardmessageunit,'(A)')
445                 print '(a,8I5,2x,3(1x,E18.12))', ' grad-res ',       &             'grad-res -------------------------------'
446       &              myprocid,ichknum,itilepos,jtilepos,                 WRITE(standardmessageunit,'(a,8I5,2x,3(1x,E18.12))')
447         &              ' grad-res ',myprocid,ichknum,itilepos,jtilepos,
448       &              layer,itile,jtile,obcspos,       &              layer,itile,jtile,obcspos,
449       &              fcref, fcpertplus, fcpertminus       &              fcref, fcpertplus, fcpertminus
450  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
451                 print '(a,8I5,2x,3(1x,E18.12))', ' grad-res ',                 WRITE(standardmessageunit,'(a,8I5,2x,3(1x,E18.12))')
452       &              myprocid,ichknum,ichkmem(ichknum),       &              ' grad-res ',myprocid,ichknum,ichkmem(ichknum),
453       &              icompmem(ichknum),itestmem(ichknum),       &              icompmem(ichknum),itestmem(ichknum),
454       &              bimem(ichknum),bjmem(ichknum),iobcsmem(ichknum),       &              bimem(ichknum),bjmem(ichknum),iobcsmem(ichknum),
455       &              ftlxxmemo, gfd, ratio_ftl       &              ftlxxmemo, gfd, ratio_ftl
# Line 456  c*************************************** Line 458  c***************************************
458                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
459       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
460  #else  #else
461                 print '(a,8I5,2x,3(1x,E18.12))', ' grad-res ',                 WRITE(standardmessageunit,'(a,8I5,2x,3(1x,E18.12))')
462       &              myprocid,ichknum,ichkmem(ichknum),       &              ' grad-res ',myprocid,ichknum,ichkmem(ichknum),
463       &              icompmem(ichknum),itestmem(ichknum),       &              icompmem(ichknum),itestmem(ichknum),
464       &              bimem(ichknum),bjmem(ichknum),obcspos,       &              bimem(ichknum),bjmem(ichknum),obcspos,
465       &              adxxmemo, gfd, ratio_ad       &              adxxmemo, gfd, ratio_ad
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22