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