/[MITgcm]/MITgcm/pkg/mnc/mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_init.F

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

revision 1.10 by edhill, Tue Mar 9 14:43:16 2004 UTC revision 1.11 by edhill, Fri Mar 19 03:28:37 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    
8        SUBROUTINE MNC_INIT()        SUBROUTINE MNC_INIT( myThid )
9    
10  #include "mnc_common.h"  #include "mnc_common.h"
11    
12  C     Arguments  C     Arguments
13          integer myThid
14    
15  C     Local Variables  C     Local Variables
16        integer i,j, g, v        integer i,j, g, v
# Line 66  C     The outer tables Line 67  C     The outer tables
67    
68  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
69    
70        SUBROUTINE MNC_DUMP()        SUBROUTINE MNC_DUMP( myThid )
71        CALL MNC_DUMP_ALL(5, 20)        INTEGER myThid
72          CALL MNC_DUMP_ALL(5, 20, myThid)
73        RETURN        RETURN
74        END        END
75    
76  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
77    
78        SUBROUTINE MNC_DUMP_ALL( n_id, n_items )        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
79    
80  #include "mnc_common.h"  #include "mnc_common.h"
81    
82  C     Arguments  C     Arguments
83        integer n_id, n_items        integer n_id, n_items, myThid
84    
85  C     Local Variables  C     Local Variables
86        integer i,j        integer i,j
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22