/[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.2 by mlosch, Thu Jan 15 10:15:20 2009 UTC revision 1.3 by dimitri, Thu Apr 30 13:42:30 2009 UTC
# Line 84  C--------------------------------------- Line 84  C---------------------------------------
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,
86       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
87    
88           diagName  = 'SHIForcT'
89           diagTitle = 'Ice shelf forcing for theta, >0 increases theta'
90           diagUnits = 'W/m^2           '
91           diagCode  = 'SM      MS      '
92           CALL DIAGNOSTICS_ADD2LIST( diagNum,
93         I      diagName, diagCode, diagUnits, diagTitle, myThid )
94    
95           diagName  = 'SHIForcS'
96           diagTitle = 'Ice shelf forcing for salt, >0 increases salt'
97           diagUnits = 'g/m^2/s         '
98           diagCode  = 'SM      MS      '
99           CALL DIAGNOSTICS_ADD2LIST( diagNum,
100         I      diagName, diagCode, diagUnits, diagTitle, myThid )
101        ENDIF        ENDIF
102  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
103  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22