/[MITgcm]/MITgcm/pkg/autodiff/active_file_loc_ad.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/active_file_loc_ad.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Mon Oct 8 23:50:53 2007 UTC revision 1.5 by heimbach, Fri Jun 20 21:43:19 2008 UTC
# Line 1  Line 1 
 C $Header$  
 C $Name$  
1    
2  #include "AUTODIFF_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
3    
# Line 25  c        changed: Christian Eckert ecker Line 23  c        changed: Christian Eckert ecker
23  c                 - Added routines that do active writes on tiles  c                 - Added routines that do active writes on tiles
24  c                   instead of a whole thread.  c                   instead of a whole thread.
25  c        changed: Patrick Heimbach heimbach@mit.edu 27-May-2000  c        changed: Patrick Heimbach heimbach@mit.edu 27-May-2000
26  c                 - changed suboutine argument list:  c                 - changed suboutine argument list:
27  c                   dropped mycurrentiter, mycurrenttime  c                   dropped mycurrentiter, mycurrenttime
28  c        changed: heimbach@mit.edu 25-Mar-2002  c        changed: heimbach@mit.edu 25-Mar-2002
29  c                 - added active file handling of xz-/yz-arrays  c                 - added active file handling of xz-/yz-arrays
# Line 35  c     ================================== Line 33  c     ==================================
33  CBOP  CBOP
34  C     !ROUTINE: adactive_read_xy_loc  C     !ROUTINE: adactive_read_xy_loc
35  C     !INTERFACE:  C     !INTERFACE:
36    #ifdef AUTODIFF_TAMC_COMPATIBILITY
37        subroutine adactive_read_xy_loc(        subroutine adactive_read_xy_loc(
38       I                             active_var_file,       I                             active_var_file,
39       I                             irec,       I                             irec,
# Line 44  C     !INTERFACE: Line 43  C     !INTERFACE:
43       I                             mythid,       I                             mythid,
44       I                             adactive_var       I                             adactive_var
45       &                           )       &                           )
46    #else
47          subroutine adactive_read_xy_loc(
48         I                             active_var_file,
49         I                             adactive_var,
50         I                             irec,
51         I                             doglobalread,
52         I                             lAdInit,
53         I                             myiter,
54         I                             mythid
55         &                           )
56    #endif
57    
58  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
59  c     ==================================================================  c     ==================================================================
# Line 111  CEOP Line 121  CEOP
121  CBOP  CBOP
122  C     !ROUTINE: adactive_read_xyz_loc  C     !ROUTINE: adactive_read_xyz_loc
123  C     !INTERFACE:  C     !INTERFACE:
124    #ifdef AUTODIFF_TAMC_COMPATIBILITY
125        subroutine adactive_read_xyz_loc(        subroutine adactive_read_xyz_loc(
126       I                              active_var_file,       I                              active_var_file,
127       I                              irec,       I                              irec,
# Line 120  C     !INTERFACE: Line 131  C     !INTERFACE:
131       I                              mythid,       I                              mythid,
132       I                              adactive_var       I                              adactive_var
133       &                            )       &                            )
134    #else
135          subroutine adactive_read_xyz_loc(
136         I                              active_var_file,
137         I                              adactive_var,
138         I                              irec,
139         I                              doglobalread,
140         I                              lAdInit,
141         I                              myiter,
142         I                              mythid
143         &                            )
144    #endif
145    
146  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
147  c     ==================================================================  c     ==================================================================
# Line 186  CEOP Line 208  CEOP
208  CBOP  CBOP
209  C     !ROUTINE: adactive_read_xz_loc  C     !ROUTINE: adactive_read_xz_loc
210  C     !INTERFACE:  C     !INTERFACE:
211    #ifdef AUTODIFF_TAMC_COMPATIBILITY
212        subroutine adactive_read_xz_loc(        subroutine adactive_read_xz_loc(
213       I                              active_var_file,       I                              active_var_file,
214       I                              irec,       I                              irec,
# Line 195  C     !INTERFACE: Line 218  C     !INTERFACE:
218       I                              mythid,       I                              mythid,
219       I                              adactive_var       I                              adactive_var
220       &                            )       &                            )
221    #else
222          subroutine adactive_read_xz_loc(
223         I                              active_var_file,
224         I                              adactive_var,
225         I                              irec,
226         I                              doglobalread,
227         I                              lAdInit,
228         I                              myiter,
229         I                              mythid
230         &                            )
231    #endif
232    
233  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
234  c     ==================================================================  c     ==================================================================
# Line 261  CEOP Line 295  CEOP
295  CBOP  CBOP
296  C     !ROUTINE: adactive_read_yz_loc  C     !ROUTINE: adactive_read_yz_loc
297  C     !INTERFACE:  C     !INTERFACE:
298    #ifdef AUTODIFF_TAMC_COMPATIBILITY
299        subroutine adactive_read_yz_loc(        subroutine adactive_read_yz_loc(
300       I                              active_var_file,       I                              active_var_file,
301       I                              irec,       I                              irec,
# Line 270  C     !INTERFACE: Line 305  C     !INTERFACE:
305       I                              mythid,       I                              mythid,
306       I                              adactive_var       I                              adactive_var
307       &                            )       &                            )
308    #else
309          subroutine adactive_read_yz_loc(
310         I                              active_var_file,
311         I                              adactive_var,
312         I                              irec,
313         I                              doglobalread,
314         I                              lAdInit,
315         I                              myiter,
316         I                              mythid
317         &                            )
318    #endif
319    
320  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
321  c     ==================================================================  c     ==================================================================
# Line 336  CEOP Line 382  CEOP
382  CBOP  CBOP
383  C     !ROUTINE: adactive_read_xy_loc  C     !ROUTINE: adactive_read_xy_loc
384  C     !INTERFACE:  C     !INTERFACE:
385    #ifdef AUTODIFF_TAMC_COMPATIBILITY
386        subroutine adactive_write_xy_loc(        subroutine adactive_write_xy_loc(
387       I                              active_var_file,       I                              active_var_file,
388       I                              irec,       I                              irec,
# Line 344  C     !INTERFACE: Line 391  C     !INTERFACE:
391       U                              adactive_var,       U                              adactive_var,
392       I                              dummy       I                              dummy
393       &                            )       &                            )
394    #else
395          subroutine adactive_write_xy_loc(
396         I                              active_var_file,
397         U                              adactive_var,
398         I                              irec,
399         I                              myiter,
400         I                              mythid,
401         I                              dummy
402         &                            )
403    #endif
404    
405  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
406  c     ==================================================================  c     ==================================================================
# Line 409  CEOP Line 465  CEOP
465  CBOP  CBOP
466  C     !ROUTINE: adactive_read_xyz_loc  C     !ROUTINE: adactive_read_xyz_loc
467  C     !INTERFACE:  C     !INTERFACE:
468    #ifdef AUTODIFF_TAMC_COMPATIBILITY
469        subroutine adactive_write_xyz_loc(        subroutine adactive_write_xyz_loc(
470       I                               active_var_file,       I                               active_var_file,
471       I                               irec,       I                               irec,
# Line 417  C     !INTERFACE: Line 474  C     !INTERFACE:
474       U                               adactive_var,       U                               adactive_var,
475       I                               dummy       I                               dummy
476       &                             )       &                             )
477    #else
478          subroutine adactive_write_xyz_loc(
479         I                               active_var_file,
480         U                               adactive_var,
481         I                               irec,
482         I                               myiter,
483         I                               mythid,
484         I                               dummy
485         &                             )
486    #endif
487    
488  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
489  c     ==================================================================  c     ==================================================================
# Line 482  CEOP Line 548  CEOP
548  CBOP  CBOP
549  C     !ROUTINE: adactive_read_xz_loc  C     !ROUTINE: adactive_read_xz_loc
550  C     !INTERFACE:  C     !INTERFACE:
551    #ifdef AUTODIFF_TAMC_COMPATIBILITY
552        subroutine adactive_write_xz_loc(        subroutine adactive_write_xz_loc(
553       I                               active_var_file,       I                               active_var_file,
554       I                               irec,       I                               irec,
# Line 490  C     !INTERFACE: Line 557  C     !INTERFACE:
557       U                               adactive_var,       U                               adactive_var,
558       I                               dummy       I                               dummy
559       &                             )       &                             )
560    #else
561          subroutine adactive_write_xz_loc(
562         I                               active_var_file,
563         U                               adactive_var,
564         I                               irec,
565         I                               myiter,
566         I                               mythid,
567         I                               dummy
568         &                             )
569    #endif
570    
571  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
572  c     ==================================================================  c     ==================================================================
# Line 555  CEOP Line 631  CEOP
631  CBOP  CBOP
632  C     !ROUTINE: adactive_read_yz_loc  C     !ROUTINE: adactive_read_yz_loc
633  C     !INTERFACE:  C     !INTERFACE:
634    #ifdef AUTODIFF_TAMC_COMPATIBILITY
635        subroutine adactive_write_yz_loc(        subroutine adactive_write_yz_loc(
636       I                               active_var_file,       I                               active_var_file,
637       I                               irec,       I                               irec,
# Line 563  C     !INTERFACE: Line 640  C     !INTERFACE:
640       U                               adactive_var,       U                               adactive_var,
641       I                               dummy       I                               dummy
642       &                             )       &                             )
643    #else
644          subroutine adactive_write_yz_loc(
645         I                               active_var_file,
646         U                               adactive_var,
647         I                               irec,
648         I                               myiter,
649         I                               mythid,
650         I                               dummy
651         &                             )
652    #endif
653    
654  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
655  c     ==================================================================  c     ==================================================================
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22