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

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

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

revision 1.2 by mlosch, Mon Aug 19 14:21:30 2002 UTC revision 1.3 by mlosch, Tue Aug 20 14:45:18 2002 UTC
# Line 348  C     check nonlinear EOS Line 348  C     check nonlinear EOS
348              bulkMod(i,j)         = -1. _d 0              bulkMod(i,j)         = -1. _d 0
349                    
350              call find_rhop0(              call find_rhop0(
351       I           bi, bj, imin, imax, jmin, jmax, k, k,       I           bi, bj, imin, imax, jmin, jmax, k,
352       I           tFld, sFld,       I           tFld, sFld,
353       O           rhoP0,       O           rhoP0,
354       I           myThid )       I           myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22