/[MITgcm]/MITgcm/tools/OAD_support/ad_template.active_read_xy.F
ViewVC logotype

Diff of /MITgcm/tools/OAD_support/ad_template.active_read_xy.F

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

revision 1.3 by heimbach, Sat Jan 17 07:13:07 2015 UTC revision 1.4 by heimbach, Wed Feb 18 12:39:27 2015 UTC
# Line 32  C     !FUNCTIONS Line 32  C     !FUNCTIONS
32        INTEGER  ILNBLNK        INTEGER  ILNBLNK
33        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
34    
35  #ifdef ALLOW_OPENAD_ACTIVE_FILE  #ifdef ALLOW_OPENAD_ACTIVE_READ_XY
36    
37        myNr = 1        myNr = 1
38        useCurrentDir = .FALSE.        useCurrentDir = .FALSE.
# Line 107  C     !FUNCTIONS Line 107  C     !FUNCTIONS
107           active_var%d = active_var_p           active_var%d = active_var_p
108        end if        end if
109    
110  #endif /* ALLOW_OPENAD_ACTIVE_FILE */  #endif /* ALLOW_OPENAD_ACTIVE_READ_XY */
111    
112        end        end
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22