/[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.18 by molod, Thu Feb 12 16:01:32 2004 UTC
# Line 85  C--   Initialise & Read FIZHI physical p Line 85  C--   Initialise & Read FIZHI physical p
85  #endif  #endif
86  C AMM  C AMM
87    
 C AMM  
 #ifdef ALLOW_DIAGNOSTICS  
 C--   Read DIAGNOSTICS namelists and initialise parameters  
       IF (useDIAGNOSTICS) CALL DIAGNOSTICS_INITIALISE( myThid )  
 #endif  
 C AMM  
   
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 118  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_init(mythid)
118          ENDIF
119    #endif
120    CAMM
121    
122        RETURN        RETURN
123        END        END
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22