/[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.1 by heimbach, Tue Dec 13 15:15:30 2005 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        real first, second, result  c      real first, second, result
12          double precision first, second, result
13        if (first .lt. second) then        if (first .lt. second) then
14           result=second           result=second
15        else        else
# Line 16  Line 17 
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 25  Line 26 
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 34  Line 35 
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        real first, second, result  c      real first, second, result
40          double precision first, second, result
41        if (first .gt. second) then        if (first .gt. second) then
42           result=second           result=second
43        else        else
# Line 43  Line 45 
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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22