/[MITgcm]/MITgcm/pkg/seaice/seaice_diagnostics_fill.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_diagnostics_fill.F

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

revision 1.2 by mlosch, Fri Jun 8 08:04:09 2007 UTC revision 1.3 by mlosch, Wed Jun 13 12:55:31 2007 UTC
# Line 70  C Line 70  C
70  C  C
71         CALL DIAGNOSTICS_FILL(HSNOW  ,'SIhsnow ',0,1 ,0,1,1,myThid)         CALL DIAGNOSTICS_FILL(HSNOW  ,'SIhsnow ',0,1 ,0,1,1,myThid)
72  C      C    
73    #ifdef SEAICE_CGRID
74         IF ( DIAGNOSTICS_IS_ON('SIsigI  ',myThid) .OR.         IF ( DIAGNOSTICS_IS_ON('SIsigI  ',myThid) .OR.
75       &      DIAGNOSTICS_IS_ON('SIsigII ',myThid) .OR.       &      DIAGNOSTICS_IS_ON('SIsigII ',myThid) .OR.
76       &      DIAGNOSTICS_IS_ON('SIpress ',myThid) .OR.       &      DIAGNOSTICS_IS_ON('SIpress ',myThid) .OR.
# Line 131  C     principle stress components Line 132  C     principle stress components
132           ENDDO           ENDDO
133          ENDDO          ENDDO
134         ENDIF         ENDIF
135    #endif /* SEAICE_CGRID */
136  C     endif useDiagnostics  C     endif useDiagnostics
137        ENDIF        ENDIF
138  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22