/[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.2 by dgoldberg, Fri Apr 20 14:09:13 2012 UTC
# Line 72  C     myThid ::  my Thread Id number Line 72  C     myThid ::  my Thread Id number
72        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
73       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
74    
75          diagName  = 'SI_hmask'
76          diagTitle = 'Ice stream thickness mask'
77          diagUnits = 'none       '
78          diagCode  = 'SM      L1      '
79          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
80         I      diagName, diagCode, diagUnits, diagTitle, 0, myThid )
81    
82    
83        PRINT *, "ADDED DIAGS TO LIST"        PRINT *, "ADDED DIAGS TO LIST"
84    
# Line 79  C     myThid ::  my Thread Id number Line 86  C     myThid ::  my Thread Id number
86  #endif  #endif
87  #endif  #endif
88        RETURN        RETURN
       END  
89          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22