/[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.14 by jmc, Wed Dec 14 01:12:59 2011 UTC revision 1.15 by jmc, Mon Dec 31 20:47:22 2012 UTC
# Line 115  C-     Consistent with Phi'= Integr[ the Line 115  C-     Consistent with Phi'= Integr[ the
115            IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN            IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
116             WRITE(msgBuf,'(3A)') 'CALC_GRAD_PHI_HYD: ',             WRITE(msgBuf,'(3A)') 'CALC_GRAD_PHI_HYD: ',
117       &      'Problem when Ro_surf=rC',       &      'Problem when Ro_surf=rC',
118       &      ' with select_rStar,integr_GeoPot=1,4'       &      ' with select_rStar,nonlinFreeSurf=1,4'
119             CALL PRINT_ERROR( msgBuf , myThid)             CALL PRINT_ERROR( msgBuf , myThid)
120             STOP 'CALC_GRAD_PHI_HYD: Pb in r* options implementation'             STOP 'CALC_GRAD_PHI_HYD: Pb in r* options implementation'
121            ELSE            ELSE
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22