/[MITgcm]/MITgcm_contrib/heimbach/OpenAD/code_shallow_openad/maxMinDefs.f
ViewVC logotype

Diff of /MITgcm_contrib/heimbach/OpenAD/code_shallow_openad/maxMinDefs.f

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

revision 1.2 by utke, Fri Jan 6 04:28:01 2006 UTC revision 1.3 by utke, Wed Jul 12 14:54:45 2006 UTC
# Line 1  Line 1 
1        subroutine ad_s_max_i(first,second,result)        subroutine oad_s_max_i(first,second,result)
2        integer first, second, result        integer first, second, result
3        if (first .lt. second) then        if (first .lt. second) then
4           result=second           result=second
# Line 7  Line 7 
7        end if        end if
8        end subroutine        end subroutine
9    
10        subroutine ad_s_max_r(first,second,result)        subroutine oad_s_max_r(first,second,result)
11  c      real first, second, result  c      real first, second, result
12        double precision first, second, result        double precision first, second, result
13        if (first .lt. second) then        if (first .lt. second) then
# Line 17  c      real first, second, result Line 17  c      real first, second, result
17        end if        end if
18        end subroutine        end subroutine
19    
20        subroutine ad_s_max_d(first,second,result)        subroutine oad_s_max_d(first,second,result)
21        double precision first, second, result        double precision first, second, result
22        if (first .lt. second) then        if (first .lt. second) then
23           result=second           result=second
# Line 26  c      real first, second, result Line 26  c      real first, second, result
26        end if        end if
27        end subroutine        end subroutine
28    
29        subroutine ad_s_min_i(first,second,result)        subroutine oad_s_min_i(first,second,result)
30        integer first, second, result        integer first, second, result
31        if (first .gt. second) then        if (first .gt. second) then
32           result=second           result=second
# Line 35  c      real first, second, result Line 35  c      real first, second, result
35        end if        end if
36        end subroutine        end subroutine
37    
38        subroutine ad_s_min_r(first,second,result)        subroutine oad_s_min_r(first,second,result)
39  c      real first, second, result  c      real first, second, result
40        double precision first, second, result        double precision first, second, result
41        if (first .gt. second) then        if (first .gt. second) then
# Line 45  c      real first, second, result Line 45  c      real first, second, result
45        end if        end if
46        end subroutine        end subroutine
47    
48        subroutine ad_s_min_d(first,second,result)        subroutine oad_s_min_d(first,second,result)
49        double precision first, second, result        double precision first, second, result
50        if (first .gt. second) then        if (first .gt. second) then
51           result=second           result=second
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22