/[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.13 by edhill, Mon Mar 29 03:33:52 2004 UTC revision 1.20 by edhill, Sat Sep 10 18:30:07 2005 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP 0
8  C     !ROUTINE: MNC_INIT  C     !ROUTINE: MNC_INIT
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MNC_INIT( myThid )        SUBROUTINE MNC_INIT( myThid )
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Initialize (zero) the look-up tables.  C     Initialize (zero) the look-up tables.  This routine should
15    C     \textbf{always} be run before any other MNC subroutines to ensure
16    C     that the lookup tables start in a well-defined state.
17                
18  C     !USES:  C     !USES:
19  #include "mnc_common.h"  #include "mnc_common.h"
20    #include "SIZE.h"
21    #include "EEPARAMS.h"
22    #include "EESUPPORT.h"
23    #include "PARAMS.h"
24    
25  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
26        integer myThid        integer myThid
27    CEOP
28    
29  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
30        integer i,j, g, v        integer i,j, g, v
31        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
 CEOP  
32    
33  C     Write blanks or zeros to all the internal names and ID tables  C     Write blanks or zeros to all the internal names and ID tables
34        DO i = 1,MNC_MAX_CHAR        DO i = 1,MNC_MAX_CHAR
35          blank(i:i) = ' ';          blank(i:i) = ' '
36        ENDDO        ENDDO
37        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)        mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
38        DO i = 1,MNC_MAX_ID        DO i = 1,MNC_MAX_ID
# Line 44  C     Write blanks or zeros to all the i Line 50  C     Write blanks or zeros to all the i
50          ENDDO          ENDDO
51        ENDDO        ENDDO
52    
53  C     The outer tables  C     Blank the CW tables
54        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
55          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
56          mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
# Line 52  C     The outer tables Line 58  C     The outer tables
58          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
59          mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
60          mnc_cw_fgud(g) = 0          mnc_cw_fgud(g) = 0
61            mnc_cw_fgis(g) = 0
62            mnc_cw_fgci(g) = 1
63    C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
64          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
65            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
66            mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
# Line 69  C     The outer tables Line 78  C     The outer tables
78          ENDDO          ENDDO
79          DO i = 1,2          DO i = 1,2
80             mnc_cw_vbij(i,g) = 0             mnc_cw_vbij(i,g) = 0
81    C          mnc_cw_cvse(i,g) = 0
82          ENDDO          ENDDO
83        ENDDO        ENDDO
84    
85        RETURN        DO i = 1,MNC_MAX_INFO
86        END          mnc_cw_cit(1,i) = 0
87            mnc_cw_cit(2,i) = 0
88  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|          mnc_cw_cit(3,i) = -1
89  CBOP        ENDDO
90  C     !ROUTINE: MNC_DUMP  
91    C     The default for all file types is to add the iter to the name and
92  C     !INTERFACE:  C     grow them in "lock step" together
93        SUBROUTINE MNC_DUMP( myThid )        mnc_cw_cit(1,1) = 1
94          mnc_cw_cit(2,1) = nIter0
95  C     !DESCRIPTION:  
96  C     Create a short summary of the look-up tables.  C     Here, we do not add the iter to the file name
97                mnc_cw_cit(1,2) = -1
98  C     !INPUT PARAMETERS:        mnc_cw_cit(2,2) = -1
99        INTEGER myThid  
100  CEOP  C     For checkpoint files, we want to use the current iter but we do
101        CALL MNC_DUMP_ALL(5, 20, myThid)  C     not (by default, anyway) want to update the current iter for
102        RETURN  C     everything else
103        END        mnc_cw_cit(1,3) = 3
104          mnc_cw_cit(2,3) = nIter0
105  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
106  CBOP  C     DO i = 1,MNC_CW_CVDAT
107  C     !ROUTINE: MNC_DUMP_ALL  C     mnc_cw_cvdt(i) = 0.0D0
108    C     ENDDO
 C     !INTERFACE:  
       SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )  
   
 C     !DESCRIPTION:  
 C     Create a short summary of the look-up tables.  
         
 C     !USES:  
 #include "mnc_common.h"  
   
 C     !INPUT PARAMETERS:  
       integer n_id, n_items, myThid  
   
 C     !LOCAL VARIABLES:  
       integer i,j  
 CEOP  
   
       write(*,*) 'mnc_f_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_f_names(i)  
       ENDDO  
       write(*,*) 'mnc_g_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_g_names(i)  
       ENDDO  
       write(*,*) 'mnc_v_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_v_names(i)  
       ENDDO  
       write(*,*) 'mnc_d_names :'  
       DO i = 1,n_id  
         write(*,'(i3,a,a40)') i,':', mnc_d_names(i)  
       ENDDO  
   
       write(*,*) 'mnc_d_ids, mnc_d_size :'  
       DO i = 1,n_id  
         write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)  
       ENDDO  
   
       write(*,*) 'mnc_f_info :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)  
       ENDDO  
       write(*,*) 'mnc_fd_ind :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)  
       ENDDO  
       write(*,*) 'mnc_fv_ids :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)  
       ENDDO  
       write(*,*) 'mnc_f_alld :'  
       DO i = 1,n_id  
         write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)  
       ENDDO  
109    
110        RETURN        RETURN
111        END        END
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22