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

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

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

revision 1.26 by edhill, Mon Sep 29 19:24:31 2003 UTC revision 1.27 by jmc, Wed Jan 19 01:16:23 2005 UTC
# Line 240  C     k    :: Level of Theta/Salt slice Line 240  C     k    :: Level of Theta/Salt slice
240        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
241        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
242        _RL rhoP0(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL rhoP0(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
       _RL rfresh, rsalt  
243        INTEGER myThid        INTEGER myThid
244    
245  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
246  C     == Local variables ==  C     == Local variables ==
247        INTEGER i,j        INTEGER i,j
248          _RL rfresh, rsalt
249        _RL t, t2, t3, t4, s, s3o2        _RL t, t2, t3, t4, s, s3o2
250  CEOP  CEOP
251    
# Line 329  C     == Routine arguments == Line 329  C     == Routine arguments ==
329  C     k    :: Level of Theta/Salt slice  C     k    :: Level of Theta/Salt slice
330        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
331        INTEGER k        INTEGER k
       INTEGER kRef  
332        _RL locPres(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL locPres(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
333        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
334        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
335        _RL bulkMod(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL bulkMod(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
       _RL bMfresh, bMsalt, bMpres  
336        INTEGER myThid        INTEGER myThid
337    
338  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
339  C     == Local variables ==  C     == Local variables ==
340        INTEGER i,j        INTEGER i,j
341          _RL bMfresh, bMsalt, bMpres
342        _RL t, t2, t3, t4, s, s3o2, p, p2        _RL t, t2, t3, t4, s, s3o2, p, p2
343  CEOP  CEOP
344    
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22