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

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

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

revision 1.5 by cnh, Fri Nov 6 22:44:43 1998 UTC revision 1.6 by adcroft, Mon Mar 27 22:25:43 2000 UTC
# Line 13  C     |   Calculates buoyancy for an XY Line 13  C     |   Calculates buoyancy for an XY
13  C     |==========================================================|  C     |==========================================================|
14  C     |                                                          |  C     |                                                          |
15  C     | k - is the density level                                 |  C     | k - is the density level                                 |
 C     | kRef - determines pressure reference level               |  
 C     |        (not used in 'LINEAR' mode)                       |  
16  C     |                                                          |  C     |                                                          |
17  C     \==========================================================/  C     \==========================================================/
18        IMPLICIT NONE        IMPLICIT NONE
# Line 28  C--   == Global data == Line 26  C--   == Global data ==
26  C--   == Routine arguments ==  C--   == Routine arguments ==
27        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
28        INTEGER k                        INTEGER k                
       INTEGER kRef        
29        _RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
30        _RL buoy  (1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL buoy  (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
31        INTEGER myThid        INTEGER myThid
32    
33  C--   == Local variables ==  C--   == Local variables ==
34        INTEGER i,j        INTEGER i,j
       _RL refTemp,refSalt,sigRef,tP,sP,deltaSig  
35    
36        IF    ( buoyancyRelation .eq. 'ATMOSPHERIC'  ) THEN        IF    ( buoyancyRelation .eq. 'ATMOSPHERIC'  ) THEN
37    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22