/[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.12 by jmc, Thu Oct 28 00:32:21 2004 UTC revision 1.13 by mlosch, Sun Nov 28 23:50:59 2004 UTC
# Line 41  C     PTRACERS_taveFreq :: Frequency wit Line 41  C     PTRACERS_taveFreq :: Frequency wit
41  C                          are written to post-processing files.  C                          are written to post-processing files.
42        NAMELIST /PTRACERS_PARM01/        NAMELIST /PTRACERS_PARM01/
43       &     PTRACERS_taveFreq,       &     PTRACERS_taveFreq,
44         &     PTRACERS_monitorFreq,
45       &     PTRACERS_advScheme,       &     PTRACERS_advScheme,
46       &     PTRACERS_diffKh,       &     PTRACERS_diffKh,
47       &     PTRACERS_diffK4,       &     PTRACERS_diffK4,
# Line 62  C     internal flag to indicate we are i Line 63  C     internal flag to indicate we are i
63        PTRACERSisON=.TRUE.        PTRACERSisON=.TRUE.
64    
65  C     Set defaults values for parameters in PTRACERS.h  C     Set defaults values for parameters in PTRACERS.h
66        PTRACERS_taveFreq=taveFreq        PTRACERS_taveFreq    = taveFreq
67          PTRACERS_monitorFreq = monitorFreq
68        PTRACERS_numInUse=-1        PTRACERS_numInUse=-1
69        DO iTracer=1,PTRACERS_num        DO iTracer=1,PTRACERS_num
70          PTRACERS_advScheme(iTracer)=saltAdvScheme          PTRACERS_advScheme(iTracer)=saltAdvScheme
# Line 155  C       Set the default I/O Types Line 157  C       Set the default I/O Types
157          IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.          IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.
158          IF ( (.NOT. outputTypesInclusive)          IF ( (.NOT. outputTypesInclusive)
159       &       .AND. PTRACERS_write_mnc ) pickup_write_mdsio = .FALSE.       &       .AND. PTRACERS_write_mnc ) pickup_write_mdsio = .FALSE.
160            IF ( (.NOT. outputTypesInclusive)
161         &       .AND. PTRACERS_write_mnc ) PTRACERS_write_mdsio = .FALSE.
162                    
163  C       Initialize the MNC variable types for PTRACERS  C       Initialize the MNC variable types for PTRACERS
164          CALL PTRACERS_MNC_INIT( myThid )          CALL PTRACERS_MNC_INIT( myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22