/[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.9 by jmc, Sun Oct 17 23:06:52 2004 UTC revision 1.10 by edhill, Mon Oct 18 16:04:20 2004 UTC
# Line 52  C                          are written t Line 52  C                          are written t
52       &     PTRACERS_names,       &     PTRACERS_names,
53       &     PTRACERS_long_names,       &     PTRACERS_long_names,
54       &     PTRACERS_units,       &     PTRACERS_units,
      &     PTRACERS_write_ioinc,  
55       &     PTRACERS_read_mnc,       &     PTRACERS_read_mnc,
56       &     PTRACERS_write_mnc       &     PTRACERS_write_mnc
57    
# Line 82  C     Set defaults values for parameters Line 81  C     Set defaults values for parameters
81        PTRACERS_read_mnc    = .FALSE.        PTRACERS_read_mnc    = .FALSE.
82        PTRACERS_write_mdsio = .TRUE.        PTRACERS_write_mdsio = .TRUE.
83        PTRACERS_write_mnc   = .FALSE.        PTRACERS_write_mnc   = .FALSE.
       PTRACERS_write_ioinc = .FALSE.  
84    
85  C     Open and read the data.ptracers file  C     Open and read the data.ptracers file
86        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
# Line 139  C     Check that enough parameters were Line 137  C     Check that enough parameters were
137        IF (useMNC) THEN        IF (useMNC) THEN
138  C       Set the default I/O Types  C       Set the default I/O Types
139          IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.          IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.
140          IF ( (.NOT. PTRACERS_write_ioinc)          IF ( (.NOT. outputTypesInclusive)
141       &       .AND. PTRACERS_write_mnc ) pickup_write_mdsio = .FALSE.       &       .AND. PTRACERS_write_mnc ) pickup_write_mdsio = .FALSE.
142                    
143  C       Initialize the MNC variable types for PTRACERS  C       Initialize the MNC variable types for PTRACERS
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22