/[MITgcm]/MITgcm/pkg/autodiff/autodiff_ini_model_io.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_ini_model_io.F

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

revision 1.16 by mlosch, Thu Oct 8 08:22:52 2009 UTC revision 1.17 by gforget, Fri Jan 21 01:19:03 2011 UTC
# Line 32  C     \ev Line 32  C     \ev
32  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
33  #include "adcommon.h"  #include "adcommon.h"
34  #endif  #endif
35    #include "AUTODIFF.h"
36    
37  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
38  C     myThid -  Number of this instances  C     myThid -  Number of this instances
39        INTEGER myThid        INTEGER myThid
40  CEOP  CEOP
41    
42    #ifdef ALLOW_AUTODIFF_WHTAPEIO
43          integer myLev
44    
45          tapeFileUnit=0
46          do myLev=1,4
47            tapeFileUnitS(myLev)=0
48          enddo
49    
50          tapeFileCounter=0
51          tapeMaxCounter=30*nR
52    
53          tapeConcatIO=.TRUE.
54          tapeSingleCpuIO=useSingleCpuIO
55          tapeBufferIO=.FALSE.
56    #endif /* ALLOW_AUTODIFF_WHTAPEIO */
57    
58  #if (defined (ALLOW_MNC) && defined (ALLOW_AUTODIFF_MONITOR))  #if (defined (ALLOW_MNC) && defined (ALLOW_AUTODIFF_MONITOR))
59    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22