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

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

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

revision 1.8 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.9 by heimbach, Fri Jan 11 19:24:24 2002 UTC
# Line 81  c--   Initialise the cost function. Line 81  c--   Initialise the cost function.
81        _BARRIER        _BARRIER
82  #endif  #endif
83    
84    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
85          CALL EXF_INIT( mythid )
86    #else
87          CALL INI_FORCING( mythid )
88    #endif
89    
90  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
91        IF (useECCO) THEN        IF (useECCO) THEN
92         CALL ECCO_INIT( myThid )         CALL ECCO_INIT( myThid )
93        ENDIF        ENDIF
 #else  
       CALL INI_FORCING( myThid )  
94  #endif  #endif
95    
96        RETURN        RETURN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22