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' |
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 |