/[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.6 by jmc, Wed Nov 14 16:33:42 2007 UTC revision 1.7 by dfer, Fri Apr 4 18:57:36 2008 UTC
# Line 28  C !USES: =============================== Line 28  C !USES: ===============================
28  #include "FFIELDS.h"  #include "FFIELDS.h"
29  #include "DIC_ABIOTIC.h"  #include "DIC_ABIOTIC.h"
30  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
 #include "PTRACERS_SIZE.h"  
 #include "PTRACERS_FIELDS.h"  
31  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
32  #endif  #endif
33    #include "PTRACERS_SIZE.h"
34    #include "PTRACERS_FIELDS.h"
35  #include "GCHEM.h"  #include "GCHEM.h"
36  #include "DIC_ATMOS.h"  #include "DIC_ATMOS.h"
37    
# Line 186  c for 278ppmv we need total_atmos_carbon Line 186  c for 278ppmv we need total_atmos_carbon
186              endif              endif
187              DO k=1,nR              DO k=1,nR
188                total_ocean_carbon= total_ocean_carbon+                total_ocean_carbon= total_ocean_carbon+
189       &              ( Ptracer(i,j,k,bi,bj,1)+       &              ( Ptracer(i,j,k,bi,bj,1)
190       &                R_cp*Ptracer(i,j,k,bi,bj,4) )*rA(i,j,bi,bj)*  #ifdef DIC_BIOTIC
191         &               +R_cp*Ptracer(i,j,k,bi,bj,4)
192    #endif
193         &              ) * rA(i,j,bi,bj)*
194       &                drF(k)*hFacC(i,j,k,bi,bj)       &                drF(k)*hFacC(i,j,k,bi,bj)
195              ENDDO              ENDDO
196            ENDDO            ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22