/[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.7 by cnh, Sun Feb 4 14:38:45 2001 UTC revision 1.8 by mlosch, Wed Sep 25 19:36:50 2002 UTC
# Line 50  C--   == Local variables == Line 50  C--   == Local variables ==
50          ENDDO          ENDDO
51         ENDDO         ENDDO
52    
53          ELSEIF ( buoyancyRelation .eq. 'OCEANICP' ) THEN
54    
55           DO j=jMin,jMax
56            DO i=iMin,iMax
57             if ( rholoc(i,j) .ne. 0. ) then
58              rholoc(i,j) = 1./rholoc(i,j)
59              buoy(i,j)=rholoc(i,j)
60             endif
61            ENDDO
62           ENDDO
63    
64        ELSE        ELSE
65    
66         STOP         STOP
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22