/[MITgcm]/MITgcm/pkg/mom_common/mom_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_init_fixed.F

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

revision 1.2 by jmc, Thu Sep 29 03:33:28 2005 UTC revision 1.3 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 40  C-    used for side-drag: Line 40  C-    used for side-drag:
40           DO k=1,Nr           DO k=1,Nr
41            DO j=1-Oly,sNy+Oly            DO j=1-Oly,sNy+Oly
42             DO i=1-Olx,sNx+Olx             DO i=1-Olx,sNx+Olx
43              h0FacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)              h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
44              h0FacW(i,j,k,bi,bj) = hFacW(i,j,k,bi,bj)              h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
45              h0FacS(i,j,k,bi,bj) = hFacS(i,j,k,bi,bj)              h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
46             ENDDO             ENDDO
47            ENDDO            ENDDO
48           ENDDO           ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22