/[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.24 by heimbach, Fri Sep 14 20:40:20 2007 UTC revision 1.25 by jmc, Sat Sep 15 17:32:41 2007 UTC
# Line 459  c*************************************** Line 459  c***************************************
459       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
460  c          c        
461                 WRITE(msgBuf,'(A34,1PE24.14)')                 WRITE(msgBuf,'(A34,1PE24.14)')
462       &              'precision_derivative_cost TLM ', fcref       &              ' TLM  precision_derivative_cost =', fcref
463                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
464       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
465                 WRITE(msgBuf,'(A34,1PE24.14)')                 WRITE(msgBuf,'(A34,1PE24.14)')
466       &              'precision_derivative_grad TLM ', ftlxxmemo       &              ' TLM  precision_derivative_grad =', ftlxxmemo
467                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
468       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
469  #else  #else
# Line 478  c Line 478  c
478       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
479  c  c
480                 WRITE(msgBuf,'(A34,1PE24.14)')                 WRITE(msgBuf,'(A34,1PE24.14)')
481       &              'precision_derivative_cost ADM ', fcref       &              ' ADM  precision_derivative_cost =', fcref
482                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
483       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
484                 WRITE(msgBuf,'(A34,1PE24.14)')                 WRITE(msgBuf,'(A34,1PE24.14)')
485       &              'precision_derivative_grad ADM ', ftlxxmemo       &              ' ADM  precision_derivative_grad =', adxxmemo
486                 CALL PRINT_MESSAGE                 CALL PRINT_MESSAGE
487       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &              (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
488  #endif  #endif
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22