/[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.21 by jmc, Sat Jul 30 23:53:48 2005 UTC revision 1.22 by mlosch, Tue Oct 11 08:35:36 2005 UTC
# Line 61  C                          are written t Line 61  C                          are written t
61       &     PTRACERS_names,       &     PTRACERS_names,
62       &     PTRACERS_long_names,       &     PTRACERS_long_names,
63       &     PTRACERS_units,       &     PTRACERS_units,
64       &     PTRACERS_timeave_mnc, PTRACERS_snapshot_mnc,       &     PTRACERS_timeave_mnc,
65       &     PTRACERS_pickup_write_mnc, PTRACERS_pickup_read_mnc       &     PTRACERS_snapshot_mnc,
66         &     PTRACERS_monitor_mnc,
67         &     PTRACERS_pickup_write_mnc,
68         &     PTRACERS_pickup_read_mnc
69    
70  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
71  C     internal flag to indicate we are in business  C     internal flag to indicate we are in business
# Line 96  C     Set defaults values for parameters Line 99  C     Set defaults values for parameters
99  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
100        PTRACERS_timeave_mnc      = timeave_mnc .AND. useMNC        PTRACERS_timeave_mnc      = timeave_mnc .AND. useMNC
101        PTRACERS_snapshot_mnc     = snapshot_mnc .AND. useMNC        PTRACERS_snapshot_mnc     = snapshot_mnc .AND. useMNC
102          PTRACERS_monitor_mnc      = monitor_mnc .AND. useMNC
103        PTRACERS_pickup_write_mnc = pickup_write_mnc .AND. useMNC        PTRACERS_pickup_write_mnc = pickup_write_mnc .AND. useMNC
104        PTRACERS_pickup_read_mnc  = pickup_read_mnc .AND. useMNC        PTRACERS_pickup_read_mnc  = pickup_read_mnc .AND. useMNC
105  #else  #else
106        PTRACERS_timeave_mnc      = .FALSE.        PTRACERS_timeave_mnc      = .FALSE.
107        PTRACERS_snapshot_mnc     = .FALSE.        PTRACERS_snapshot_mnc     = .FALSE.
108          PTRACERS_monitor_mnc      = .FALSE.
109        PTRACERS_pickup_write_mnc = .FALSE.        PTRACERS_pickup_write_mnc = .FALSE.
110        PTRACERS_pickup_read_mnc  = .FALSE.        PTRACERS_pickup_read_mnc  = .FALSE.
111  #endif  #endif
# Line 182  C     Check that enough parameters were Line 187  C     Check that enough parameters were
187    
188  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
189        PTRACERS_timeave_mnc      =        PTRACERS_timeave_mnc      =
190       &     PTRACERS_timeave_mnc .AND. useMNC       &     PTRACERS_timeave_mnc      .AND. useMNC
191        PTRACERS_snapshot_mnc     =        PTRACERS_snapshot_mnc     =
192       &     PTRACERS_snapshot_mnc .AND. useMNC       &     PTRACERS_snapshot_mnc     .AND. useMNC
193          PTRACERS_monitor_mnc      =
194         &     PTRACERS_monitor_mnc      .AND. useMNC .AND. monitor_mnc
195        PTRACERS_pickup_write_mnc =        PTRACERS_pickup_write_mnc =
196       &     PTRACERS_pickup_write_mnc .AND. useMNC       &     PTRACERS_pickup_write_mnc .AND. useMNC
197        PTRACERS_pickup_read_mnc  =        PTRACERS_pickup_read_mnc  =
198       &     PTRACERS_pickup_read_mnc .AND. useMNC       &     PTRACERS_pickup_read_mnc  .AND. useMNC
199    
200        PTRACERS_timeave_mdsio      = (.NOT. PTRACERS_timeave_mnc)        PTRACERS_timeave_mdsio      = (.NOT. PTRACERS_timeave_mnc)
201       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
202        PTRACERS_snapshot_mdsio     = (.NOT. PTRACERS_snapshot_mnc)        PTRACERS_snapshot_mdsio     = (.NOT. PTRACERS_snapshot_mnc)
203       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
204          PTRACERS_monitor_stdio      = (.NOT. PTRACERS_monitor_mnc)
205         &     .OR. outputTypesInclusive
206        PTRACERS_pickup_write_mdsio = (.NOT. PTRACERS_pickup_write_mnc)        PTRACERS_pickup_write_mdsio = (.NOT. PTRACERS_pickup_write_mnc)
207       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
208        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)
# Line 202  C     Check that enough parameters were Line 211  C     Check that enough parameters were
211  #else  #else
212        PTRACERS_timeave_mnc        = .FALSE.        PTRACERS_timeave_mnc        = .FALSE.
213        PTRACERS_snapshot_mnc       = .FALSE.        PTRACERS_snapshot_mnc       = .FALSE.
214          PTRACERS_monitor_mnc        = .FALSE.
215        PTRACERS_pickup_write_mnc   = .FALSE.        PTRACERS_pickup_write_mnc   = .FALSE.
216        PTRACERS_pickup_read_mnc    = .FALSE.        PTRACERS_pickup_read_mnc    = .FALSE.
217        PTRACERS_timeave_mdsio      = .TRUE.        PTRACERS_timeave_mdsio      = .TRUE.
218        PTRACERS_snapshot_mdsio     = .TRUE.        PTRACERS_snapshot_mdsio     = .TRUE.
219          PTRACERS_monitor_stdio      = .TRUE.
220        PTRACERS_pickup_write_mdsio = .TRUE.        PTRACERS_pickup_write_mdsio = .TRUE.
221        PTRACERS_pickup_read_mdsio  = .TRUE.        PTRACERS_pickup_read_mdsio  = .TRUE.
222  #endif  #endif
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22