/[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.3 by heimbach, Thu Mar 6 23:47:46 2003 UTC
# 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,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22