/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.33 by edhill, Mon Sep 19 02:24:40 2005 UTC revision 1.34 by edhill, Sat Sep 24 03:44:54 2005 UTC
# Line 213  C         Create the file name Line 213  C         Create the file name
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',
# Line 302  C               we are all done writing Line 304  C               we are all done writing
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
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22