/[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.23 by edhill, Fri Mar 10 22:01:54 2006 UTC revision 1.24 by mlosch, Thu May 22 08:29:06 2008 UTC
# Line 16  C     \textbf{always} be run before any Line 16  C     \textbf{always} be run before any
16  C     that the lookup tables start in a well-defined state.  C     that the lookup tables start in a well-defined state.
17                
18  C     !USES:  C     !USES:
 #include "mnc_common.h"  
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "EESUPPORT.h"  #include "EESUPPORT.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    #include "mnc_common.h"
24    #include "MNC_PARAMS.h"
25    
26  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
27        integer myThid        integer myThid
# Line 99  C          mnc_cw_cvse(i,g) = 0 Line 100  C          mnc_cw_cvse(i,g) = 0
100          mnc_cw_cit(3,i) = -1          mnc_cw_cit(3,i) = -1
101        ENDDO        ENDDO
102    
103          DO i = 1,2
104           mnc_def_imv(i) = UNSET_I
105           mnc_def_rmv(i) = UNSET_FLOAT4
106           mnc_def_dmv(i) = UNSET_FLOAT8
107          ENDDO
108    
109  C     The default for all file types is to add the iter to the name and  C     The default for all file types is to add the iter to the name and
110  C     grow them in "lock step" together  C     grow them in "lock step" together
111        mnc_cw_cit(1,1) = 1        mnc_cw_cit(1,1) = 1
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22