/[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.7 by jmc, Mon Oct 8 23:50:52 2007 UTC revision 1.8 by heimbach, Sat Nov 5 19:20:42 2011 UTC
# Line 21  c    o  active_write_xyz       - Write a Line 21  c    o  active_write_xyz       - Write a
21  c    o  active_write_xz        - Write an active 2D xz-slice to a file.  c    o  active_write_xz        - Write an active 2D xz-slice to a file.
22  c    o  active_write_yz        - Write an active 2D yz-slice to a file.  c    o  active_write_yz        - Write an active 2D yz-slice to a file.
23  c  c
 c    o  active_read_tile_xy    - Read  an active 2D variable from file.  
 c    o  active_read_tile_xyz   - Read  an active 3D variable from file.  
 c  
 c    o  active_write_tile_xy   - Write an active 2D variable to a file.  
 c    o  active_write_tile_xyz  - Write an active 3D variable to a file.  
 c  
24  c        changed: Christian Eckert eckert@mit.edu 24-Apr-2000  c        changed: Christian Eckert eckert@mit.edu 24-Apr-2000
25  c                 - Added routines that do active writes on tiles  c                 - Added routines that do active writes on tiles
26  c                   instead of a whole thread.  c                   instead of a whole thread.
# Line 562  CEOP Line 556  CEOP
556    
557        return        return
558        end        end
   
 c     ==================================================================  
   
       subroutine active_read_tile_xy(  
      I                                active_var_file,  
      O                                active_var,  
      I                                irec,  
      I                                doglobalread,  
      I                                bi,  
      I                                bj,  
      I                                lAdInit,  
      I                                myOptimIter,  
      I                                mythid  
      &                              )  
   
 c     ==================================================================  
 c     SUBROUTINE active_read_tile_xy  
 c     ==================================================================  
 c  
 c     o Read an active 2D variable from file.  
 c  
 c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  
 c  
 c     changed: Christian Eckert eckert@mit.edu 11-Feb-2000  
 c  
 c              - Restructured the code in order to create a package  
 c                for the MITgcmUV.c  
 c  
 c     changed: Christian Eckert eckert@mit.edu 24-Apr-2000  
 c  
 c              - Added routines that do active writes on tiles  
 c                instead of a whole thread.  
 c  
 c     ==================================================================  
 c     SUBROUTINE active_read_tile_xy  
 c     ==================================================================  
   
       implicit none  
   
 c     == global variables ==  
   
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
   
 c     == routine arguments ==  
   
       character*(*) active_var_file  
       _RL     active_var(1-olx:snx+olx,1-oly:sny+oly)  
       integer irec  
       integer myOptimIter  
       integer mythid  
       integer bi  
       integer bj  
       logical doglobalread  
       logical lAdInit  
   
 c     == local variables ==  
   
       integer mynr  
   
 c     == end of interface ==  
   
       mynr = 1  
       call active_read_tile_rl(  
      I                          active_var_file,  
      I                          active_var,  
      I                          doglobalread,  
      I                          lAdInit,  
      I                          irec,  
      I                          mynr,  
      I                          bi,  
      I                          bj,  
      I                          FORWARD_SIMULATION,  
      I                          myOptimIter,  
      I                          mythid  
      &                        )  
   
       return  
       end  
   
   
       subroutine active_read_tile_xyz(  
      I                                 active_var_file,  
      O                                 active_var,  
      I                                 irec,  
      I                                 doglobalread,  
      I                                 bi,  
      I                                 bj,  
      I                                 lAdInit,  
      I                                 myOptimIter,  
      I                                 mythid  
      &                               )  
   
 c     ==================================================================  
 c     SUBROUTINE active_read_tile_xyz  
 c     ==================================================================  
 c  
 c     o Read an active 3D variable from file.  
 c  
 c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  
 c  
 c     changed: Christian Eckert eckert@mit.edu 11-Feb-2000  
 c  
 c              - Restructured the code in order to create a package  
 c                for the MITgcmUV.c  
 c  
 c     changed: Christian Eckert eckert@mit.edu 24-Apr-2000  
 c  
 c              - Added routines that do active writes on tiles  
 c                instead of a whole thread.  
 c  
 c     ==================================================================  
 c     SUBROUTINE active_read_tile_xyz  
 c     ==================================================================  
   
       implicit none  
   
 c     == global variables ==  
   
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
   
 c     == routine arguments ==  
   
       character*(*) active_var_file  
       _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr)  
       integer irec  
       integer myOptimIter  
       integer mythid  
       logical doglobalread  
       integer bi  
       integer bj  
       logical lAdInit  
   
 c     == local variables ==  
   
       integer mynr  
   
 c     == end of interface ==  
   
       mynr = nr  
   
       call active_read_tile_rl(  
      I                          active_var_file,  
      I                          active_var,  
      I                          doglobalread,  
      I                          lAdInit,  
      I                          irec,  
      I                          mynr,  
      I                          bi,  
      I                          bj,  
      I                          FORWARD_SIMULATION,  
      I                          myOptimIter,  
      I                          mythid  
      &                        )  
   
       return  
       end  
   
   
       subroutine active_write_tile_xy(  
      I                                 active_var_file,  
      I                                 active_var,  
      I                                 irec,  
      I                                 bi,  
      I                                 bj,  
      I                                 myOptimIter,  
      I                                 mythid  
      &                               )  
   
 c     ==================================================================  
 c     SUBROUTINE active_write_tile_xy  
 c     ==================================================================  
 c  
 c     o Write an active 2D variable to a file.  
 c  
 c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  
 c  
 c     changed: Christian Eckert eckert@mit.edu 11-Feb-2000  
 c  
 c              - Restructured the code in order to create a package  
 c                for the MITgcmUV.c  
 c  
 c     changed: Christian Eckert eckert@mit.edu 24-Apr-2000  
 c  
 c              - Added routines that do active writes on tiles  
 c                instead of a whole thread.  
 c  
 c     ==================================================================  
 c     SUBROUTINE active_write_tile_xy  
 c     ==================================================================  
   
       implicit none  
   
 c     == global variables ==  
   
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
   
 c     == routine arguments ==  
   
       character*(*) active_var_file  
       _RL     active_var(1-olx:snx+olx,1-oly:sny+oly)  
       integer irec  
       integer bi  
       integer bj  
       integer myOptimIter  
       integer mythid  
   
 c     == local variables ==  
   
       integer mynr  
       logical globalfile  
   
 c     == end of interface ==  
   
       mynr = 1  
       globalfile = .false.  
   
       call active_write_tile_rl(  
      I                           active_var_file,  
      I                           active_var,  
      I                           globalfile,  
      I                           irec,  
      I                           mynr,  
      I                           bi,  
      I                           bj,  
      I                           FORWARD_SIMULATION,  
      I                           myOptimIter,  
      I                           mythid  
      &                         )  
   
       return  
       end  
   
   
       subroutine active_write_tile_xyz(  
      I                                  active_var_file,  
      I                                  active_var,  
      I                                  irec,  
      I                                  bi,  
      I                                  bj,  
      I                                  myOptimIter,  
      I                                  mythid  
      &                                )  
   
 c     ==================================================================  
 c     SUBROUTINE active_write_tile_xyz  
 c     ==================================================================  
 c  
 c     o Write an active 3D variable to a file.  
 c  
 c     started: Christian Eckert eckert@mit.edu 30-Jun-1999  
 c  
 c     changed: Christian Eckert eckert@mit.edu 11-Feb-2000  
 c  
 c              - Restructured the code in order to create a package  
 c                for the MITgcmUV.c  
 c  
 c     changed: Christian Eckert eckert@mit.edu 24-Apr-2000  
 c  
 c              - Added routines that do active writes on tiles  
 c                instead of a whole thread.  
 c  
 c     ==================================================================  
 c     SUBROUTINE active_write_tile_xyz  
 c     ==================================================================  
   
       implicit none  
   
 c     == global variables ==  
   
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
   
 c     == routine arguments ==  
   
       character*(*) active_var_file  
       _RL active_var(1-olx:snx+olx,1-oly:sny+oly,nr)  
       integer irec  
       integer bi  
       integer bj  
       integer myOptimIter  
       integer mythid  
   
 c     == local variables ==  
   
       integer mynr  
       logical globalfile  
   
 c     == end of interface ==  
   
       mynr = nr  
       globalfile = .false.  
       call active_write_tile_rl(  
      I                           active_var_file,  
      I                           active_var,  
      I                           globalfile,  
      I                           irec,  
      I                           mynr,  
      I                           bi,  
      I                           bj,  
      I                           FORWARD_SIMULATION,  
      I                           myOptimIter,  
      I                           mythid  
      &                         )  
   
       return  
       end  
   
   
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22