/[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.1 by mlosch, Thu Jun 7 13:46:40 2007 UTC revision 1.3 by mlosch, Wed Jun 13 12:55:31 2007 UTC
# Line 67  C Line 67  C
67       &        'SIvice  ',0,1 ,2,bi,bj,myThid)       &        'SIvice  ',0,1 ,2,bi,bj,myThid)
68          ENDDO          ENDDO
69         ENDDO         ENDDO
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)
 c  
        CALL DIAGNOSTICS_FILL(UWIND  ,'SIuwind ',0,1 ,0,1,1,myThid)  
        CALL DIAGNOSTICS_FILL(VWIND  ,'SIvwind ',0,1 ,0,1,1,myThid)  
        CALL DIAGNOSTICS_FILL(FU     ,'SIfu    ',0,1 ,0,1,1,myThid)  
        CALL DIAGNOSTICS_FILL(FV     ,'SIfv    ',0,1 ,0,1,1,myThid)  
        CALL DIAGNOSTICS_FILL(EmPmR  ,'SIempmr ',0,1 ,0,1,1,myThid)  
        CALL DIAGNOSTICS_FILL(Qnet   ,'SIqnet  ',0,1 ,0,1,1,myThid)  
        CALL DIAGNOSTICS_FILL(Qsw    ,'SIqsw   ',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 139  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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22