213 |
CALL MNC_PSNCM(tmpnm, uniq_tnum, MNC_DEF_TMNC) |
CALL MNC_PSNCM(tmpnm, uniq_tnum, MNC_DEF_TMNC) |
214 |
k = ILNBLNK(tmpnm) |
k = ILNBLNK(tmpnm) |
215 |
IF ( mnc_cw_cit(1,mnc_cw_fgci(indfg)) .GT. -1 ) THEN |
IF ( mnc_cw_cit(1,mnc_cw_fgci(indfg)) .GT. -1 ) THEN |
216 |
|
j = mnc_cw_cit(2,mnc_cw_fgci(indfg)) |
217 |
|
IF ( mnc_cw_fgis(indfg) .GT. j ) |
218 |
|
& j = mnc_cw_fgis(indfg) |
219 |
write(fname,'(a,a1,i10.10,a2,a,a3)') fbname(n1:n2), |
write(fname,'(a,a1,i10.10,a2,a,a3)') fbname(n1:n2), |
220 |
& '.', mnc_cw_cit(2,mnc_cw_fgci(indfg)), |
& '.', j, '.t', tmpnm(1:k), '.nc' |
|
& '.t',tmpnm(1:k),'.nc' |
|
221 |
ELSEIF ( mnc_cw_cit(1,mnc_cw_fgci(indfg)) .EQ. -1 ) THEN |
ELSEIF ( mnc_cw_cit(1,mnc_cw_fgci(indfg)) .EQ. -1 ) THEN |
222 |
C Leave off the myIter value entirely |
C Leave off the myIter value entirely |
223 |
write(fname,'(a,a2,a,a3)') fbname(n1:n2), '.t', |
write(fname,'(a,a2,a,a3)') fbname(n1:n2), '.t', |
304 |
CALL print_error(msgbuf, mythid) |
CALL print_error(msgbuf, mythid) |
305 |
STOP 'ABNORMAL END: S/R MNC_CW_RX_W' |
STOP 'ABNORMAL END: S/R MNC_CW_RX_W' |
306 |
ENDIF |
ENDIF |
307 |
mnc_cw_cit(2,mnc_cw_fgci(indfg)) |
mnc_cw_fgis(indfg) = mnc_cw_cit(3,mnc_cw_fgci(indfg)) |
308 |
& = mnc_cw_cit(3,mnc_cw_fgci(indfg)) |
C DO NOT BUMP THE CURRENT ITER FOR ALL FILES IN THIS CITER |
309 |
mnc_cw_cit(3,mnc_cw_fgci(indfg)) = -1 |
C GROUP SINCE THIS IS ONLY GROWTH TO AVOID FILE SIZE |
310 |
|
C LIMITS FOR THIS ONE BASENAME GROUP, NOT GROWTH OF THE |
311 |
|
C ENTIRE CITER GROUP !!! |
312 |
|
C mnc_cw_cit(2,mnc_cw_fgci(indfg)) |
313 |
|
C & = mnc_cw_cit(3,mnc_cw_fgci(indfg)) |
314 |
|
C mnc_cw_cit(3,mnc_cw_fgci(indfg)) = -1 |
315 |
#endif |
#endif |
316 |
fs_isdone = 1 |
fs_isdone = 1 |
317 |
GOTO 10 |
GOTO 10 |