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

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

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

revision 1.7 by jmc, Fri Sep 30 00:59:33 2005 UTC revision 1.8 by jmc, Fri Sep 30 15:14:21 2005 UTC
# Line 159  C     for now, just stop Line 159  C     for now, just stop
159       &       Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), etaFld(i,j,bi,bj)       &       Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj), etaFld(i,j,bi,bj)
160              WRITE(errorMessageUnit,'(A)')              WRITE(errorMessageUnit,'(A)')
161       &       'STOP in CALC_R_STAR : too SMALL rStarFacC !'       &       'STOP in CALC_R_STAR : too SMALL rStarFacC !'
162               STOP 'ABNORMAL END: S/R CALC_SURF_DR'                 STOP 'ABNORMAL END: S/R CALC_R_STAR'  
163            ENDIF            ENDIF
164            IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN              IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN  
165              numbWrite = numbWrite + 1              numbWrite = numbWrite + 1
# Line 173  C     for now, just stop Line 173  C     for now, just stop
173       &        etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj)       &        etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj)
174              WRITE(errorMessageUnit,'(A)')              WRITE(errorMessageUnit,'(A)')
175       &       'STOP in CALC_R_STAR : too SMALL rStarFacW !'       &       'STOP in CALC_R_STAR : too SMALL rStarFacW !'
176               STOP 'ABNORMAL END: S/R CALC_SURF_DR'                 STOP 'ABNORMAL END: S/R CALC_R_STAR'  
177            ENDIF            ENDIF
178            IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN              IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN  
179              numbWrite = numbWrite + 1              numbWrite = numbWrite + 1
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22