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

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

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

revision 1.30 by gforget, Fri Aug 10 22:57:20 2012 UTC revision 1.31 by heimbach, Sat Mar 30 01:25:44 2013 UTC
# Line 54  c     == end of interface == Line 54  c     == end of interface ==
54        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
55    
56  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
57        CALL SEAICE_COST_FINAL (myThid)        if (useSEAICE) CALL SEAICE_COST_FINAL (myThid)
58  #endif  #endif
59    
60  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
61        CALL SHELFICE_COST_FINAL (myThid)        CALL SHELFICE_COST_FINAL (myThid)
62  #endif  #endif
63    
64          print *, 'ph-1 in thsice_cost_final'
65    
66    #ifdef ALLOW_THSICE
67          if (useTHSICE) CALL THSICE_COST_FINAL (myThid)
68    #endif
69    
70          print *, 'ph-3 in thsice_cost_final'
71    
72  #ifdef ALLOW_ECCO  #ifdef ALLOW_ECCO
73        CALL ECCO_COST_FINAL (myThid)        CALL ECCO_COST_FINAL (myThid)
74  #endif  #endif
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22