/[MITgcm]/MITgcm/pkg/shelfice/shelfice_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_init_fixed.F

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

revision 1.1 by mlosch, Wed Sep 10 09:18:35 2008 UTC revision 1.2 by mlosch, Thu Jan 15 10:15:20 2009 UTC
# Line 58  C--------------------------------------- Line 58  C---------------------------------------
58  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
59        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
60         diagName  = 'SHIfwFlx'         diagName  = 'SHIfwFlx'
61         diagTitle = 'SHELFICE fresh water flux (positive upward)'         diagTitle = 'Ice shelf fresh water flux (positive upward)'
62         diagUnits = 'kg/m^2/s        '         diagUnits = 'kg/m^2/s        '
63         diagCode  = 'SM      M1      '         diagCode  = 'SM      MS      '
64         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
65       I      diagName, diagCode, diagUnits, diagTitle, myThid )       I      diagName, diagCode, diagUnits, diagTitle, myThid )
66    
67         diagName  = 'SHIhtFlx'         diagName  = 'SHIhtFlx'
68         diagTitle = 'SHELFICE heat flux  (positive upward)'         diagTitle = 'Ice shelf heat flux  (positive upward)'
69         diagUnits = 'W/m^2           '         diagUnits = 'W/m^2           '
70         diagCode  = 'SM      M1      '         diagCode  = 'SM      MS      '
71         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
72       I      diagName, diagCode, diagUnits, diagTitle, myThid )       I      diagName, diagCode, diagUnits, diagTitle, myThid )
73    
74         diagName  = 'USHIDrag'         diagName  = 'SHIUDrag'
75         diagTitle = 'U momentum tendency from Shelfice Drag'         diagTitle = 'U momentum tendency from ice shelf drag'
76         diagUnits = 'm/s^2           '         diagUnits = 'm/s^2           '
77         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
78         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
79       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
80    
81         diagName  = 'VSHIDrag'         diagName  = 'SHIVDrag'
82         diagTitle = 'V momentum tendency from Shelfice Drag'         diagTitle = 'V momentum tendency from ice shelf drag'
83         diagUnits = 'm/s^2           '         diagUnits = 'm/s^2           '
84         WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '
85         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22