/[MITgcm]/MITgcm/verification/aim.5l_cs/code/mom_vi_hfacz_diss.F
ViewVC logotype

Diff of /MITgcm/verification/aim.5l_cs/code/mom_vi_hfacz_diss.F

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

revision 1.1 by jmc, Wed Jan 9 00:28:56 2002 UTC revision 1.2 by jmc, Sun Jul 13 19:26:05 2003 UTC
# Line 16  C Line 16  C
16    
17  C     == Global variables ==  C     == Global variables ==
18  #include "SIZE.h"  #include "SIZE.h"
19    #include "EEPARAMS.h"
20    #include "PARAMS.h"
21  #include "GRID.h"  #include "GRID.h"
22    
23  C     == Routine arguments ==  C     == Routine arguments ==
# Line 53  C--   Calculate open water fraction at v Line 55  C--   Calculate open water fraction at v
55         ENDDO         ENDDO
56        ENDDO        ENDDO
57    
58    C-    Special stuff for Cubed Sphere
59    C      above formula is ambiguous when only 3 edges instead of 4,
60    C      => return to min-3 definition at the Cubed-Sphere corners
61          IF (useCubedSphereExchange) THEN
62           DO j=1,sNy+1,sNy
63            DO i=1,sNx+1,sNx
64             hFacZOpen=MIN( _hFacW(i,j,k,bi,bj)
65         &                , _hFacW(i,j-1,k,bi,bj)
66         &                , _hFacS(i,j,k,bi,bj)
67         &                , _hFacS(i-1,j,k,bi,bj)
68         &                )
69             hFacZ(i,j)=hFacZOpen
70             IF (hFacZOpen.EQ.0.) THEN
71              r_hFacZ(i,j)=0.
72             ELSE
73              r_hFacZ(i,j)=1./hFacZOpen
74             ENDIF
75            ENDDO
76           ENDDO
77          ENDIF
78    
79        RETURN        RETURN
80        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22