/[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.3 by jmc, Mon Dec 20 01:52:58 2004 UTC revision 1.4 by jmc, Mon Feb 7 20:49:09 2005 UTC
# Line 66  C     Initialize and Read Diagnostics Na Line 66  C     Initialize and Read Diagnostics Na
66            fields (m,l) = blk8c            fields (m,l) = blk8c
67          ENDDO          ENDDO
68        ENDDO        ENDDO
69        diag_mnc   = .FALSE.        diag_mnc = useMNC
70    
71        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
72       &     ' DIAGNOSTICS_READPARMS: opening data.diagnostics'       &     ' DIAGNOSTICS_READPARMS: opening data.diagnostics'
# Line 92  C     Initialise diag_choices common blo Line 92  C     Initialise diag_choices common blo
92            jdiag(m,n) = 0            jdiag(m,n) = 0
93          ENDDO          ENDDO
94        ENDDO        ENDDO
       diag_mdsio = .TRUE.  
95    
96  C     Fill Diagnostics Common Block with Namelist Info  C     Fill Diagnostics Common Block with Namelist Info
97        IF ( useMNC .AND. diag_mnc        diag_mnc = diag_mnc .AND. useMNC
98       &            .AND. (.NOT. outputTypesInclusive)) THEN        diag_mdsio = (.NOT. diag_mnc) .OR. outputTypesInclusive
         diag_mdsio = .FALSE.  
       ENDIF  
99    
100        DO l = 1,ldimLoc        DO l = 1,ldimLoc
101         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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22