/[MITgcm]/MITgcm/pkg/dic/dic_atmos.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_atmos.F

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

revision 1.12 by dfer, Mon Aug 11 17:41:05 2008 UTC revision 1.13 by jmc, Tue Apr 28 18:41:40 2009 UTC
# Line 185  c for 278ppmv we need total_atmos_carbon Line 185  c for 278ppmv we need total_atmos_carbon
185          ENDDO          ENDDO
186         ENDDO         ENDDO
187    
188         _GLOBAL_SUM_R8(total_flux,myThid)         _GLOBAL_SUM_RL(total_flux,myThid)
189         _GLOBAL_SUM_R8(total_ocean_carbon,myThid)         _GLOBAL_SUM_RL(total_ocean_carbon,myThid)
190    
191         if (istate.eq.0) then         if (istate.eq.0) then
192  c use value read in dic_init_fixed  c use value read in dic_init_fixed
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22