/[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.17 by heimbach, Fri May 12 02:17:03 2006 UTC revision 1.18 by heimbach, Fri Nov 10 04:57:10 2006 UTC
# Line 184  cphadmtlm) Line 184  cphadmtlm)
184    
185        print *, 'grad-res -------------------------------'        print *, 'grad-res -------------------------------'
186        print ('(2a)'),        print ('(2a)'),
187       &     ' grad-res  proc    #    i    j    k            fc ref',       &    ' grad-res  proc    #    i    j    k iobc',
188       &     '        fc + eps        fc - eps'       &    '               fc ref           fc + eps           fc - eps'
189  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
190        print ('(2a)'),        print ('(2a)'),
191       &     ' grad-res  proc    #    i    j    k          tlm grad',       &    ' grad-res  proc    #    i    j    k iobc',
192       &     '         fd grad      1 - fd/tlm'       &    '             tlm grad            fd grad         1 - fd/tlm'
193  #else  #else
194        print ('(2a)'),        print ('(2a)'),
195       &     ' grad-res  proc    #    i    j    k          adj grad',       &    ' grad-res  proc    #    i    j    k iobc',
196       &     '         fd grad      1 - fd/adj'       &    '             adj grad            fd grad         1 - fd/adj'
197  #endif  #endif
198    
199  c--   Compute the finite difference approximations.  c--   Compute the finite difference approximations.
# Line 215  c--         Determine the location of ic Line 215  c--         Determine the location of ic
215       &              icvrec, itile, jtile, layer, obcspos,       &              icvrec, itile, jtile, layer, obcspos,
216       &              itilepos, jtilepos, itest, ierr,       &              itilepos, jtilepos, itest, ierr,
217       &              mythid )       &              mythid )
218    cph(
219                   print *, 'ph-grd ----- back from loc -----',
220         &             icvrec, itilepos, jtilepos, layer, obcspos
221    cph)
222              endif              endif
223              _BARRIER              _BARRIER
224                                
# Line 418  c*************************************** Line 422  c***************************************
422                 ierrmem   ( ichknum ) = ierr                 ierrmem   ( ichknum ) = ierr
423                                        
424                 print *, 'grad-res -------------------------------'                 print *, 'grad-res -------------------------------'
425                 print '(a,5I5,2x,3(1x,E15.9))', ' grad-res ',                 print '(a,6I5,2x,3(1x,E18.12))', ' grad-res ',
426       &              myprocid,ichknum,itilepos,jtilepos,layer,       &              myprocid,ichknum,itilepos,jtilepos,layer,obcspos,
427       &              fcref, fcpertplus, fcpertminus       &              fcref, fcpertplus, fcpertminus
428  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
429                 print '(a,5I5,2x,3(1x,E15.9))', ' grad-res ',                 print '(a,6I5,2x,3(1x,E18.12))', ' grad-res ',
430       &              myprocid,ichknum,ichkmem(ichknum),       &              myprocid,ichknum,ichkmem(ichknum),
431       &              icompmem(ichknum),itestmem(ichknum),       &              icompmem(ichknum),itestmem(ichknum),obcspos,
432       &              ftlxxmemo, gfd, ratio_ftl       &              ftlxxmemo, gfd, ratio_ftl
433                 WRITE(msgBuf,'(A34,2(1PE24.14,X))')                 WRITE(msgBuf,'(A34,2(1PE24.14,X))')
434       &              'precision_grdchk_result TLM ', fcref, ftlxxmemo       &              'precision_grdchk_result TLM ', fcref, ftlxxmemo
435                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
436       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
437  #else  #else
438                 print '(a,5I5,2x,3(1x,E15.9))', ' grad-res ',                 print '(a,6I5,2x,3(1x,E18.12))', ' grad-res ',
439       &              myprocid,ichknum,ichkmem(ichknum),       &              myprocid,ichknum,ichkmem(ichknum),
440       &              icompmem(ichknum),itestmem(ichknum),       &              icompmem(ichknum),itestmem(ichknum),obcspos,
441       &              adxxmemo, gfd, ratio_ad       &              adxxmemo, gfd, ratio_ad
442                 WRITE(msgBuf,'(A34,2(1PE24.14,X))')                 WRITE(msgBuf,'(A34,2(1PE24.14,X))')
443       &              'precision_grdchk_result ADM ', fcref, adxxmemo       &              'precision_grdchk_result ADM ', fcref, adxxmemo
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22