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

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

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

revision 1.3 by dgoldberg, Sun Mar 16 09:56:09 2014 UTC revision 1.4 by dgoldberg, Fri Sep 5 21:10:32 2014 UTC
# Line 77  c set up for plain execution Line 77  c set up for plain execution
77       I        A_vv_p,             I        A_vv_p,      
78       I        tolerance,       I        tolerance,
79       O        iters,       O        iters,
80         I        maxIter,
81       I        myThid )       I        myThid )
82           cg_Uin%v = cg_Uin_p           cg_Uin%v = cg_Uin_p
83           cg_Vin%v = cg_Vin_p           cg_Vin%v = cg_Vin_p
# Line 129  c set up for plain execution Line 130  c set up for plain execution
130       I        A_vv_p,             I        A_vv_p,      
131       I        tolerance,       I        tolerance,
132       O        iters,       O        iters,
133         I        maxIter,
134       I        myThid )       I        myThid )
135           call oad_tape_push(cg_Uin_p)               call oad_tape_push(cg_Uin_p)    
136           call oad_tape_push(cg_Vin_p)               call oad_tape_push(cg_Vin_p)    
# Line 191  c set up for plain execution Line 193  c set up for plain execution
193       I                               A_vv_p,     ! section of matrix that multiplies v and projects on v       I                               A_vv_p,     ! section of matrix that multiplies v and projects on v
194       U                               A_vv_d,     ! adjoint of matrix coeffs (output)       U                               A_vv_d,     ! adjoint of matrix coeffs (output)
195       I                               tolerance,       I                               tolerance,
196  c    I                               iters,       I                               maxIter,
197       I                               myThid )       I                               myThid )
198  c reset the mode  c reset the mode
199           cg_Uin%d = cg_Uin_d           cg_Uin%d = cg_Uin_d
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22