/[MITgcm]/MITgcm/model/src/ini_masks_etc.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_masks_etc.F

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

revision 1.32 by jmc, Sun Jul 23 23:32:33 2006 UTC revision 1.33 by jmc, Wed Jul 26 22:01:57 2006 UTC
# Line 220  C     hFacW and hFacS (at U and V points Line 220  C     hFacW and hFacS (at U and V points
220         DO bi=myBxLo(myThid), myBxHi(myThid)         DO bi=myBxLo(myThid), myBxHi(myThid)
221          DO K=1, Nr          DO K=1, Nr
222           DO J=1-Oly,sNy+Oly           DO J=1-Oly,sNy+Oly
223              hFacW(1-OLx,J,K,bi,bj)= 0.
224            DO I=2-Olx,sNx+Olx            DO I=2-Olx,sNx+Olx
225             hFacW(I,J,K,bi,bj)=             hFacW(I,J,K,bi,bj)=
226       &       MIN(hFacC(I,J,K,bi,bj),hFacC(I-1,J,K,bi,bj))       &       MIN(hFacC(I,J,K,bi,bj),hFacC(I-1,J,K,bi,bj))
227            ENDDO            ENDDO
228           ENDDO           ENDDO
229             DO I=1-Olx,sNx+Olx
230               hFacS(I,1-OLy,K,bi,bj)= 0.
231             ENDDO
232           DO J=2-Oly,sNy+oly           DO J=2-Oly,sNy+oly
233            DO I=1-Olx,sNx+Olx            DO I=1-Olx,sNx+Olx
234             hFacS(I,J,K,bi,bj)=             hFacS(I,J,K,bi,bj)=
# Line 348  C     Calculate recipricols grid lengths Line 352  C     Calculate recipricols grid lengths
352    
353  c #ifdef ALLOW_NONHYDROSTATIC  c #ifdef ALLOW_NONHYDROSTATIC
354  C--   Calculate "recip_hFacU" = reciprocal hfac distance/volume for W cells  C--   Calculate "recip_hFacU" = reciprocal hfac distance/volume for W cells
355  C     not used ; computed locally in CALC_GW  C NOTE:  not used ; computed locally in CALC_GW
356  c #endif  c #endif
357    
358        RETURN        RETURN
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22