/[MITgcm]/MITgcm/pkg/exf/exf_interp.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_interp.F

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

revision 1.29 by jmc, Thu Jan 5 20:24:02 2012 UTC revision 1.30 by jmc, Mon Apr 2 21:24:54 2012 UTC
# Line 261  C     averaging properly done if uvInter Line 261  C     averaging properly done if uvInter
261  C     prtPole(l)=0 : extended, =1 : changed to pole, =2 : changed to symetric  C     prtPole(l)=0 : extended, =1 : changed to pole, =2 : changed to symetric
262        IF ( debugFlag ) THEN        IF ( debugFlag ) THEN
263          l = ILNBLNK(inFile)          l = ILNBLNK(inFile)
264            _BEGIN_MASTER(myThid)
265          WRITE(msgBuf,'(3A,I6,A,2L5)')          WRITE(msgBuf,'(3A,I6,A,2L5)')
266       &   'EXF_INTERP: file="',inFile(1:l),'", rec=', irecord,       &   'EXF_INTERP: file="',inFile(1:l),'", rec=', irecord,
267       &   ' , x-Per,P.Sym=', xIsPeriodic, poleSymmetry       &   ' , x-Per,P.Sym=', xIsPeriodic, poleSymmetry
# Line 274  C     prtPole(l)=0 : extended, =1 : chan Line 275  C     prtPole(l)=0 : extended, =1 : chan
275       &   ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2)       &   ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2)
276          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
277       &                      SQUEEZE_RIGHT, myThid )       &                      SQUEEZE_RIGHT, myThid )
278            _END_MASTER(myThid)
279        ENDIF        ENDIF
280  #endif /* ALLOW_DEBUG */  #endif /* ALLOW_DEBUG */
281    
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22