/[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.37 by heimbach, Fri Oct 8 17:25:37 2004 UTC revision 1.38 by heimbach, Tue Oct 12 15:14:15 2004 UTC
# Line 147  cph#endif Line 147  cph#endif
147  #endif  #endif
148    
149  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
150  CADJ STORE theta = tapelev_ini_bibj_k, key = 1  CADJ STORE theta = tapelev_init, key = 1
151  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
152        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
153  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
154    #ifdef ALLOW_ECCO
155          CALL CTRL_MAP_INI_ECCO( mythid )
156    #else
157        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( mythid )
158    #endif
159        _BARRIER        _BARRIER
160  #endif  #endif
161    
# Line 164  cph#endif Line 168  cph#endif
168    
169  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
170  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
171  CADJ STORE theta = tapelev3, key = 1  CADJ STORE theta = tapelev_init, key = 1
172  # endif  # endif
173        IF (useEBM) CALL EBM_INI_VARS( mythid )        IF (useEBM) CALL EBM_INI_VARS( mythid )
174  #endif  #endif
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22