/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_diagnostics_init.F

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

revision 1.2 by molod, Mon Jun 5 17:17:31 2006 UTC revision 1.3 by jmc, Sun Nov 19 22:04:10 2006 UTC
# Line 81  C-     Diffusive flux: Line 81  C-     Diffusive flux:
81         diagCode  = 'WM      LR      '         diagCode  = 'WM      LR      '
82         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
83       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
84         diagName  = 'DIFx'//diagSufx         diagName  = 'DFxE'//diagSufx
85         diagTitle = 'Zonal      Diffusive Flux of Pot.Temperature'         diagTitle = 'Zonal      Diffusive Flux of Pot.Temperature'
86         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
87         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
88       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
89         diagName  = 'DIFy'//diagSufx         diagName  = 'DFyE'//diagSufx
90         diagTitle = 'Meridional Diffusive Flux of Pot.Temperature'         diagTitle = 'Meridional Diffusive Flux of Pot.Temperature'
91         WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
92         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
# Line 139  C-     Diffusive flux: Line 139  C-     Diffusive flux:
139         diagCode  = 'WM      LR      '         diagCode  = 'WM      LR      '
140         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
141       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
142         diagName  = 'DIFx'//diagSufx         diagName  = 'DFxE'//diagSufx
143         diagTitle = 'Zonal      Diffusive Flux of'//locName         diagTitle = 'Zonal      Diffusive Flux of'//locName
144         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
145         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
146       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
147         diagName  = 'DIFy'//diagSufx         diagName  = 'DFyE'//diagSufx
148         diagTitle = 'Meridional Diffusive Flux of'//locName         diagTitle = 'Meridional Diffusive Flux of'//locName
149         WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
150         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22