/[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.2.6.2 by heimbach, Tue Jul 8 15:20:22 2003 UTC
# Line 56  c     ================================== Line 56  c     ==================================
56  c     o Read an active 2D (XY) variable from file.  c     o Read an active 2D (XY) variable from file.
57  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
58  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_read_xy  
 c     ==================================================================  
59  C     \ev  C     \ev
60    
61  C     !USES:  C     !USES:
# Line 125  c     ================================== Line 123  c     ==================================
123  c     o Read an active 3D variable from file.  c     o Read an active 3D variable from file.
124  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
125  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_read_xyz  
 c     ==================================================================  
126  C     \ev  C     \ev
127    
128  C     !USES:  C     !USES:
# Line 195  c     ================================== Line 191  c     ==================================
191  c     o Read an active 2D xz-slice from file.  c     o Read an active 2D xz-slice from file.
192  c     started: heimbach@mit.edu 05-Mar-2001  c     started: heimbach@mit.edu 05-Mar-2001
193  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_read_xz  
 c     ==================================================================  
194  C     \ev  C     \ev
195    
196  C     !USES:  C     !USES:
# Line 233  c     == local variables == Line 227  c     == local variables ==
227  c     == end of interface ==  c     == end of interface ==
228  CEOP  CEOP
229    
230        mynr = 1        mynr = nr
231        call active_read_xz_rl( active_var_file, active_var, doglobalread,        call active_read_xz_rl( active_var_file, active_var, doglobalread,
232       &                     lAdInit, irec, mynr,       &                     lAdInit, irec, mynr,
233       &                     FORWARD_SIMULATION, myOptimIter, mythid)       &                     FORWARD_SIMULATION, myOptimIter, mythid)
# Line 265  c     ================================== Line 259  c     ==================================
259  c     o Read an active 2D yz-slice from file.  c     o Read an active 2D yz-slice from file.
260  c     started: heimbach@mit.edu 05-Mar-2001  c     started: heimbach@mit.edu 05-Mar-2001
261  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_read_yz  
 c     ==================================================================  
262  C     \ev  C     \ev
263    
264  C     !USES:  C     !USES:
# Line 303  c     == local variables == Line 295  c     == local variables ==
295  c     == end of interface ==  c     == end of interface ==
296  CEOP  CEOP
297    
298        mynr = 1        mynr = nr
299        call active_read_yz_rl( active_var_file, active_var, doglobalread,        call active_read_yz_rl( active_var_file, active_var, doglobalread,
300       &                     lAdInit, irec, mynr,       &                     lAdInit, irec, mynr,
301       &                     FORWARD_SIMULATION, myOptimIter, mythid)       &                     FORWARD_SIMULATION, myOptimIter, mythid)
# Line 332  c     ================================== Line 324  c     ==================================
324  c     o Write an active 2D variable to a file.  c     o Write an active 2D variable to a file.
325  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
326  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_write_xy  
 c     ==================================================================  
327  C     \ev  C     \ev
328    
329  C     !USES:  C     !USES:
# Line 395  c     ================================== Line 385  c     ==================================
385  c     o Write an active 3D variable to a file.  c     o Write an active 3D variable to a file.
386  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  c     started: Christian Eckert eckert@mit.edu 30-Jun-1999
387  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_write_xyz  
 c     ==================================================================  
388  C     \ev  C     \ev
389    
390  C     !USES:  C     !USES:
# Line 457  c     ================================== Line 445  c     ==================================
445  c     o Write an active 2D xz-slice to a file.  c     o Write an active 2D xz-slice to a file.
446  c     started: heimbach@mit.edu 05-Mar-2001  c     started: heimbach@mit.edu 05-Mar-2001
447  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_write_xz  
 c     ==================================================================  
448  C     \ev  C     \ev
449    
450  C     !USES:  C     !USES:
# Line 489  c     == local variables == Line 475  c     == local variables ==
475  c     == end of interface ==  c     == end of interface ==
476  CEOP  CEOP
477    
478        mynr = 1        mynr = nr
479        globalfile = .false.        globalfile = .false.
480    
481        call active_write_xz_rl( active_var_file, active_var, globalfile,        call active_write_xz_rl( active_var_file, active_var, globalfile,
# Line 520  c     ================================== Line 506  c     ==================================
506  c     o Write an active 2D variable to a file.  c     o Write an active 2D variable to a file.
507  c     started: heimbach@mit.edu 05-Mar-2001  c     started: heimbach@mit.edu 05-Mar-2001
508  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_write_yz  
 c     ==================================================================  
509  C     \ev  C     \ev
510    
511  C     !USES:  C     !USES:
# Line 552  c     == local variables == Line 536  c     == local variables ==
536  c     == end of interface ==  c     == end of interface ==
537  CEOP  CEOP
538    
539        mynr = 1        mynr = nr
540        globalfile = .false.        globalfile = .false.
541    
542        call active_write_yz_rl( active_var_file, active_var, globalfile,        call active_write_yz_rl( active_var_file, active_var, globalfile,
# Line 595  c              - Added routines that do Line 579  c              - Added routines that do
579  c                instead of a whole thread.  c                instead of a whole thread.
580  c  c
581  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_read_tile_xy  
 c     ==================================================================  
582    
583        implicit none        implicit none
584    
# Line 673  c              - Added routines that do Line 655  c              - Added routines that do
655  c                instead of a whole thread.  c                instead of a whole thread.
656  c  c
657  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_read_tile_xyz  
 c     ==================================================================  
658    
659        implicit none        implicit none
660    
# Line 750  c              - Added routines that do Line 730  c              - Added routines that do
730  c                instead of a whole thread.  c                instead of a whole thread.
731  c  c
732  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_write_tile_xy  
 c     ==================================================================  
733    
734        implicit none        implicit none
735    
# Line 826  c              - Added routines that do Line 804  c              - Added routines that do
804  c                instead of a whole thread.  c                instead of a whole thread.
805  c  c
806  c     ==================================================================  c     ==================================================================
 c     SUBROUTINE active_write_tile_xyz  
 c     ==================================================================  
807    
808        implicit none        implicit none
809    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.6.2
  ViewVC Help
Powered by ViewVC 1.1.22