/[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.4 by jmc, Tue Feb 20 19:39:42 2001 UTC revision 1.5 by heimbach, Sun Mar 25 22:33:53 2001 UTC
# Line 44  C--   Open boundaries data Line 44  C--   Open boundaries data
44        IF ( useAIM ) CALL AIM_INIT( mythid )        IF ( useAIM ) CALL AIM_INIT( mythid )
45  #endif  #endif
46    
47    #ifdef ALLOW_MIT_ADJOINT_RUN
48    c--   Map the control variables onto the model state.
49          call ctrl_map_ini( mythid )
50          _BARRIER
51    c--   Initialise the cost function.
52          call cost_init( mythid )
53          _BARRIER
54    #endif
55    
56  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
57        IF (useECCO) THEN        IF (useECCO) THEN
58         CALL ECCO_INIT( myThid )         CALL ECCO_INIT( myThid )
# Line 52  C--   Open boundaries data Line 61  C--   Open boundaries data
61        CALL INI_FORCING( myThid )        CALL INI_FORCING( myThid )
62  #endif  #endif
63    
   
64        RETURN        RETURN
65        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22