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

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

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

revision 1.5 by jmc, Fri Aug 1 04:03:54 2003 UTC revision 1.6 by jmc, Mon Aug 4 13:20:13 2003 UTC
# Line 110  C-     Consistent with Phi'= Integr[ the Line 110  C-     Consistent with Phi'= Integr[ the
110          DO j=jMin-1,jMax          DO j=jMin-1,jMax
111           DO i=iMin-1,iMax           DO i=iMin-1,iMax
112            IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN            IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
113             WRITE(msgBuf,'(2A)') 'CALC_GRAD_PHI_HYD: ',             WRITE(msgBuf,'(3A)') 'CALC_GRAD_PHI_HYD: ',
114       &      'Problem when Ro_surf=rC with select_rStar,integr_GeoPot=1,4'       &      'Problem when Ro_surf=rC',
115         &      ' with select_rStar,integr_GeoPot=1,4'
116             CALL PRINT_ERROR( msgBuf , myThid)             CALL PRINT_ERROR( msgBuf , myThid)
117             STOP 'CALC_GRAD_PHI_HYD: Pb in r* options implementation'             STOP 'CALC_GRAD_PHI_HYD: Pb in r* options implementation'
118            ELSE            ELSE
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22