/[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.6 by edhill, Fri Sep 3 20:10:47 2004 UTC revision 1.7 by edhill, Fri Sep 10 12:19:31 2004 UTC
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
21  #include "PTRACERS.h"  #include "PTRACERS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23          #ifdef ALLOW_MNC
24    #include "MNC_PARAMS.h"
25    #endif
26    
27  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
28        INTEGER myThid        INTEGER myThid
29  CEOP  CEOP
# Line 52  C                          are written t Line 55  C                          are written t
55       &     PTRACERS_names,       &     PTRACERS_names,
56       &     PTRACERS_long_names,       &     PTRACERS_long_names,
57       &     PTRACERS_units,       &     PTRACERS_units,
58       &     PTRACERS_mnc_read,       &     PTRACERS_write_ioinc,
59       &     PTRACERS_mnc_write,       &     PTRACERS_read_mnc,
60       &     PTRACERS_iotypes       &     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
63  C     internal flag to indicate we are in business  C     internal flag to indicate we are in business
# Line 77  C     Set defaults values for parameters Line 80  C     Set defaults values for parameters
80            PTRACERS_units(iTracer)(ic:ic) = ' '            PTRACERS_units(iTracer)(ic:ic) = ' '
81          ENDDO          ENDDO
82        ENDDO        ENDDO
83        PTRACERS_useRecords=.FALSE.        PTRACERS_useRecords  = .FALSE.
84        PTRACERS_iotypes = -1        PTRACERS_read_mdsio  = .TRUE.
85        PTRACERS_mnc_read = .true.        PTRACERS_read_mnc    = .FALSE.
86        PTRACERS_mnc_write = .true.        PTRACERS_write_mdsio = .TRUE.
87          PTRACERS_write_mnc   = .FALSE.
88          PTRACERS_write_ioinc = .FALSE.
89    
90  C     Open and read the data.ptracers file  C     Open and read the data.ptracers file
91        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
# Line 133  C     Check that enough parameters were Line 138  C     Check that enough parameters were
138          ENDIF          ENDIF
139        ENDDO        ENDDO
140    
 C     Set the default I/O Types  
       IF (PTRACERS_iotypes .EQ. -1) THEN  
         PTRACERS_iotypes = 1  
       ENDIF  
   
141  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
 C     Initialize the MNC variable types for PTRACERS  
142        IF (useMNC) THEN        IF (useMNC) THEN
143    C       Set the default I/O Types
144            IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.
145            IF ( (.NOT. PTRACERS_write_ioinc)
146         &       .AND. PTRACERS_write_mnc ) pickup_write_mdsio = .FALSE.
147            
148    C       Initialize the MNC variable types for PTRACERS
149          CALL PTRACERS_MNC_INIT( myThid )          CALL PTRACERS_MNC_INIT( myThid )
150        ENDIF        ENDIF
151  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22