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

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

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

revision 1.1 by jmc, Tue Feb 5 15:13:01 2008 UTC revision 1.4 by jmc, Wed Aug 14 00:54:06 2013 UTC
# Line 49  C     numDiag :: diagnostic number in th Line 49  C     numDiag :: diagnostic number in th
49  CEOP  CEOP
50    
51  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
52  C     msgBuf :: Informational/error meesage buffer  C     msgBuf :: Informational/error message buffer
53        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
54        INTEGER n        INTEGER n
55    
# Line 58  C--   Initialise Line 58  C--   Initialise
58    
59        _BEGIN_MASTER( myThid)        _BEGIN_MASTER( myThid)
60    
61    C--   Check if this S/R is called from the right place ;
62    C     needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED
63          IF ( diag_pkgStatus.NE.ready2setDiags ) THEN
64            CALL DIAGNOSTICS_STATUS_ERROR( 'DIAGNOSTICS_ADDTOLIST',
65         &                   ' ', diagName, ready2setDiags, myThid )
66          ENDIF
67    
68  C--   Search for "diagName" in the list of available diagnostics:  C--   Search for "diagName" in the list of available diagnostics:
69        DO n=1,ndiagt        DO n=1,ndiagt
70         IF ( cdiag(n).EQ.diagName ) THEN         IF ( cdiag(n).EQ.diagName ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22