/[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.2 by rpa, Sun Sep 20 20:54:47 2009 UTC revision 1.3 by jmc, Mon Dec 28 02:33:49 2009 UTC
# Line 21  C     myThid   :: my Thread Id number Line 21  C     myThid   :: my Thread Id number
21        INTEGER myThid        INTEGER myThid
22    
23  C     LOCAL VARIABLES:  C     LOCAL VARIABLES:
24  C     msgBuf   :: Informational/error meesage buffer  C     msgBuf   :: Informational/error message buffer
25        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
26    
27  #ifdef ALLOW_LAYERS  #ifdef ALLOW_LAYERS
# 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')        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're 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'
55          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , 1)
56         STOP 'ABNORMAL END: S/R LAYERS_CHECK'         STOP 'ABNORMAL END: S/R LAYERS_CHECK'
57         ENDIF        ENDIF
   
58    
59        _END_MASTER(myThid)        _END_MASTER(myThid)
60    
61  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_LAYERS */
62    
63        RETURN        RETURN
64        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22