/[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.2 by jmc, Tue Jan 12 05:28:47 2010 UTC revision 1.3 by jmc, Fri Jan 15 00:25:58 2010 UTC
# 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 ( .NOT.settingDiags ) THEN
64            WRITE(msgBuf,'(6A)') 'DIAGNOSTICS_ADDTOLIST: ',
65         &     'diagName="', diagName, '", diagCode="',diagCode(1:10),'"'
66            CALL PRINT_ERROR( msgBuf, myThid )
67            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST: ',
68         &     '<== called from the WRONG place, i.e.'
69            CALL PRINT_ERROR( msgBuf, myThid )
70            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST: ',
71         &     'outside diagnostics setting section = from'
72            CALL PRINT_ERROR( msgBuf, myThid )
73            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST: ',
74         &     '   Diag_INIT_EARLY down to Diag_INIT_FIXED'
75            CALL PRINT_ERROR( msgBuf, myThid )
76            STOP 'ABNORMAL END: S/R DIAGNOSTICS_ADDTOLIST'
77          ENDIF
78    
79  C--   Search for "diagName" in the list of available diagnostics:  C--   Search for "diagName" in the list of available diagnostics:
80        DO n=1,ndiagt        DO n=1,ndiagt
81         IF ( cdiag(n).EQ.diagName ) THEN         IF ( cdiag(n).EQ.diagName ) THEN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22