/[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.14 by heimbach, Thu Nov 6 22:01:43 2003 UTC revision 1.19 by molod, Thu Feb 26 19:41:48 2004 UTC
# Line 73  C--   Initialise & Read AIM physical par Line 73  C--   Initialise & Read AIM physical par
73        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
74  #endif  #endif
75    
76    C AMM
77    #ifdef ALLOW_GRIDALT
78    C--   Initialise GRIDALT parameters - the alternative grid
79          IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )
80    #endif
81    
82    #ifdef ALLOW_FIZHI
83    C--   Initialise & Read FIZHI physical parameters
84          IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
85    #endif
86    C AMM
87    
88  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
89  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
90        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
# Line 99  C--   Initialise the control variables Line 111  C--   Initialise the control variables
111  #endif  #endif
112  #endif  #endif
113    
114    CAMM
115    #ifdef ALLOW_DIAGNOSTICS
116          IF (usediagnostics) then
117           call diagnostics_initialise(mythid)
118          ENDIF
119    #endif
120    CAMM
121    
122        RETURN        RETURN
123        END        END
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22