/[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.3 by cnh, Wed Oct 28 03:11:36 1998 UTC revision 1.4 by cnh, Tue Nov 3 15:28:04 1998 UTC
# Line 41  C--   == Local variables == Line 41  C--   == Local variables ==
41    
42         DO j=jMin,jMax         DO j=jMin,jMax
43          DO i=iMin,iMax          DO i=iMin,iMax
44           buoy(i,j)=-specVol_S(K)/theta_S(K)*(theta(i,j,k,bi,bj)-tRef(K))           buoy(i,j)=(theta(i,j,k,bi,bj)-tRef(K))/tRef(K)
45          ENDDO          ENDDO
46         ENDDO         ENDDO
47                
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22