/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.19 by molod, Thu Feb 26 19:41:48 2004 UTC revision 1.20 by edhill, Thu Feb 26 22:31:58 2004 UTC
# Line 47  CEOP Line 47  CEOP
47  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
48        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
49    
50    C--   Initialize MNC look-up tables
51    #ifdef ALLOW_MNC
52    CEH3 NEED RUN-TIME SWITCH:  IF (useOBCS) THEN
53          CALL MNC_INIT(myThid)
54          CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr)
55    
56          CALL INI_MNC_IO(myThid)
57    CEH3 NEED RUN-TIME SWITCH:  ENDIF
58    #endif
59    
60  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
61  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
62        IF (useOBCS) THEN        IF (useOBCS) THEN
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22