/[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.20 by edhill, Sat Jul 30 00:58:41 2005 UTC revision 1.21 by jmc, Sat Jul 30 23:53:48 2005 UTC
# Line 199  C     Check that enough parameters were Line 199  C     Check that enough parameters were
199        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)
200       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
201                
       IF (useMNC) THEN  
 C       Initialize the MNC variable types for PTRACERS  
         CALL PTRACERS_MNC_INIT( myThid )  
       ENDIF  
202  #else  #else
203        PTRACERS_timeave_mnc        = .FALSE.        PTRACERS_timeave_mnc        = .FALSE.
204        PTRACERS_snapshot_mnc       = .FALSE.        PTRACERS_snapshot_mnc       = .FALSE.
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22