/[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.25 by jmc, Sat Sep 15 17:32:41 2007 UTC revision 1.26 by jmc, Fri Sep 21 18:53:36 2007 UTC
# Line 472  c Line 472  c
472       &              icompmem(ichknum),itestmem(ichknum),       &              icompmem(ichknum),itestmem(ichknum),
473       &              bimem(ichknum),bjmem(ichknum),obcspos,       &              bimem(ichknum),bjmem(ichknum),obcspos,
474       &              adxxmemo, gfd, ratio_ad       &              adxxmemo, gfd, ratio_ad
475                 WRITE(msgBuf,'(A34,2(1PE24.14,X))')  c              WRITE(msgBuf,'(A34,2(1PE24.14,X))')
476       &              'precision_grdchk_result ADM ', fcref, adxxmemo  c    &              'precision_grdchk_result ADM ', fcref, adxxmemo
477                 CALL PRINT_MESSAGE  c              CALL PRINT_MESSAGE
478       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)  c    &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
 c  
479                 WRITE(msgBuf,'(A34,1PE24.14)')                 WRITE(msgBuf,'(A34,1PE24.14)')
480       &              ' ADM  precision_derivative_cost =', fcref       &              ' ADM  precision_derivative_cost =', fcref
481                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22