/[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.10 by adcroft, Fri Aug 6 15:01:27 1999 UTC revision 1.11 by heimbach, Fri Jun 9 02:45:04 2000 UTC
# Line 38  C     \================================= Line 38  C     \=================================
38        character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
39  ! -----------------------------------------------------------------  ! -----------------------------------------------------------------
40    
41    #ifdef ALLOW_AUTODIFF_TAMC
42          DO j=1-OLy,sNy+OLy
43           DO i=1-OLx,sNx+OLx
44            rholoc(i,j) = 0.0
45           ENDDO
46          ENDDO
47    #endif
48    
49        if (eqn.eq.'LINEAR') then        if (eqn.eq.'LINEAR') then
50    
51  C ***NOTE***  C ***NOTE***
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22