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

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

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

revision 1.3.6.1 by heimbach, Fri Mar 7 23:10:20 2003 UTC revision 1.3.6.2 by heimbach, Tue Jun 24 23:05:28 2003 UTC
# Line 171  C-- Set hFac_surfC : Line 171  C-- Set hFac_surfC :
171       &         ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj))       &         ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj))
172       &         )*recip_drF(ks)*maskC(i,j,ks,bi,bj)       &         )*recip_drF(ks)*maskC(i,j,ks,bi,bj)
173    
            IF (hFac_surfC(i,j,bi,bj).GT.hFacSup) THEN  
174  C-- Usefull warning when hFac becomes very large:  C-- Usefull warning when hFac becomes very large:
175               IF ( numbWrite.LE.numbWrMax .AND.
176         &          hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
177                  numbWrite = numbWrite + 1
178                WRITE(errorMessageUnit,'(2A,6I4,I10)')                WRITE(errorMessageUnit,'(2A,6I4,I10)')
179       &         'WARNING: hFacC > hFacSup at:',       &         'WARNING: hFacC > hFacSup at:',
180       &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter       &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
181                WRITE(errorMessageUnit,'(A,2F10.6,1PE14.6)')                WRITE(errorMessageUnit,'(A,2F10.6,1PE14.6)')
182       &         'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj),       &         'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj),
183       &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)       &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
 C-- Decide to STOP :  
 c             WRITE(errorMessageUnit,'(A)')  
 c    &         'STOP in CALC_SURF_DR : too LARGE hFac !'  
 c             STOP 'ABNORMAL END: S/R CALC_SURF_DR'  
 C----------  
184             ENDIF             ENDIF
185    C----------
186            ENDIF            ENDIF
187    
188           ENDDO           ENDDO
Legend:
Removed from v.1.3.6.1  
changed lines
  Added in v.1.3.6.2
  ViewVC Help
Powered by ViewVC 1.1.22