/[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.4 by heimbach, Wed Feb 18 12:39:27 2015 UTC revision 1.5 by dgoldberg, Sun Apr 5 07:06:45 2015 UTC
# Line 60  C     !FUNCTIONS Line 60  C     !FUNCTIONS
60        if (our_rev_mode%tape) then        if (our_rev_mode%tape) then
61  ! taping  ! taping
62           our_orig_mode=our_rev_mode           our_orig_mode=our_rev_mode
63    ! original function
64             active_var_p = active_var%v
65           our_rev_mode%arg_store=.FALSE.           our_rev_mode%arg_store=.FALSE.
66           our_rev_mode%arg_restore=.FALSE.           our_rev_mode%arg_restore=.FALSE.
67           our_rev_mode%plain=.TRUE.           our_rev_mode%plain=.TRUE.
# Line 72  C     !FUNCTIONS Line 74  C     !FUNCTIONS
74           oad_it(oad_it_ptr) = iRec           oad_it(oad_it_ptr) = iRec
75           oad_it_ptr = oad_it_ptr+1           oad_it_ptr = oad_it_ptr+1
76           call ACTIVE_READ_3D_RL(           call ACTIVE_READ_3D_RL(
77       &        active_var_file, active_var, doglobalread,       &        active_var_file, active_var_p, doglobalread,
78       &        useCurrentDir, lAdInit, iRec, myNr,       &        useCurrentDir, lAdInit, iRec, myNr,
79       &        FORWARD_SIMULATION, myOptimIter, myThid )       &        FORWARD_SIMULATION, myOptimIter, myThid )
80           our_rev_mode=our_orig_mode           our_rev_mode=our_orig_mode
81    ! copy back
82             active_var%v = active_var_p
83        end if        end if
84    
85        if (our_rev_mode%adjoint) then        if (our_rev_mode%adjoint) then
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22