/[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.7 by cnh, Tue Jun 9 16:48:02 1998 UTC revision 1.8 by cnh, Fri Jun 12 19:33:33 1998 UTC
# Line 53  C ********** Line 53  C **********
53       &   -tAlpha*(theta(i,j,k,bi,bj)-refTemp) )       &   -tAlpha*(theta(i,j,k,bi,bj)-refTemp) )
54          enddo          enddo
55         enddo         enddo
56          
57        elseif (eqn.eq.'POLY3') then        elseif (eqn.eq.'POLY3') then
58    
59         refTemp=eosRefT(kRef)         refTemp=eosRefT(kRef)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22