/[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.36 by mlosch, Tue Mar 15 16:40:55 2011 UTC revision 1.37 by mlosch, Tue Mar 15 16:53:05 2011 UTC
# Line 833  c     initialise some output Line 833  c     initialise some output
833         if ( nfac .ne. 1 ) then         if ( nfac .ne. 1 ) then
834  c     This is the case of obcs. I am not sure that this is correct, but  c     This is the case of obcs. I am not sure that this is correct, but
835  c     it seems to work in most configurations.  c     it seems to work in most configurations.
         print * , 'ml-startrec = ', startrec  
         print * , 'ml-endrec = ', endrec  
836          endrec   = (endrec - startrec + 1)*nfac          endrec   = (endrec - startrec + 1)*nfac
837          startrec = (startrec - 1)*nfac + 1          startrec = (startrec - 1)*nfac + 1
         print * , 'ml-startrec2 = ', startrec  
         print * , 'ml-endrec2 = ', endrec  
838         endif         endif
839        endif        endif
840  # else /* ndef ALLOW_CAL */  # else /* ndef ALLOW_CAL */
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22