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

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

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

revision 1.69 by rpa, Wed Sep 16 21:36:11 2009 UTC revision 1.70 by gforget, Sun Oct 25 02:04:50 2009 UTC
# Line 248  C--   in order to provide the weight fil Line 248  C--   in order to provide the weight fil
248        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
249  #endif  #endif
250    
251    #ifdef ALLOW_SMOOTH
252          CALL SMOOTH_INIT_FIXED(myThid)
253    #endif /* ALLOW_SMOOTH */
254    
255  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
256  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
257  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70
  ViewVC Help
Powered by ViewVC 1.1.22