/[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.8 by edhill, Sat Jan 31 04:13:09 2004 UTC revision 1.9 by edhill, Mon Mar 8 21:15:49 2004 UTC
# Line 64  C     The outer tables Line 64  C     The outer tables
64  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
65    
66        SUBROUTINE MNC_DUMP()        SUBROUTINE MNC_DUMP()
67          CALL MNC_DUMP_ALL(5, 20)
68          RETURN
69          END
70    
71    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
72    
73          SUBROUTINE MNC_DUMP_ALL( n_id, n_items )
74    
75  #include "mnc_common.h"  #include "mnc_common.h"
76    
77  C     Arguments  C     Arguments
78          integer n_id, n_items
79    
80  C     Local Variables  C     Local Variables
81        integer i,j, n_id        integer i,j
82    
83  C     n_id = mnc_max_id  C     n_id = mnc_max_id
       n_id = 5  
84    
85        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
86        DO i = 1,n_id        DO i = 1,n_id
87          write(*,'(a,a40)') '  :', mnc_f_names(i)          write(*,'(i3,a,a40)') i,':', mnc_f_names(i)
88        ENDDO        ENDDO
89        write(*,*) 'mnc_g_names :'        write(*,*) 'mnc_g_names :'
90        DO i = 1,n_id        DO i = 1,n_id
91          write(*,'(a,a40)') '  :', mnc_g_names(i)          write(*,'(i3,a,a40)') i,':', mnc_g_names(i)
92        ENDDO        ENDDO
93        write(*,*) 'mnc_v_names :'        write(*,*) 'mnc_v_names :'
94        DO i = 1,n_id        DO i = 1,n_id
95          write(*,'(a,a40)') '  :', mnc_v_names(i)          write(*,'(i3,a,a40)') i,':', mnc_v_names(i)
96        ENDDO        ENDDO
97        write(*,*) 'mnc_d_names :'        write(*,*) 'mnc_d_names :'
98        DO i = 1,n_id        DO i = 1,n_id
99          write(*,'(a,a40)') '  :', mnc_d_names(i)          write(*,'(i3,a,a40)') i,':', mnc_d_names(i)
100        ENDDO        ENDDO
101    
102        write(*,*) 'mnc_d_ids, mnc_d_size :'        write(*,*) 'mnc_d_ids, mnc_d_size :'
103        DO i = 1,n_id        DO i = 1,n_id
104          write(*,*) mnc_d_ids(i), mnc_d_size(i)          write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
105        ENDDO        ENDDO
106    
107        write(*,*) 'mnc_f_info :'        write(*,*) 'mnc_f_info :'
108        DO i = 1,n_id        DO i = 1,n_id
109          write(*,*) (mnc_f_info(i,j), j=1,30)          write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
110        ENDDO        ENDDO
111        write(*,*) 'mnc_fd_ind :'        write(*,*) 'mnc_fd_ind :'
112        DO i = 1,n_id        DO i = 1,n_id
113          write(*,*) (mnc_fd_ind(i,j), j=1,30)          write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
114        ENDDO        ENDDO
115        write(*,*) 'mnc_fv_ids :'        write(*,*) 'mnc_fv_ids :'
116        DO i = 1,n_id        DO i = 1,n_id
117          write(*,*) (mnc_fv_ids(i,j), j=1,30)          write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
118        ENDDO        ENDDO
119        write(*,*) 'mnc_f_alld :'        write(*,*) 'mnc_f_alld :'
120        DO i = 1,n_id        DO i = 1,n_id
121          write(*,*) (mnc_f_alld(i,j), j=1,30)          write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
122        ENDDO        ENDDO
123    
124        RETURN        RETURN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22