51 |
|
|
52 |
#ifdef ALLOW_MDSIO |
#ifdef ALLOW_MDSIO |
53 |
LOGICAL lgf |
LOGICAL lgf |
54 |
INTEGER dUnit |
INTEGER dUnit, n, m |
55 |
#endif /* ALLOW_MDSIO */ |
#endif /* ALLOW_MDSIO */ |
56 |
|
|
57 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
145 |
CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description', |
CALL MNC_CW_ADD_VATTR_TEXT(d_cw_name,'description', |
146 |
& 'diagnostics state',myThid) |
& 'diagnostics state',myThid) |
147 |
|
|
148 |
CALL MNC_CW_RL_W('I',diag_mnc_bn,0,0, |
CALL MNC_CW_I_W('I',diag_mnc_bn,0,0, |
149 |
& d_cw_name, ndiag, myThid) |
& d_cw_name, ndiag, myThid) |
150 |
|
|
151 |
CALL MNC_CW_DEL_VNAME(d_cw_name, myThid) |
CALL MNC_CW_DEL_VNAME(d_cw_name, myThid) |
178 |
WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn) |
WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn) |
179 |
CALL MDSFINDUNIT( dUnit, mythid ) |
CALL MDSFINDUNIT( dUnit, mythid ) |
180 |
OPEN( dUnit, file=fn ) |
OPEN( dUnit, file=fn ) |
181 |
DO i = 1,numdiags |
DO n = 1,nlists |
182 |
WRITE(dUnit,'(I10)') ndiag(i) |
DO m = 1,nfields(n) |
183 |
|
WRITE(dUnit,'(I10)') ndiag(jdiag(m,n)) |
184 |
|
ENDDO |
185 |
ENDDO |
ENDDO |
186 |
CLOSE( dUnit ) |
CLOSE( dUnit ) |
187 |
_END_MASTER( myThid ) |
_END_MASTER( myThid ) |