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

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

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

revision 1.5 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.6 by heimbach, Wed Feb 11 16:00:32 2004 UTC
# Line 94  c     == end of interface == Line 94  c     == end of interface ==
94    
95  c     force 64-bit io  c     force 64-bit io
96        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
97        readBinaryPrec = precFloat64        readBinaryPrec = precFloat32
98        prec           = precFloat64        prec           = precFloat32
99    
100        write(adfname(1:80),'(80a)') ' '        write(adfname(1:80),'(80a)') ' '
101        adpref = 'ad'        adpref = 'ad'
# Line 300  c     == end of interface == Line 300  c     == end of interface ==
300    
301  c     force 64-bit io  c     force 64-bit io
302        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
303        readBinaryPrec = precFloat64        readBinaryPrec = precFloat32
304        prec           = precFloat64        prec           = precFloat32
305    
306  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
307  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<
# Line 478  c     == end of interface == Line 478  c     == end of interface ==
478    
479  c     force 64-bit io  c     force 64-bit io
480        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
481        readBinaryPrec = precFloat64        readBinaryPrec = precFloat32
482        prec           = precFloat64        prec           = precFloat32
483    
484        write(adfname(1:80),'(80a)') ' '        write(adfname(1:80),'(80a)') ' '
485        adpref = 'ad'        adpref = 'ad'
# Line 684  c     == end of interface == Line 684  c     == end of interface ==
684    
685  c     force 64-bit io  c     force 64-bit io
686        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
687        readBinaryPrec = precFloat64        readBinaryPrec = precFloat32
688        prec           = precFloat64        prec           = precFloat32
689    
690  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
691  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22