/[MITgcm]/MITgcm/pkg/ptracers/ptracers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_readparms.F

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

revision 1.37 by jmc, Tue Nov 16 17:46:00 2010 UTC revision 1.38 by jmc, Mon Dec 13 20:27:15 2010 UTC
# Line 334  C--   Print a summary of pTracer paramet Line 334  C--   Print a summary of pTracer paramet
334          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid )          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid )
335          WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer          WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer
336          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid )          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid )
337            CALL WRITE_0D_C( PTRACERS_names(iTracer), -1, INDEX_NONE,
338         &     'PTRACERS_names =', ' /* Tracer short name */')
339            CALL WRITE_0D_C( PTRACERS_long_names(iTracer), -1, INDEX_NONE,
340         &     'PTRACERS_long_names =', ' /* Tracer long name */')
341          CALL WRITE_0D_C( PTRACERS_ioLabel(iTracer), 0, INDEX_NONE,          CALL WRITE_0D_C( PTRACERS_ioLabel(iTracer), 0, INDEX_NONE,
342       &     'PTRACERS_ioLabel =', ' /* tracer IO Label */')       &     'PTRACERS_ioLabel =', ' /* tracer IO Label */')
343          CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE,          CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE,
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22