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

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

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

revision 1.7.2.2 by heimbach, Mon Apr 8 20:10:37 2002 UTC revision 1.7.2.3 by heimbach, Thu May 30 22:15:00 2002 UTC
# Line 90  C     IF (useAIM) CALL AIM_READPARMS ( m Line 90  C     IF (useAIM) CALL AIM_READPARMS ( m
90  #endif  #endif
91    
92  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
93    C--   Initialise the optim. parameters.
94  C--   Initialise the cost function.        call optim_readparms( myThid )
       call cost_readparms( mythid )  
95        _BARRIER        _BARRIER
   
96  C--   Initialise the control vector.  C--   Initialise the control vector.
97        CALL ctrl_init( myThid )        CALL ctrl_init( myThid )
98        _BARRIER        _BARRIER
99  C--   Initialise the optim. parameters.  #endif
       call optim_readparms( myThid )  
       _BARRIER  
100    
101  #ifdef ALLOW_GRADIENT_CHECK  #ifdef ALLOW_GRADIENT_CHECK
102  C--   Initialise gradient check parameters  C--   Initialise gradient check parameters
103        if (useGrdchk) call grdchk_readparms( myThid )        if (useGrdchk) call grdchk_readparms( myThid )
104  #endif  #endif
105    
106  #endif /* ALLOW_ADJOINT_RUN */  #ifdef
107    C--   Initialise the calendar package.
108          call cal_readparms( myThid )
109    #endif
110    
111    C--   Custom routine to set forcing fields.
112    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
113          call exf_readparms  ( mythid )
114    #endif
115    
116  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
117  c--   Initialize ECCO package parameters  c--   Initialize ECCO package parameters
118        IF (useECCO) CALL ECCO_READPARMS ( myThid )        IF (useECCO) CALL ECCO_READPARMS ( myThid )
119    #else
120    # ifdef ALLOW_COST
121    C--   Initialise the cost function.
122          call cost_readparms( mythid )
123          _BARRIER
124    # endif
125  #endif  #endif
126    
127        END        END
Legend:
Removed from v.1.7.2.2  
changed lines
  Added in v.1.7.2.3
  ViewVC Help
Powered by ViewVC 1.1.22