/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_init_varia.F

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

revision 1.4 by edhill, Mon Feb 21 04:41:52 2005 UTC revision 1.5 by edhill, Wed Feb 23 05:31:03 2005 UTC
# Line 61  C     Zero out the qdiag array which acc Line 61  C     Zero out the qdiag array which acc
61        ENDDO        ENDDO
62    
63    
64    #ifdef DIAGNOSTICS_HAS_PICKUP
65    
66  C     Add pickup capability  C     Add pickup capability
67        IF (diag_pickup_read) THEN        IF (diag_pickup_read) THEN
68    
# Line 167  C         Read ndiag() Line 169  C         Read ndiag()
169    
170        ENDIF        ENDIF
171    
172    #endif /* DIAGNOSTICS_HAS_PICKUP */
173    
174        RETURN        RETURN
175        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22