/[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.1 by utke, Wed Dec 18 20:02:17 2013 UTC revision 1.2 by utke, Thu Jan 16 15:15:50 2014 UTC
# Line 116  c set up for plain execution Line 116  c set up for plain execution
116           call oad_tape_push(A_uv_p)                 call oad_tape_push(A_uv_p)      
117           call oad_tape_push(A_vu_p)                 call oad_tape_push(A_vu_p)      
118           call oad_tape_push(A_vv_p)                 call oad_tape_push(A_vv_p)      
119             call oad_tape_push(tolerance)
120           call oad_tape_push(mythid)           call oad_tape_push(mythid)
121           call STREAMICE_CG_SOLVE(           call STREAMICE_CG_SOLVE(
122       U        cg_Uin_p,           U        cg_Uin_p,    
# Line 145  c reset the mode Line 146  c reset the mode
146           call oad_tape_pop(cg_Vin_p)               call oad_tape_pop(cg_Vin_p)    
147           call oad_tape_pop(cg_Uin_p)               call oad_tape_pop(cg_Uin_p)    
148           call oad_tape_pop(mythid)           call oad_tape_pop(mythid)
149             call oad_tape_pop(tolerance)
150           call oad_tape_pop(A_vv_p)                 call oad_tape_pop(A_vv_p)      
151           call oad_tape_pop(A_vu_p)                 call oad_tape_pop(A_vu_p)      
152           call oad_tape_pop(A_uv_p)                 call oad_tape_pop(A_uv_p)      
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22