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

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

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

revision 1.1 by dgoldberg, Sat Feb 21 19:07:27 2015 UTC revision 1.2 by dgoldberg, Wed Mar 25 17:35:29 2015 UTC
# Line 11  C Line 11  C
11  C  C
12  C     **** Parameters and Result ****  C     **** Parameters and Result ****
13  C  C
14        #if (defined (ALLOW_STREAMICE_OAD_FP))
15    
16    
17        if (our_rev_mode%plain) then        if (our_rev_mode%plain) then
# Line 97  C Line 97  C
97         CALL GLOBAL_MAX_R8 (err_max, myThid)         CALL GLOBAL_MAX_R8 (err_max, myThid)
98    
99        end if        end if
100    #endif
101        end subroutine template        end subroutine template
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22