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

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

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

revision 1.31 by jmc, Sun Jun 12 19:08:21 2011 UTC revision 1.32 by jmc, Wed Aug 14 00:54:06 2013 UTC
# Line 238  C     !OUTPUT PARAMETERS: Line 238  C     !OUTPUT PARAMETERS:
238  C     ndId     :: diagnostics  Id number (in available diagnostics list)  C     ndId     :: diagnostics  Id number (in available diagnostics list)
239  C     ip       :: diagnostics  pointer to storage array  C     ip       :: diagnostics  pointer to storage array
240    
   
241        CHARACTER*8 diagName        CHARACTER*8 diagName
242        INTEGER listId        INTEGER listId
243        INTEGER ndId, ip        INTEGER ndId, ip
# Line 345  C---+----1----+----2----+----3----+----4 Line 344  C---+----1----+----2----+----3----+----4
344    
345  C--   Check if this S/R is called from the right place ;  C--   Check if this S/R is called from the right place ;
346  C     needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED  C     needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED
347        IF ( .NOT.settingDiags ) THEN        IF ( diag_pkgStatus.NE.ready2setDiags ) THEN
348          WRITE(msgBuf,'(4A,I5)') 'DIAGNOSTICS_SETKLEV: ',          CALL DIAGNOSTICS_STATUS_ERROR( 'DIAGNOSTICS_SETKLEV',
349       &     'diagName="', diagName, '" , nLevDiag=', nLevDiag       &                   ' ', diagName, ready2setDiags, myThid )
         CALL PRINT_ERROR( msgBuf, myThid )  
         WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SETKLEV: ',  
      &     '<== called from the WRONG place, i.e.'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SETKLEV: ',  
      &     'outside diagnostics setting section = from'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SETKLEV: ',  
      &     '   Diag_INIT_EARLY down to Diag_INIT_FIXED'  
         CALL PRINT_ERROR( msgBuf, myThid )  
         STOP 'ABNORMAL END: S/R DIAGNOSTICS_SETKLEV'  
350        ENDIF        ENDIF
351    
352  C--   Find this diagnostics in the list of available diag.  C--   Find this diagnostics in the list of available diag.
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22