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

Diff of /MITgcm/pkg/diagnostics/diagnostics_write_pickup.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 37  C     myThid  :: Number of this instance Line 37  C     myThid  :: Number of this instance
37        INTEGER myThid        INTEGER myThid
38    
39  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
40    #ifdef DIAGNOSTICS_HAS_PICKUP
41    
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
43  C     fn      :: character buffer for creating filename  C     fn      :: character buffer for creating filename
# Line 188  C         Write ndiag() Line 189  C         Write ndiag()
189        ENDIF        ENDIF
190    
191  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
192    #endif /* DIAGNOSTICS_HAS_PICKUP */
193    
194        RETURN        RETURN
195        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22