/[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.19 by edhill, Fri Dec 17 21:28:26 2004 UTC revision 1.20 by edhill, Sat Sep 10 18:30:07 2005 UTC
# Line 17  C     that the lookup tables start in a Line 17  C     that the lookup tables start in a
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
# Line 55  C     Blank the CW tables Line 59  C     Blank the CW tables
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          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)  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)
# Line 76  C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) = Line 81  C       mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) =
81  C          mnc_cw_cvse(i,g) = 0  C          mnc_cw_cvse(i,g) = 0
82          ENDDO          ENDDO
83        ENDDO        ENDDO
84          
85          DO i = 1,MNC_MAX_INFO
86            mnc_cw_cit(1,i) = 0
87            mnc_cw_cit(2,i) = 0
88            mnc_cw_cit(3,i) = -1
89          ENDDO
90    
91    C     The default for all file types is to add the iter to the name and
92    C     grow them in "lock step" together
93          mnc_cw_cit(1,1) = 1
94          mnc_cw_cit(2,1) = nIter0
95    
96    C     Here, we do not add the iter to the file name
97          mnc_cw_cit(1,2) = -1
98          mnc_cw_cit(2,2) = -1
99    
100    C     For checkpoint files, we want to use the current iter but we do
101    C     not (by default, anyway) want to update the current iter for
102    C     everything else
103          mnc_cw_cit(1,3) = 3
104          mnc_cw_cit(2,3) = nIter0
105    
106  C     DO i = 1,MNC_CW_CVDAT  C     DO i = 1,MNC_CW_CVDAT
107  C     mnc_cw_cvdt(i) = 0.0D0  C     mnc_cw_cvdt(i) = 0.0D0
108  C     ENDDO  C     ENDDO
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22