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

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

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

revision 1.3 by dgoldberg, Mon Mar 23 14:08:18 2015 UTC revision 1.4 by dgoldberg, Wed Mar 25 17:35:29 2015 UTC
# Line 12  Line 12 
12        !logical isTape        !logical isTape
13        !type(modeType) :: our_orig_mode        !type(modeType) :: our_orig_mode
14    
15    #if (defined (ALLOW_STREAMICE_OAD_FP))
16    
17        if (our_rev_mode%plain .or. our_rev_mode%tape) then        if (our_rev_mode%plain .or. our_rev_mode%tape) then
18  !      if (our_rev_mode%plain) then  !      if (our_rev_mode%plain) then
19    
# Line 89  Line 91 
91        end if        end if
92    
93    
94    #endif
95        end subroutine template        end subroutine template
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22