/[MITgcm]/MITgcm/pkg/thsice/thsice_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_diagnostics_init.F

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

revision 1.4 by jmc, Wed Apr 4 02:40:42 2007 UTC revision 1.5 by jmc, Thu Apr 19 04:31:28 2007 UTC
# Line 45  C     diagTitle :: local string (80c): d Line 45  C     diagTitle :: local string (80c): d
45        CHARACTER*16  diagCode        CHARACTER*16  diagCode
46        CHARACTER*16  diagUnits        CHARACTER*16  diagUnits
47        CHARACTER*(80) diagTitle        CHARACTER*(80) diagTitle
48        INTEGER       numFract, numThick        INTEGER       numFract, numThick, numFrcFx
49        INTEGER       n        INTEGER       n
50        LOGICAL       flag        LOGICAL       flag
51        CHARACTER*16  locName        CHARACTER*16  locName
# Line 114  c     IF ( useDiagnotics ) THEN Line 114  c     IF ( useDiagnotics ) THEN
114          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
115       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
116    
         diagName  = 'SIalbedo'  
         diagTitle = 'Sea-Ice Albedo [0-1] (area weighted average)'  
         diagUnits = '0-1             '  
         WRITE(diagCode,'(A,I3.3,A)') 'SM PC', numFract, 'M1      '  
         CALL DIAGNOSTICS_ADD2LIST( diagNum,  
      I          diagName, diagCode, diagUnits, diagTitle, myThid )  
   
117          diagName  = 'SIsnwAge'          diagName  = 'SIsnwAge'
118          diagTitle = 'snow age over Sea-Ice'          diagTitle = 'snow age over Sea-Ice'
119          diagUnits = 's               '          diagUnits = 's               '
# Line 128  c     IF ( useDiagnotics ) THEN Line 121  c     IF ( useDiagnotics ) THEN
121          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
122       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
123    
124            diagName  = 'SI_FrcFx'
125            diagTitle = 'Sea-Ice fraction [0-1], synchro. with fluxes'
126            diagUnits = '0-1             '
127            diagCode  = 'SM P    M1      '
128            CALL DIAGNOSTICS_ADD2LIST( diagNum,
129         I          diagName, diagCode, diagUnits, diagTitle, myThid )
130            numFrcFx  = diagNum
131    
132            diagName  = 'SIalbedo'
133            diagTitle = 'Sea-Ice Albedo [0-1] (area weighted average)'
134            diagUnits = '0-1             '
135            WRITE(diagCode,'(A,I3.3,A)') 'SM PC', numFrcFx, 'M1      '
136            CALL DIAGNOSTICS_ADD2LIST( diagNum,
137         I          diagName, diagCode, diagUnits, diagTitle, myThid )
138    
139          diagName  = 'SIsnwPrc'          diagName  = 'SIsnwPrc'
140          diagTitle = 'snow precip. (+=dw) over Sea-Ice (area weighted)'          diagTitle = 'snow precip. (+=dw) over Sea-Ice (area weighted)'
141          diagUnits = 'kg/m^2/s        '          diagUnits = 'kg/m^2/s        '
142          WRITE(diagCode,'(A,I3.3,A)') 'SM  C', numFract, 'M1      '          WRITE(diagCode,'(A,I3.3,A)') 'SM  C', numFrcFx, 'M1      '
143          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
144       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
145    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22