/[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.9 by heimbach, Fri Jan 11 19:24:24 2002 UTC revision 1.11 by adcroft, Mon Mar 4 17:26:41 2002 UTC
# Line 72  C--   Open boundaries data Line 72  C--   Open boundaries data
72        IF ( useAIM ) CALL AIM_INIT( mythid )        IF ( useAIM ) CALL AIM_INIT( mythid )
73  #endif  #endif
74    
75  #ifdef ALLOW_ADJOINT_RUN  #ifdef ALLOW_PTRACERS
76          IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
77    #endif
78    
79    #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
80  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
81        call ctrl_map_ini( mythid )        call ctrl_map_ini( mythid )
82        _BARRIER        _BARRIER
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22