/[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.55 by heimbach, Sun Oct 22 01:11:44 2006 UTC revision 1.58 by heimbach, Wed Apr 18 23:56:06 2007 UTC
# Line 111  C-    needs to call DIAGNOSTICS_INIT_EAR Line 111  C-    needs to call DIAGNOSTICS_INIT_EAR
111    
112  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
113  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
114        CALL GAD_INIT( myThid )        CALL GAD_INIT_FIXED( myThid )
115  #endif  #endif
116    
117  #ifdef ALLOW_MOM_COMMON  #ifdef ALLOW_MOM_COMMON
# Line 129  C--   Initialize fixed params for Moment Line 129  C--   Initialize fixed params for Moment
129    
130  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
131  C--   Initialize fixed arrays for EXF  C--   Initialize fixed arrays for EXF
132  c     IF ( useEXF ) THEN        IF ( useEXF ) THEN
133         CALL EXF_INIT_FIXED( myThid )         CALL EXF_INIT_FIXED( myThid )
134  c     ENDIF        ENDIF
135  #endif  #endif
136    
137  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 220  C--   Initialise & Read Land package par Line 220  C--   Initialise & Read Land package par
220  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
221  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
222  C--   in order to provide the weight files  C--   in order to provide the weight files
223        CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
224  #endif  #endif
225    
226  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22