/[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.16 by molod, Thu Jan 29 14:10:51 2004 UTC revision 1.21 by edhill, Fri Mar 19 03:28:36 2004 UTC
# Line 19  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- MNC_INIT
23    C       |
24  C       |-- GAD_INIT  C       |-- GAD_INIT
25  C       |  C       |
26  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
# Line 44  C     myThid -  Number of this instances Line 46  C     myThid -  Number of this instances
46        INTEGER myThid        INTEGER myThid
47  CEOP  CEOP
48    
49    C--   Initialize MNC look-up tables
50    #ifdef ALLOW_MNC
51    CEH3 NEED RUN-TIME SWITCH:  IF (useMNC) THEN
52          CALL MNC_INIT(myThid)
53          CALL MNC_CW_INIT(sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr, myThid)
54          CALL INI_MNC_IO(myThid)
55    CEH3 NEED RUN-TIME SWITCH:  ENDIF
56    #endif
57    
58  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
59        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
60    
# Line 85  C--   Initialise & Read FIZHI physical p Line 96  C--   Initialise & Read FIZHI physical p
96  #endif  #endif
97  C AMM  C AMM
98    
 C AMM  
 #ifdef ALLOW_DIAGNOSTICS  
 C--   Read DIAGNOSTICS namelists and initialise parameters  
       IF (useDIAGNOSTICS) CALL DIAGNOSTICS_INITIALISE( myThid )  
 #endif  
 C AMM  
   
99  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
100  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
101        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
# Line 118  C--   Initialise the control variables Line 122  C--   Initialise the control variables
122  #endif  #endif
123  #endif  #endif
124    
125    CAMM
126    #ifdef ALLOW_DIAGNOSTICS
127          IF (usediagnostics) then
128           call diagnostics_initialise(mythid)
129          ENDIF
130    #endif
131    CAMM
132    
133        RETURN        RETURN
134        END        END
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22