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

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

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

revision 1.19 by mlosch, Thu Aug 21 14:25:34 2008 UTC revision 1.20 by jmc, Sat Sep 6 17:42:27 2008 UTC
# Line 457  C-    + set rC accordingly Line 457  C-    + set rC accordingly
457       &         pLoc(kcheck), rhoLoc(i,j), myThid )       &         pLoc(kcheck), rhoLoc(i,j), myThid )
458            WRITE(msgBuf,'(A,F10.5,1X,F11.5)')            WRITE(msgBuf,'(A,F10.5,1X,F11.5)')
459       &         ' rho(find_rho_scalar)             = ',       &         ' rho(find_rho_scalar)             = ',
460       &         rhoLoc(i,j)+rhoConst       &         rhoLoc(i,j)
 c    &         rhoLoc(i,j)+rhoConst, bulkMod(i,j)  
461            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
462       &         SQUEEZE_RIGHT , myThid )       &         SQUEEZE_RIGHT , myThid )
463    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22