/[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.5 by heimbach, Thu Mar 23 23:06:47 2006 UTC revision 1.6 by heimbach, Fri Mar 24 22:58:24 2006 UTC
# Line 1  Line 1 
1    C $Header$
2    
3  #include "AUTODIFF_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
4    
# 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    o  active_read_profile       - Read  an active 1D record.  
 c    o  active_write_profile      - Write an active 1D record.  
 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 874  c     == end of interface == Line 871  c     == end of interface ==
871        return        return
872        end        end
873    
 C     !ROUTINE: active_read_profile  
 C     !INTERFACE:  
       subroutine active_read_profile(  
      I                           active_num_file,  
      I                           nactive_var,  
      O                           active_var,  
      I                           active_varnum,  
      I                           irec,  
      I                           lAdInit,  
      I                           myOptimIter,  
      I                           mythid,  
      I                           dummy  
      &                         )  
   
 c     ==================================================================  
 c     SUBROUTINE active_read_profile  
 c     ==================================================================  
 c     o Read an active 1D record from an profile data file.  
 c     ==================================================================  
   
       implicit none  
 c     == global variables ==  
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
 #include "profiles.h"  
   
 c     == routine arguments ==  
 c     active_var_file: filename  
 c     nactive_var:     integer size of active_var  
 c     active_var:      array  
 c     active_varname:      name fo the quantity to save  
 c     irec:            record number  
 c     myOptimIter:     number of optimization iteration (default: 0)  
 c     mythid:          thread number for this instance  
 c     lAdInit:         initialisation of corresponding adjoint  
 c                      variable and write to active file  
       integer  nactive_var,active_num_file  
       _RL   active_var(nactive_var)  
       integer  irec,active_varnum  
       integer  myOptimIter  
       integer  mythid  
       logical  lAdInit  
       _RL      dummy  
   
   
       call active_read_profile_rl( fidforward(active_num_file),  
      &     active_num_file,  
      &     nactive_var, active_var, active_varnum, lAdInit,  
      &     irec, prof_ind_glob(active_num_file,irec),  
      &     FORWARD_SIMULATION, myOptimIter, mythid)  
   
       return  
       end  
   
 c     ==================================================================  
 c     ==================================================================  
 c     ==================================================================  
   
 C     !ROUTINE: active_write_profile  
 C     !INTERFACE:  
       subroutine active_write_profile(  
      I                           active_num_file,  
      I                           nactive_var,  
      I                           active_var,  
      I                           active_varnum,  
      I                           irec,  
      I                           myOptimIter,  
      I                           mythid,  
      I                           dummy  
      &                         )  
   
 C     !DESCRIPTION: \bv  
 c     ==================================================================  
 c     SUBROUTINE active_write_profile  
 c     ==================================================================  
 c     o Write an active 1D record from file.  
 c     ==================================================================  
   
 C     !USES:  
       implicit none  
   
 c     == global variables ==  
 #include "EEPARAMS.h"  
 #include "SIZE.h"  
 #include "profiles.h"  
   
 c     == routine arguments ==  
 c     active_var_file: filename  
 c     nactive_var:     integer size of active_var  
 c     active_var:      array  
 c     active_varname:      name fo the quantity to save  
 c     irec:            record number  
 c     myOptimIter:     number of optimization iteration (default: 0)  
 c     mythid:          thread number for this instance  
       integer  nactive_var,active_num_file, active_varnum  
       _RL   active_var(nactive_var)  
       integer  irec  
       integer  myOptimIter  
       integer  mythid  
       _RL      dummy  
   
       call active_write_profile_rl( fidforward(active_num_file),  
      &     active_num_file,  
      &  nactive_var, active_var, active_varnum,  
      &     irec, prof_ind_glob(active_num_file,irec),  
      &  FORWARD_SIMULATION, myOptimIter, mythid)  
   
       return  
       end  
   
 c     ==================================================================  
   
874    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22