/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

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

revision 1.41 by mlosch, Tue Jul 19 12:44:11 2011 UTC revision 1.42 by mlosch, Mon Jul 25 08:20:44 2011 UTC
# Line 881  c     initialise some output Line 881  c     initialise some output
881       &                fldperiod) + 2       &                fldperiod) + 2
882         if ( nfac .ne. 1 ) then         if ( nfac .ne. 1 ) then
883  c     This is the case of obcs.  c     This is the case of obcs.
         endrec   = endrec*nfac + 1  
884          startrec = (startrec - 1)*nfac + 1          startrec = (startrec - 1)*nfac + 1
885            endrec   = endrec*nfac
886         endif         endif
887        endif        endif
888  # else /* ndef ALLOW_CAL */  # else /* ndef ALLOW_CAL */
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22