/[MITgcm]/MITgcm/pkg/ptracers/ptracers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_readparms.F

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

revision 1.17 by mlosch, Mon Dec 20 16:22:22 2004 UTC revision 1.18 by edhill, Mon Feb 7 19:07:18 2005 UTC
# Line 57  C                          are written t Line 57  C                          are written t
57       &     PTRACERS_names,       &     PTRACERS_names,
58       &     PTRACERS_long_names,       &     PTRACERS_long_names,
59       &     PTRACERS_units,       &     PTRACERS_units,
      &     PTRACERS_read_mnc,  
60       &     PTRACERS_write_mnc       &     PTRACERS_write_mnc
61    
62  C     This routine has been called by the main model so we set our  C     This routine has been called by the main model so we set our
# Line 88  C     Set defaults values for parameters Line 87  C     Set defaults values for parameters
87          ENDDO          ENDDO
88        ENDDO        ENDDO
89        PTRACERS_useRecords  = .FALSE.        PTRACERS_useRecords  = .FALSE.
       PTRACERS_read_mdsio  = .TRUE.  
       PTRACERS_read_mnc    = .FALSE.  
90        PTRACERS_write_mdsio = .TRUE.        PTRACERS_write_mdsio = .TRUE.
91        PTRACERS_write_mnc   = .FALSE.        PTRACERS_write_mnc   = .FALSE.
92    
# Line 171  C     Check that enough parameters were Line 168  C     Check that enough parameters were
168  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
169        IF (useMNC) THEN        IF (useMNC) THEN
170  C       Set the default I/O Types  C       Set the default I/O Types
         IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.  
171          IF ( (.NOT. outputTypesInclusive)          IF ( (.NOT. outputTypesInclusive)
172       &       .AND. PTRACERS_write_mnc ) PTRACERS_write_mdsio = .FALSE.       &       .AND. PTRACERS_write_mnc ) PTRACERS_write_mdsio = .FALSE.
173                    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22