/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Mon Feb 7 20:49:09 2005 UTC revision 1.5 by edhill, Sun Feb 20 04:31:54 2005 UTC
# Line 49  C     filename  :: List Output Filename Line 49  C     filename  :: List Output Filename
49    
50        NAMELIST / diagnostics_list /        NAMELIST / diagnostics_list /
51       &     frequency, levels, fields, filename,       &     frequency, levels, fields, filename,
52       &     diag_mnc       &     diag_mnc,
53         &     diag_pickup_read,     diag_pickup_write,
54         &     diag_pickup_read_mnc, diag_pickup_write_mnc
55    
56  C     Initialize and Read Diagnostics Namelist  C     Initialize and Read Diagnostics Namelist
57        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
# Line 67  C     Initialize and Read Diagnostics Na Line 69  C     Initialize and Read Diagnostics Na
69          ENDDO          ENDDO
70        ENDDO        ENDDO
71        diag_mnc = useMNC        diag_mnc = useMNC
72          diag_pickup_read      = .FALSE.
73          diag_pickup_write     = .FALSE.
74          diag_pickup_read_mnc  = .FALSE.
75          diag_pickup_write_mnc = .FALSE.
76    
77        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
78       &     ' DIAGNOSTICS_READPARMS: opening data.diagnostics'       &     ' DIAGNOSTICS_READPARMS: opening data.diagnostics'
# Line 96  C     Initialise diag_choices common blo Line 102  C     Initialise diag_choices common blo
102  C     Fill Diagnostics Common Block with Namelist Info  C     Fill Diagnostics Common Block with Namelist Info
103        diag_mnc = diag_mnc .AND. useMNC        diag_mnc = diag_mnc .AND. useMNC
104        diag_mdsio = (.NOT. diag_mnc) .OR. outputTypesInclusive        diag_mdsio = (.NOT. diag_mnc) .OR. outputTypesInclusive
105          diag_pickup_read_mnc  = diag_pickup_read_mnc .AND. diag_mnc
106          diag_pickup_write_mnc = diag_pickup_write_mnc .AND. diag_mnc
107          diag_pickup_read_mdsio  =
108         &     diag_pickup_read .AND. (.NOT. diag_pickup_read_mnc)
109          diag_pickup_write_mdsio = diag_pickup_write .AND.
110         &     ((.NOT. diag_pickup_write_mnc) .OR. outputTypesInclusive)
111    
112        DO l = 1,ldimLoc        DO l = 1,ldimLoc
113         IF ( frequency(l).NE.0 .AND. nlists.LT.numlists ) THEN         IF ( frequency(l).NE.0 .AND. nlists.LT.numlists ) THEN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22