/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_init_diagnostics.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_init_diagnostics.F

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

revision 1.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.5 by dgoldberg, Sat Jun 8 22:15:33 2013 UTC
# Line 26  C     !USES: Line 26  C     !USES:
26        INTEGER myThid        INTEGER myThid
27    
28  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
29    
30          CHARACTER*(MAX_LEN_MBUF) msgBuf
31  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
32    
33  C     myThid ::  my Thread Id number  C     myThid ::  my Thread Id number
# Line 72  C     myThid ::  my Thread Id number Line 74  C     myThid ::  my Thread Id number
74        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
75       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
76    
77          diagName  = 'SI_hmask'
78          diagTitle = 'Ice stream thickness mask'
79          diagUnits = 'none       '
80          diagCode  = 'SM      L1      '
81          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
82         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
83    
84          diagName  = 'SI_usurf'
85          diagTitle = 'Ice stream surface x-vel'
86          diagUnits = 'none       '
87          diagCode  = 'SM      L1      '
88          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
89         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
90    
91          diagName  = 'SI_vsurf'
92          diagTitle = 'Ice stream surface y-vel'
93          diagUnits = 'none       '
94          diagCode  = 'SM      L1      '
95          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
96         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
97    
98          diagName  = 'SI_selev'
99          diagTitle = 'Ice stream surface elev'
100          diagUnits = 'none       '
101          diagCode  = 'SM      L1      '
102          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
103         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
104    
105          diagName  = 'SI2Dtrac'
106          diagTitle = 'Ice stream 2d tracer'
107          diagUnits = 'none       '
108          diagCode  = 'SM      L1      '
109          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
110         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
111    
112        PRINT *, "ADDED DIAGS TO LIST"        WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'
113           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
114         &                     SQUEEZE_RIGHT , 1)
115    
116    
117  #endif  #endif
118  #endif  #endif
119        RETURN        RETURN
       END  
120          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22