/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_set_pointers.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_set_pointers.F

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

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by jmc, Wed Dec 15 00:18:39 2004 UTC
# Line 77  C        Search all possible model diagn Line 77  C        Search all possible model diagn
77    
78        IF (  ndiagcount.LE.numdiags .AND.        IF (  ndiagcount.LE.numdiags .AND.
79       &      nActiveMax.LE.numperlist ) THEN       &      nActiveMax.LE.numperlist ) THEN
80          WRITE(msgBuf,'(2A,I6,A)')          WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_POINTERS: done'
81       &    'DIAGNOSTICS_SET_POINTERS: ',          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
82       &    'space allocated for all diagnostics:',       &                      SQUEEZE_RIGHT , myThid)
83            WRITE(msgBuf,'(A,I6,A)')
84         &    '  space allocated for all diagnostics:',
85       &    ndiagcount, ' levels'       &    ndiagcount, ' levels'
86          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
87       &                    SQUEEZE_RIGHT , myThid)       &                      SQUEEZE_RIGHT , myThid)
88            WRITE(msgBuf,'(2A)')
89         &   '------------------------------------------------------------'
90            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
91         &                      SQUEEZE_RIGHT , myThid)
92        ELSE        ELSE
93         IF ( ndiagcount.GT.numdiags ) THEN         IF ( ndiagcount.GT.numdiags ) THEN
94           WRITE(msgBuf,'(2A)')           WRITE(msgBuf,'(2A)')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22