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

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

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

revision 1.2 by heimbach, Fri Sep 28 04:19:27 2001 UTC revision 1.6 by heimbach, Fri Mar 24 22:58:24 2006 UTC
# Line 1  Line 1 
1    C $Header$
2    
3  #include "CPP_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
4    
5  c     ==================================================================  c     ==================================================================
6  c  c
# Line 25  c Line 26  c
26  c    o  active_write_tile_xy   - Write an active 2D variable to a file.  c    o  active_write_tile_xy   - Write an active 2D variable to a file.
27  c    o  active_write_tile_xyz  - Write an active 3D variable to a file.  c    o  active_write_tile_xyz  - Write an active 3D variable to a file.
28  c  c
 c  
29  c        changed: Christian Eckert eckert@mit.edu 24-Apr-2000  c        changed: Christian Eckert eckert@mit.edu 24-Apr-2000
30  c                 - Added routines that do active writes on tiles  c                 - Added routines that do active writes on tiles
31  c                   instead of a whole thread.  c                   instead of a whole thread.
# Line 233  c     == local variables == Line 233  c     == local variables ==
233  c     == end of interface ==  c     == end of interface ==
234  CEOP  CEOP
235    
236        mynr = 1        mynr = nr
237        call active_read_xz_rl( active_var_file, active_var, doglobalread,        call active_read_xz_rl( active_var_file, active_var, doglobalread,
238       &                     lAdInit, irec, mynr,       &                     lAdInit, irec, mynr,
239       &                     FORWARD_SIMULATION, myOptimIter, mythid)       &                     FORWARD_SIMULATION, myOptimIter, mythid)
# Line 303  c     == local variables == Line 303  c     == local variables ==
303  c     == end of interface ==  c     == end of interface ==
304  CEOP  CEOP
305    
306        mynr = 1        mynr = nr
307        call active_read_yz_rl( active_var_file, active_var, doglobalread,        call active_read_yz_rl( active_var_file, active_var, doglobalread,
308       &                     lAdInit, irec, mynr,       &                     lAdInit, irec, mynr,
309       &                     FORWARD_SIMULATION, myOptimIter, mythid)       &                     FORWARD_SIMULATION, myOptimIter, mythid)
# Line 489  c     == local variables == Line 489  c     == local variables ==
489  c     == end of interface ==  c     == end of interface ==
490  CEOP  CEOP
491    
492        mynr = 1        mynr = nr
493        globalfile = .false.        globalfile = .false.
494    
495        call active_write_xz_rl( active_var_file, active_var, globalfile,        call active_write_xz_rl( active_var_file, active_var, globalfile,
# Line 552  c     == local variables == Line 552  c     == local variables ==
552  c     == end of interface ==  c     == end of interface ==
553  CEOP  CEOP
554    
555        mynr = 1        mynr = nr
556        globalfile = .false.        globalfile = .false.
557    
558        call active_write_yz_rl( active_var_file, active_var, globalfile,        call active_write_yz_rl( active_var_file, active_var, globalfile,
# Line 870  c     == end of interface == Line 870  c     == end of interface ==
870    
871        return        return
872        end        end
873    
874    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22