/[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.24 by edhill, Fri Oct 22 21:30:31 2004 UTC revision 1.25 by edhill, Sun Nov 14 03:34:35 2004 UTC
# Line 238  C           based on the byte count per Line 238  C           based on the byte count per
238                fsnu = (1.0 _d 0 + 1.0 _d 0 / DBLE(unlim_sz))                fsnu = (1.0 _d 0 + 1.0 _d 0 / DBLE(unlim_sz))
239       &             * DBLE(nbytes)       &             * DBLE(nbytes)
240                IF (fsnu .GT. mnc_max_fsize) THEN                IF (fsnu .GT. mnc_max_fsize) THEN
241    C               Delete the now-full fname from the lookup tables since
242    C               we are all done writing to it.
243                    CALL MNC_FILE_CLOSE(fname, myThid)
244                  iseq = iseq + 1                  iseq = iseq + 1
245                  indu = 1                  indu = 1
246                  mnc_cw_fgud(indfg) = 1                  mnc_cw_fgud(indfg) = 1
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22