/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_u_metric_cylinder.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_u_metric_cylinder.F

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

revision 1.1 by afe, Thu Jun 24 20:25:44 2004 UTC revision 1.2 by jmc, Wed Jul 7 18:34:07 2004 UTC
# Line 46  C  i,j                  :: loop indices Line 46  C  i,j                  :: loop indices
46        INTEGER i,j        INTEGER i,j
47  CEOP  CEOP
48    
49        DO j=1-Olx,sNy+Oly-1        DO j=1-Oly,sNy+Oly-1
50         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
51            if (yC(i,j,bi,bj).GT. 0) then            if (yC(i,j,bi,bj).GT. 0) then
52               uMetricTerms(i,j) =               uMetricTerms(i,j) =
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22