/[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.4 by jmc, Tue Mar 16 00:14:47 2010 UTC revision 1.5 by dfer, Sat Dec 4 23:50:32 2010 UTC
# Line 46  C--  Check parameters: Line 46  C--  Check parameters:
46    
47    
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')  c     IF ( (eosType .EQ. 'LINEAR')
50       &  .AND. (sBeta .EQ. 0.0 _d 0) ) THEN  c    &  .AND. (sBeta .EQ. 0.0 _d 0) ) THEN
51  C        we are good  C        we are good
52        ELSE  c     ELSE
53          WRITE(msgBuf,'(2A)') 'eosType must be eosType=''LINEAR''',  c       WRITE(msgBuf,'(2A)') 'eosType must be eosType=''LINEAR''',
54       &   ' and sBeta must = 0.0'  c    &   ' and sBeta must = 0.0'
55          CALL PRINT_ERROR( msgBuf , 1)  c       CALL PRINT_ERROR( msgBuf , 1)
56         STOP 'ABNORMAL END: S/R LAYERS_CHECK'  c       STOP 'ABNORMAL END: S/R LAYERS_CHECK'
57        ENDIF  c     ENDIF
58    
59        _END_MASTER(myThid)        _END_MASTER(myThid)
60    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22