/[MITgcm]/MITgcm/pkg/ptracers/ptracers_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_diagnostics_init.F

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

revision 1.3 by jmc, Mon Nov 5 18:48:04 2007 UTC revision 1.4 by jmc, Sat Nov 10 22:09:32 2007 UTC
# Line 61  C--   Add diagnostics to the (long) list Line 61  C--   Add diagnostics to the (long) list
61           wUnits   = '.m/s     '           wUnits   = '.m/s     '
62        ENDIF        ENDIF
63    
64        DO iTrc=1,MIN(99,PTRACERS_num)        DO iTrc=1,PTRACERS_num
65  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
66  C--    Set default name & tracer Units:  C--    Set default name & tracer Units:
67         WRITE(locName,'(A,I2,A)') 'Tracer ',iTrc         WRITE(locName,'(A,I4,A)') 'Tracer ',iTrc
68         trcUnits  = '(kg/kg)'         trcUnits  = '(kg/kg)'
69  C-     use name & units from data.ptracers :  C-     use name & units from data.ptracers :
70         ilnb = ILNBLNK(PTRACERS_units(iTrc))         ilnb = ILNBLNK(PTRACERS_units(iTrc))
# Line 86  C-     use name & units from data.ptrace Line 86  C-     use name & units from data.ptrace
86         ilnb = MAX(ILNBLNK(locName),1)         ilnb = MAX(ILNBLNK(locName),1)
87    
88  C--    Add diagnostics of Tracer concentration & u,v,w Transport  C--    Add diagnostics of Tracer concentration & u,v,w Transport
89         WRITE(diagName,'(A,I2.2,A)') 'TRAC',iTrc,'  '         WRITE(diagName,'(A4,A2,A2)') 'TRAC',PTRACERS_ioLabel(iTrc),'  '
90         WRITE(diagTitle,'(2A)') 'Mass-Weighted ', locName(1:ilnb)         WRITE(diagTitle,'(2A)') 'Mass-Weighted ', locName(1:ilnb)
91         diagUnits = trcUnits//'         '         diagUnits = trcUnits//'         '
92         diagCode  = 'SM P    MR      '         diagCode  = 'SM P    MR      '
93         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
94       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
95    
96         WRITE(diagName,'(A,I2.2,A)') 'UTRAC',iTrc,' '         WRITE(diagName,'(A5,A2,A1)') 'UTRAC',PTRACERS_ioLabel(iTrc),' '
97         WRITE(diagTitle,'(2A)') 'Zonal Mass-Weighted Transp of ',         WRITE(diagTitle,'(2A)') 'Zonal Mass-Weighted Transp of ',
98       &                 locName(1:ilnb)       &                 locName(1:ilnb)
99         diagUnits = trcUnits//'.m/s   '         diagUnits = trcUnits//'.m/s   '
# Line 101  C--    Add diagnostics of Tracer concent Line 101  C--    Add diagnostics of Tracer concent
101         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
102       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
103    
104         WRITE(diagName,'(A,I2.2,A)') 'VTRAC',iTrc,' '         WRITE(diagName,'(A5,A2,A1)') 'VTRAC',PTRACERS_ioLabel(iTrc),' '
105         WRITE(diagTitle,'(2A)') 'Merid Mass-Weighted Transp of ',         WRITE(diagTitle,'(2A)') 'Merid Mass-Weighted Transp of ',
106       &                 locName(1:ilnb)       &                 locName(1:ilnb)
107         diagUnits = trcUnits//'.m/s   '         diagUnits = trcUnits//'.m/s   '
# Line 109  C--    Add diagnostics of Tracer concent Line 109  C--    Add diagnostics of Tracer concent
109         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
110       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
111    
112         WRITE(diagName,'(A,I2.2,A)') 'WTRAC',iTrc,' '         WRITE(diagName,'(A5,A2,A1)') 'WTRAC',PTRACERS_ioLabel(iTrc),' '
113         WRITE(diagTitle,'(2A)') 'Vert  Mass-Weighted Transp of ',         WRITE(diagTitle,'(2A)') 'Vert  Mass-Weighted Transp of ',
114       &                 locName(1:ilnb)       &                 locName(1:ilnb)
115         diagUnits = trcUnits//wUnits         diagUnits = trcUnits//wUnits
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22