/[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.1 by rpa, Wed Sep 16 21:25:47 2009 UTC revision 1.2 by rpa, Sun Sep 20 20:54:47 2009 UTC
# Line 33  C     msgBuf   :: Informational/error me Line 33  C     msgBuf   :: Informational/error me
33       &                     SQUEEZE_RIGHT , 1)       &                     SQUEEZE_RIGHT , 1)
34    
35  C--  Print out some key parameters :  C--  Print out some key parameters :
        CALL WRITE_0D_RL( dZZ, INDEX_NONE, 'dZZ =',  
      &  ' /* fine vertical grid spacing for isopycnal interp */')  
   
36         CALL WRITE_0D_I( NZZ, INDEX_NONE, 'NZZ =',         CALL WRITE_0D_I( NZZ, INDEX_NONE, 'NZZ =',
37       &  ' /* number of levels in the fine vertical grid */')       &  ' /* number of levels in the fine vertical grid */')
38    
39           CALL WRITE_1D_RL( dZZf, NZZ, INDEX_K, 'dZZf =',
40         &  ' /* fine vertical grid spacing for isopycnal interp */')
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22