/[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.2 by edhill, Tue Jan 6 23:19:27 2004 UTC revision 1.3 by edhill, Thu Jan 8 07:24:47 2004 UTC
# Line 12  C======================================= Line 12  C=======================================
12  C     Arguments  C     Arguments
13    
14  C     Local Variables  C     Local Variables
15        integer i        integer i,j
16        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
17    
18  C     Write blanks or zeros to all the name and ID tables  C     Write blanks or zeros to all the name and ID tables
# Line 25  C     Write blanks or zeros to all the n Line 25  C     Write blanks or zeros to all the n
25          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)
26          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)
27          mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
28          mnc_f_info(i,1) = 0          DO j = 1,MNC_MAX_INFO
29          mnc_f_info(i,2) = 0            mnc_f_info(i,j) = 0
30          mnc_f_info(i,3) = 0            mnc_fv_ids(i,j) = 0
31          mnc_fv_ids(i,1) = 0            mnc_fg_ids(i,j) = 0
32              mnc_fd_ind(i,j) = 0
33            ENDDO
34          ENDDO
35    
36          RETURN
37          END
38    
39    C==================================================================
40    
41          SUBROUTINE MNC_DUMP()
42    
43    #include "mnc_common.h"
44    
45    C     Arguments
46    
47    C     Local Variables
48          integer i,j, n_id
49    
50    C     n_id = mnc_max_id
51          n_id = 4
52    
53          write(*,*) 'mnc_f_names :'
54          DO i = 1,n_id
55            write(*,'(a,a40)') '  ', mnc_f_names(i)
56          ENDDO
57          write(*,*) 'mnc_g_names :'
58          DO i = 1,n_id
59            write(*,'(a,a40)') '  ', mnc_g_names(i)
60          ENDDO
61          write(*,*) 'mnc_v_names :'
62          DO i = 1,n_id
63            write(*,'(a,a40)') '  ', mnc_v_names(i)
64          ENDDO
65          write(*,*) 'mnc_d_names :'
66          DO i = 1,n_id
67            write(*,'(a,a40)') '  ', mnc_d_names(i)
68          ENDDO
69    
70          write(*,*) 'mnc_f_info :'
71          DO i = 1,n_id
72            write(*,*) (mnc_f_info(i,j), j=1,20)
73          ENDDO
74          write(*,*) 'mnc_fg_ids :'
75          DO i = 1,n_id
76            write(*,*) (mnc_fg_ids(i,j), j=1,20)
77          ENDDO
78          write(*,*) 'mnc_fd_ind :'
79          DO i = 1,n_id
80            write(*,*) (mnc_fd_ind(i,j), j=1,20)
81          ENDDO
82          write(*,*) 'mnc_fv_ids :'
83          DO i = 1,n_id
84            write(*,*) (mnc_fv_ids(i,j), j=1,20)
85        ENDDO        ENDDO
86    
87        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22