/[MITgcm]/MITgcm/pkg/layers/layers_check.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_check.F

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

revision 1.3 by jmc, Mon Dec 28 02:33:49 2009 UTC revision 1.4 by jmc, Tue Mar 16 00:14:47 2010 UTC
# Line 48  C--  Check parameters: Line 48  C--  Check parameters:
48  C     For now the package will only work if density ~ temperature  C     For now the package will only work if density ~ temperature
49        IF ( (eosType .EQ. 'LINEAR')        IF ( (eosType .EQ. 'LINEAR')
50       &  .AND. (sBeta .EQ. 0.0 _d 0) ) THEN       &  .AND. (sBeta .EQ. 0.0 _d 0) ) THEN
51  C        we're good  C        we are good
52        ELSE        ELSE
53          WRITE(msgBuf,'(2A)') 'eosType must be eosType=''LINEAR''',          WRITE(msgBuf,'(2A)') 'eosType must be eosType=''LINEAR''',
54       &   ' and sBeta must = 0.0'       &   ' and sBeta must = 0.0'
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22