/[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.2 by mlosch, Fri Jun 8 08:04:09 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         IF ( DIAGNOSTICS_IS_ON('SIsigI  ',myThid) .OR.         IF ( DIAGNOSTICS_IS_ON('SIsigI  ',myThid) .OR.
74       &      DIAGNOSTICS_IS_ON('SIsigII ',myThid) .OR.       &      DIAGNOSTICS_IS_ON('SIsigII ',myThid) .OR.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22