/[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.4 by dgoldberg, Thu Sep 27 20:29:00 2012 UTC revision 1.6 by dgoldberg, Wed Aug 27 19:29:14 2014 UTC
# Line 95  C     myThid ::  my Thread Id number Line 95  C     myThid ::  my Thread Id number
95        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
96       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
97    
98          diagName  = 'SI_ubase'
99          diagTitle = 'Ice stream basal x-vel'
100          diagUnits = 'none       '
101          diagCode  = 'SM      L1      '
102          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
103         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
104    
105          diagName  = 'SI_vbase'
106          diagTitle = 'Ice stream basal y-vel'
107          diagUnits = 'none       '
108          diagCode  = 'SM      L1      '
109          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
110         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
111    
112          diagName  = 'SI_taubx'
113          diagTitle = 'Ice stream basal x-stress'
114          diagUnits = 'none       '
115          diagCode  = 'SM      L1      '
116          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
117         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
118    
119          diagName  = 'SI_tauby'
120          diagTitle = 'Ice stream basal y-stress'
121          diagUnits = 'none       '
122          diagCode  = 'SM      L1      '
123          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
124         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
125    
126        diagName  = 'SI_selev'        diagName  = 'SI_selev'
127        diagTitle = 'Ice stream surface elev'        diagTitle = 'Ice stream surface elev'
128        diagUnits = 'none       '        diagUnits = 'none       '
129        diagCode  = 'SM      L1      '        diagCode  = 'SM      L1      '
130        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
131         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
132    
133          diagName  = 'SI2Dtrac'
134          diagTitle = 'Ice stream 2d tracer'
135          diagUnits = 'none       '
136          diagCode  = 'SM      L1      '
137          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
138       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
139    
140        WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'        WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22