/[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.2 by utke, Fri Jan 6 04:28:01 2006 UTC
# Line 8  Line 8 
8        end subroutine        end subroutine
9    
10        subroutine ad_s_max_r(first,second,result)        subroutine ad_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 35  Line 36 
36        end subroutine        end subroutine
37    
38        subroutine ad_s_min_r(first,second,result)        subroutine ad_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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22