/[MITgcm]/MITgcm/pkg/seaice/seaice_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_do_diags.F

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

revision 1.17 by edhill, Thu Sep 29 12:19:52 2005 UTC revision 1.18 by mlosch, Tue Mar 14 21:21:53 2006 UTC
# Line 102  C     == Local variables == Line 102  C     == Local variables ==
102    
103            DO bj=myByLo(myThid),myByHi(myThid)            DO bj=myByLo(myThid),myByHi(myThid)
104              DO bi=myBxLo(myThid),myBxHi(myThid)              DO bi=myBxLo(myThid),myBxHi(myThid)
105                DO j=1,sNy                DO j=1-Oly,sNy+Oly
106                  DO i=1,sNx                  DO i=1-Olx,sNx+Olx
107                    arr(i,j,bi,bj)=UICE(i,j,1,bi,bj)                    arr(i,j,bi,bj)=UICE(i,j,1,bi,bj)
108                  ENDDO                  ENDDO
109                ENDDO                ENDDO
# Line 130  C     == Local variables == Line 130  C     == Local variables ==
130    
131            DO bj=myByLo(myThid),myByHi(myThid)            DO bj=myByLo(myThid),myByHi(myThid)
132              DO bi=myBxLo(myThid),myBxHi(myThid)              DO bi=myBxLo(myThid),myBxHi(myThid)
133                DO j=1,sNy                DO j=1-Oly,sNy+Oly
134                  DO i=1,sNx                  DO i=1-Olx,sNx+Olx
135                    arr(i,j,bi,bj)=VICE(i,j,1,bi,bj)                    arr(i,j,bi,bj)=VICE(i,j,1,bi,bj)
136                  ENDDO                  ENDDO
137                ENDDO                ENDDO
# Line 157  C     == Local variables == Line 157  C     == Local variables ==
157                        
158            DO bj=myByLo(myThid),myByHi(myThid)            DO bj=myByLo(myThid),myByHi(myThid)
159              DO bi=myBxLo(myThid),myBxHi(myThid)              DO bi=myBxLo(myThid),myBxHi(myThid)
160                DO j=1,sNy                DO j=1-Oly,sNy+Oly
161                  DO i=1,sNx                  DO i=1-Olx,sNx+Olx
162                    arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj)                    arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj)
163                  ENDDO                  ENDDO
164                ENDDO                ENDDO
# Line 184  C     == Local variables == Line 184  C     == Local variables ==
184                        
185            DO bj=myByLo(myThid),myByHi(myThid)            DO bj=myByLo(myThid),myByHi(myThid)
186              DO bi=myBxLo(myThid),myBxHi(myThid)              DO bi=myBxLo(myThid),myBxHi(myThid)
187                DO j=1,sNy                DO j=1-Oly,sNy+Oly
188                  DO i=1,sNx                  DO i=1-Olx,sNx+Olx
189                    arr(i,j,bi,bj)=AREA(i,j,1,bi,bj)                    arr(i,j,bi,bj)=AREA(i,j,1,bi,bj)
190                  ENDDO                  ENDDO
191                ENDDO                ENDDO
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22