/[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.6 by heimbach, Wed Feb 11 16:00:32 2004 UTC revision 1.7 by heimbach, Mon Feb 23 19:13:02 2004 UTC
# Line 56  c     == global variables == Line 56  c     == global variables ==
56  #include "EEPARAMS.h"  #include "EEPARAMS.h"
57  #include "SIZE.h"  #include "SIZE.h"
58  #include "PARAMS.h"  #include "PARAMS.h"
59    #include "ctrl.h"
60    
61  c     == routine arguments ==  c     == routine arguments ==
62    
# Line 94  c     == end of interface == Line 95  c     == end of interface ==
95    
96  c     force 64-bit io  c     force 64-bit io
97        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
98        readBinaryPrec = precFloat32        readBinaryPrec = ctrlprec
99        prec           = precFloat32        prec           = ctrlprec
100    
101        write(adfname(1:80),'(80a)') ' '        write(adfname(1:80),'(80a)') ' '
102        adpref = 'ad'        adpref = 'ad'
# Line 275  c     == global variables == Line 276  c     == global variables ==
276  #include "EEPARAMS.h"  #include "EEPARAMS.h"
277  #include "SIZE.h"  #include "SIZE.h"
278  #include "PARAMS.h"  #include "PARAMS.h"
279    #include "ctrl.h"
280    
281  c     == routine arguments ==  c     == routine arguments ==
282    
# Line 300  c     == end of interface == Line 302  c     == end of interface ==
302    
303  c     force 64-bit io  c     force 64-bit io
304        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
305        readBinaryPrec = precFloat32        readBinaryPrec = ctrlprec
306        prec           = precFloat32        prec           = ctrlprec
307    
308  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
309  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<
# Line 440  c     == global variables == Line 442  c     == global variables ==
442  #include "EEPARAMS.h"  #include "EEPARAMS.h"
443  #include "SIZE.h"  #include "SIZE.h"
444  #include "PARAMS.h"  #include "PARAMS.h"
445    #include "ctrl.h"
446    
447  c     == routine arguments ==  c     == routine arguments ==
448    
# Line 478  c     == end of interface == Line 481  c     == end of interface ==
481    
482  c     force 64-bit io  c     force 64-bit io
483        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
484        readBinaryPrec = precFloat32        readBinaryPrec = ctrlprec
485        prec           = precFloat32        prec           = ctrlprec
486    
487        write(adfname(1:80),'(80a)') ' '        write(adfname(1:80),'(80a)') ' '
488        adpref = 'ad'        adpref = 'ad'
# Line 659  c     == global variables == Line 662  c     == global variables ==
662  #include "EEPARAMS.h"  #include "EEPARAMS.h"
663  #include "SIZE.h"  #include "SIZE.h"
664  #include "PARAMS.h"  #include "PARAMS.h"
665    #include "ctrl.h"
666    
667  c     == routine arguments ==  c     == routine arguments ==
668    
# Line 684  c     == end of interface == Line 688  c     == end of interface ==
688    
689  c     force 64-bit io  c     force 64-bit io
690        oldPrec        = readBinaryPrec        oldPrec        = readBinaryPrec
691        readBinaryPrec = precFloat32        readBinaryPrec = ctrlprec
692        prec           = precFloat32        prec           = ctrlprec
693    
694  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>>             <<<<<<<<<<<<<<<<<<<
695  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<  c     >>>>>>>>>>>>>>>>>>> FORWARD RUN <<<<<<<<<<<<<<<<<<<
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22