/[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.8 by cnh, Fri Jun 12 19:33:33 1998 UTC revision 1.9 by cnh, Fri Nov 6 22:44:46 1998 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
4  #define USE_FACTORIZED_POLY  #define USE_FACTORIZED_POLY
5    
6  ! ==============================================================================  ! ================================================================
7        subroutine FIND_RHO(        subroutine FIND_RHO(
8       I      bi, bj, iMin, iMax, jMin, jMax,  k, kRef, eqn,       I      bi, bj, iMin, iMax, jMin, jMax,  k, kRef, eqn,
9       O      rholoc,       O      rholoc,
# Line 35  C     \================================= Line 35  C     \=================================
35  ! Local  ! Local
36        integer i,j        integer i,j
37        _RL refTemp,refSalt,sigRef,tP,sP,deltaSig        _RL refTemp,refSalt,sigRef,tP,sP,deltaSig
38  ! ------------------------------------------------------------------------------  ! -----------------------------------------------------------------
39    
40        if (eqn.eq.'LINEAR') then        if (eqn.eq.'LINEAR') then
41    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22