/[MITgcm]/MITgcm_contrib/rpa_layers/layers/layers_check.F
ViewVC logotype

Diff of /MITgcm_contrib/rpa_layers/layers/layers_check.F

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

revision 1.1 by rpa, Tue Sep 15 19:16:53 2009 UTC revision 1.2 by jmc, Wed Sep 16 18:04:49 2009 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "LAYERS_OPTIONS.h"  #include "LAYERS_OPTIONS.h"
5    
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 35  C--  Print out some key parameters : Line 38  C--  Print out some key parameters :
38    
39         CALL WRITE_0D_I( NZZ, INDEX_NONE, 'NZZ =',         CALL WRITE_0D_I( NZZ, INDEX_NONE, 'NZZ =',
40       &  ' /* number of levels in the fine vertical grid */')       &  ' /* number of levels in the fine vertical grid */')
41          
42         CALL WRITE_1D_RL(layers_G,Nlayers+1, INDEX_K,'layers_G =',         CALL WRITE_1D_RL(layers_G,Nlayers+1, INDEX_K,'layers_G =',
43       &  ' /* boundaries of isopycnal-averaging bins */')       &  ' /* boundaries of isopycnal-averaging bins */')
44    
# Line 48  C     For now the package will only work Line 51  C     For now the package will only work
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22