/[MITgcm]/MITgcm/pkg/zonal_filt/zonal_filt_presmooth.F
ViewVC logotype

Diff of /MITgcm/pkg/zonal_filt/zonal_filt_presmooth.F

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

revision 1.3 by cnh, Sun Feb 4 14:38:51 2001 UTC revision 1.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC
# Line 91  C Line 91  C
91        ENDIF        ENDIF
92    
93  CcnhDebugStarts  CcnhDebugStarts
94  C     WRITE(0,*) 'Before FFT pre-smooth'  C     WRITE(*,*) 'Before FFT pre-smooth'
95  C     WRITE(0,'(A,A)') 'Mask ', 'Data'  C     WRITE(*,'(A,A)') 'Mask ', 'Data'
96  C     DO I=1,lField  C     DO I=1,lField
97  C      WRITE(0,'(A,I4,1X,F3.1,1X,1PE35.25)') 'I= ',I,holeMask(I), field(I)  C      WRITE(*,'(A,I4,1X,F3.1,1X,1PE35.25)') 'I= ',I,holeMask(I), field(I)
98  C     ENDDO  C     ENDDO
99  CcnhDebugEnds  CcnhDebugEnds
100    
# Line 158  C        Data Line 158  C        Data
158         ENDDO         ENDDO
159    
160  CcnhDebugStarts  CcnhDebugStarts
161  C     WRITE(0,*) 'During FFT pre-smooth'  C     WRITE(*,*) 'During FFT pre-smooth'
162  C     WRITE(0,'(A,A,A,A,A,A)') 'I   ','mask(I)','hHi(I)','hLo(I)','hBase(I)','hHead(I)'  C     WRITE(*,'(A,A,A,A,A,A)') 'I   ','mask(I)','hHi(I)','hLo(I)','hBase(I)','hHead(I)'
163  C     DO I=1,lField  C     DO I=1,lField
164  C      WRITE(0,'(6(I4,1X))')  C      WRITE(*,'(6(I4,1X))')
165  C    & I,INT(holeMask(I)),hHi(I),hLo(I),hBase(I),hHead(I)  C    & I,INT(holeMask(I)),hHi(I),hLo(I),hBase(I),hHead(I)
166  C     ENDDO  C     ENDDO
167  CcnhDebugEnds  CcnhDebugEnds
# Line 175  C        A hole Line 175  C        A hole
175           dist = I-hBase(I)           dist = I-hBase(I)
176           len  = hHead(I) - hBase(I)           len  = hHead(I) - hBase(I)
177  CcnhDebugStarts  CcnhDebugStarts
178  C        WRITE(0,'(A,1X,I4,1X,1PE35.25,1X,1PE35.25,)') 'I= ',I,dist, len  C        WRITE(*,'(A,1X,I4,1X,1PE35.25,1X,1PE35.25,)') 'I= ',I,dist, len
179  C        IF ( dist .LT. 0      ) STOP ' DIST .LT. 0 '  C        IF ( dist .LT. 0      ) STOP ' DIST .LT. 0 '
180  C        IF ( len  .LT. 0      ) STOP ' LEN  .LT. 0 '  C        IF ( len  .LT. 0      ) STOP ' LEN  .LT. 0 '
181  C        IF ( dist .GT. lField ) STOP ' dist .GT. lField '  C        IF ( dist .GT. lField ) STOP ' dist .GT. lField '
# Line 189  CcnhDebugStarts Line 189  CcnhDebugStarts
189         ENDDO         ENDDO
190    
191  CcnhDebugStarts  CcnhDebugStarts
192  C     WRITE(0,*) 'After FFT pre-smooth'  C     WRITE(*,*) 'After FFT pre-smooth'
193  C     WRITE(0,'(A,A)') 'Mask ', 'Data'  C     WRITE(*,'(A,A)') 'Mask ', 'Data'
194  C     DO I=1,lField  C     DO I=1,lField
195  C      WRITE(0,'(A,I4,1X,F3.1,1X,1PE35.25)') 'I= ',I,holeMask(I), field(I)  C      WRITE(*,'(A,I4,1X,F3.1,1X,1PE35.25)') 'I= ',I,holeMask(I), field(I)
196  C     ENDDO  C     ENDDO
197  CcnhDebugEnds  CcnhDebugEnds
198    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22