/[MITgcm]/MITgcm/eesupp/src/ini_procs.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/ini_procs.F

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

revision 1.25 by jmc, Tue Apr 28 15:18:57 2009 UTC revision 1.26 by dfer, Wed May 6 02:44:45 2009 UTC
# Line 278  C--    Print summary of processor mappin Line 278  C--    Print summary of processor mappin
278         i1 = IFNBLNK(mpiProcNam)         i1 = IFNBLNK(mpiProcNam)
279         i2 = ILNBLNK(mpiProcNam)         i2 = ILNBLNK(mpiProcNam)
280         WRITE(msgBuffer,'(A,I3,A,A)') ' My Processor Name (len:',         WRITE(msgBuffer,'(A,I3,A,A)') ' My Processor Name (len:',
281       &  mpilProcNam, ' ) = ', mpiProcNam(i1:i2)       &  mpilProcNam, ' ) = ', mpiProcNam(i1:mpilProcNam)
282         CALL PRINT_MESSAGE( msgBuffer, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuffer, standardMessageUnit,
283       &  SQUEEZE_RIGHT , myThid)       &  SQUEEZE_RIGHT , myThid)
284         WRITE(msgBuffer,'(A,I3,A,I3,A,I3,A,I3,A)') ' Located at (',         WRITE(msgBuffer,'(A,I3,A,I3,A,I3,A,I3,A)') ' Located at (',
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22