/[MITgcm]/MITgcm/pkg/cost/cost_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_init_varia.F

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

revision 1.4 by heimbach, Fri Mar 24 22:58:25 2006 UTC revision 1.5 by heimbach, Sat May 6 14:33:25 2006 UTC
# Line 97  cph because we need it in ADM*TLM Line 97  cph because we need it in ADM*TLM
97        call ecco_cost_init_varia( mythid )        call ecco_cost_init_varia( mythid )
98  #endif  #endif
99    
 # ifdef ALLOW_PROFILES  
       CALL profiles_init_varia( mythid )  
 # endif  
   
100  c--   Initialise the "global" parts of the cost function.  c--   Initialise the "global" parts of the cost function.
101        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
102          fc         = 0. _d 0          fc         = 0. _d 0
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22