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

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

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

revision 1.9 by utke, Tue Oct 14 18:04:53 2008 UTC revision 1.10 by gforget, Fri Aug 10 14:43:57 2012 UTC
# Line 182  c Line 182  c
182           end if           end if
183          end do          end do
184    
185    
186    #if ( !defined (ALLOW_ECCO) || !defined (ALLOW_COST_ATLANTIC) )
187  #ifdef ALLOW_COST_ATLANTIC_HEAT_DOMASS  #ifdef ALLOW_COST_ATLANTIC_HEAT_DOMASS
188          objf_atl(bi,bj) =          objf_atl(bi,bj) =
189       &     sum*1.E-6       &     sum*1.E-6
# Line 189  c Line 191  c
191          objf_atl(bi,bj) =          objf_atl(bi,bj) =
192       &     sum*HeatCapacity_Cp*rhoConst/petawatt       &     sum*HeatCapacity_Cp*rhoConst/petawatt
193  #endif  #endif
194    #endif
195    
196  c--   end of bi,bj loop  c--   end of bi,bj loop
197         end do         end do
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22