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

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

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

revision 1.14 by jmc, Wed Feb 8 03:14:13 2012 UTC revision 1.15 by jmc, Wed Feb 8 04:04:20 2012 UTC
# Line 161  c--   Individual checks. Line 161  c--   Individual checks.
161            call print_message( msgbuf, standardmessageunit,            call print_message( msgbuf, standardmessageunit,
162       &                        SQUEEZE_RIGHT, mythid )       &                        SQUEEZE_RIGHT, mythid )
163  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
164            ratio_RMS  = ratio_RMS + ratio_flt*ratio_flt            ratio_RMS  = ratio_RMS + ratio_ftl*ratio_ftl
165            write(msgbuf,'(A,I4,3x,1P3E21.13)')            write(msgbuf,'(A,I4,3x,1P3E21.13)')
166       &          'grdchk output (g):',       &          'grdchk output (g):',
167       &         i, gfd, ftlxxmemo, ratio_ftl       &         i, gfd, ftlxxmemo, ratio_ftl
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22