/[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.4 by edhill, Sat Jan 17 13:55:49 2004 UTC revision 1.5 by edhill, Sun Jan 25 00:22:57 2004 UTC
# Line 20  C     Write blanks or zeros to all the n Line 20  C     Write blanks or zeros to all the n
20          blank(i:i) = ' ';          blank(i:i) = ' ';
21        ENDDO        ENDDO
22        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
23        DO i = 1,mnc_max_id        DO i = 1,MNC_MAX_ID
24            mnc_d_size(i) = 0
25            mnc_d_ids(i)  = 0
26          mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
27          mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
28          mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
# Line 28  C     Write blanks or zeros to all the n Line 30  C     Write blanks or zeros to all the n
30          DO j = 1,MNC_MAX_INFO          DO j = 1,MNC_MAX_INFO
31            mnc_f_info(i,j) = 0            mnc_f_info(i,j) = 0
32            mnc_fv_ids(i,j) = 0            mnc_fv_ids(i,j) = 0
           mnc_fg_ids(i,j) = 0  
33            mnc_fd_ind(i,j) = 0            mnc_fd_ind(i,j) = 0
34            mnc_f_alld(i,j) = 0            mnc_f_alld(i,j) = 0
35          ENDDO          ENDDO
# Line 53  C     n_id = mnc_max_id Line 54  C     n_id = mnc_max_id
54    
55        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
56        DO i = 1,n_id        DO i = 1,n_id
57          write(*,'(a,a40)') '  ', mnc_f_names(i)          write(*,'(a,a40)') '  :', mnc_f_names(i)
58        ENDDO        ENDDO
59        write(*,*) 'mnc_g_names :'        write(*,*) 'mnc_g_names :'
60        DO i = 1,n_id        DO i = 1,n_id
61          write(*,'(a,a40)') '  ', mnc_g_names(i)          write(*,'(a,a40)') '  :', mnc_g_names(i)
62        ENDDO        ENDDO
63        write(*,*) 'mnc_v_names :'        write(*,*) 'mnc_v_names :'
64        DO i = 1,n_id        DO i = 1,n_id
65          write(*,'(a,a40)') '  ', mnc_v_names(i)          write(*,'(a,a40)') '  :', mnc_v_names(i)
66        ENDDO        ENDDO
67        write(*,*) 'mnc_d_names :'        write(*,*) 'mnc_d_names :'
68        DO i = 1,n_id        DO i = 1,n_id
69          write(*,'(a,a40)') '  ', mnc_d_names(i)          write(*,'(a,a40)') '  :', mnc_d_names(i)
70        ENDDO        ENDDO
71    
72        write(*,*) 'mnc_f_info :'        write(*,*) 'mnc_d_ids, mnc_d_size :'
73        DO i = 1,n_id        DO i = 1,n_id
74          write(*,*) (mnc_f_info(i,j), j=1,30)          write(*,*) mnc_d_ids(i), mnc_d_size(i)
75        ENDDO        ENDDO
76        write(*,*) 'mnc_fg_ids :'  
77          write(*,*) 'mnc_f_info :'
78        DO i = 1,n_id        DO i = 1,n_id
79          write(*,*) (mnc_fg_ids(i,j), j=1,30)          write(*,*) (mnc_f_info(i,j), j=1,30)
80        ENDDO        ENDDO
81        write(*,*) 'mnc_fd_ind :'        write(*,*) 'mnc_fd_ind :'
82        DO i = 1,n_id        DO i = 1,n_id
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22