/[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.3 by edhill, Thu Jan 8 07:24:47 2004 UTC revision 1.4 by edhill, Sat Jan 17 13:55:49 2004 UTC
# Line 30  C     Write blanks or zeros to all the n Line 30  C     Write blanks or zeros to all the n
30            mnc_fv_ids(i,j) = 0            mnc_fv_ids(i,j) = 0
31            mnc_fg_ids(i,j) = 0            mnc_fg_ids(i,j) = 0
32            mnc_fd_ind(i,j) = 0            mnc_fd_ind(i,j) = 0
33              mnc_f_alld(i,j) = 0
34          ENDDO          ENDDO
35        ENDDO        ENDDO
36    
# Line 48  C     Local Variables Line 49  C     Local Variables
49        integer i,j, n_id        integer i,j, n_id
50    
51  C     n_id = mnc_max_id  C     n_id = mnc_max_id
52        n_id = 4        n_id = 5
53    
54        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
55        DO i = 1,n_id        DO i = 1,n_id
# Line 69  C     n_id = mnc_max_id Line 70  C     n_id = mnc_max_id
70    
71        write(*,*) 'mnc_f_info :'        write(*,*) 'mnc_f_info :'
72        DO i = 1,n_id        DO i = 1,n_id
73          write(*,*) (mnc_f_info(i,j), j=1,20)          write(*,*) (mnc_f_info(i,j), j=1,30)
74        ENDDO        ENDDO
75        write(*,*) 'mnc_fg_ids :'        write(*,*) 'mnc_fg_ids :'
76        DO i = 1,n_id        DO i = 1,n_id
77          write(*,*) (mnc_fg_ids(i,j), j=1,20)          write(*,*) (mnc_fg_ids(i,j), j=1,30)
78        ENDDO        ENDDO
79        write(*,*) 'mnc_fd_ind :'        write(*,*) 'mnc_fd_ind :'
80        DO i = 1,n_id        DO i = 1,n_id
81          write(*,*) (mnc_fd_ind(i,j), j=1,20)          write(*,*) (mnc_fd_ind(i,j), j=1,30)
82        ENDDO        ENDDO
83        write(*,*) 'mnc_fv_ids :'        write(*,*) 'mnc_fv_ids :'
84        DO i = 1,n_id        DO i = 1,n_id
85          write(*,*) (mnc_fv_ids(i,j), j=1,20)          write(*,*) (mnc_fv_ids(i,j), j=1,30)
86          ENDDO
87          write(*,*) 'mnc_f_alld :'
88          DO i = 1,n_id
89            write(*,*) (mnc_f_alld(i,j), j=1,30)
90        ENDDO        ENDDO
91    
92        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22