/[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.7 by jmc, Mon Oct 8 23:50:52 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    
6  c     ==================================================================  c     ==================================================================
7  c  c
# Line 25  c Line 27  c
27  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.
28  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.
29  c  c
 c  
30  c        changed: Christian Eckert eckert@mit.edu 24-Apr-2000  c        changed: Christian Eckert eckert@mit.edu 24-Apr-2000
31  c                 - Added routines that do active writes on tiles  c                 - Added routines that do active writes on tiles
32  c                   instead of a whole thread.  c                   instead of a whole thread.
# Line 233  c     == local variables == Line 234  c     == local variables ==
234  c     == end of interface ==  c     == end of interface ==
235  CEOP  CEOP
236    
237        mynr = 1        mynr = nr
238        call active_read_xz_rl( active_var_file, active_var, doglobalread,        call active_read_xz_rl( active_var_file, active_var, doglobalread,
239       &                     lAdInit, irec, mynr,       &                     lAdInit, irec, mynr,
240       &                     FORWARD_SIMULATION, myOptimIter, mythid)       &                     FORWARD_SIMULATION, myOptimIter, mythid)
# Line 303  c     == local variables == Line 304  c     == local variables ==
304  c     == end of interface ==  c     == end of interface ==
305  CEOP  CEOP
306    
307        mynr = 1        mynr = nr
308        call active_read_yz_rl( active_var_file, active_var, doglobalread,        call active_read_yz_rl( active_var_file, active_var, doglobalread,
309       &                     lAdInit, irec, mynr,       &                     lAdInit, irec, mynr,
310       &                     FORWARD_SIMULATION, myOptimIter, mythid)       &                     FORWARD_SIMULATION, myOptimIter, mythid)
# Line 489  c     == local variables == Line 490  c     == local variables ==
490  c     == end of interface ==  c     == end of interface ==
491  CEOP  CEOP
492    
493        mynr = 1        mynr = nr
494        globalfile = .false.        globalfile = .false.
495    
496        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 553  c     == local variables ==
553  c     == end of interface ==  c     == end of interface ==
554  CEOP  CEOP
555    
556        mynr = 1        mynr = nr
557        globalfile = .false.        globalfile = .false.
558    
559        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 871  c     == end of interface ==
871    
872        return        return
873        end        end
874    
875    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22