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

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

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

revision 1.7 by dfer, Fri Apr 4 21:32:36 2008 UTC revision 1.10 by jmc, Mon Apr 12 20:07:57 2010 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
 #include "GCHEM_OPTIONS.h"  
5    
6  CBOP  CBOP
7  C !ROUTINE: CAR_FLUX  C !ROUTINE: CAR_FLUX
# Line 76  c determine calcite saturation state Line 75  c determine calcite saturation state
75          CALL CARBON_COEFFS_PRESSURE_DEP(          CALL CARBON_COEFFS_PRESSURE_DEP(
76       I                       theta,salt,       I                       theta,salt,
77       I                       bi,bj,iMin,iMax,jMin,jMax,       I                       bi,bj,iMin,iMax,jMin,jMax,
78       I                       k)       I                       k,myThid)
79    
80    
81          DO j=jmin,jmax          DO j=jmin,jmax
# Line 115  CMIKC - CAN AFFORD TO MAKE SEVERAL ITERA Line 114  CMIKC - CAN AFFORD TO MAKE SEVERAL ITERA
114       I          aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),       I          aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
115       I          aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),       I          aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),
116       I          bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),       I          bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
117       U          pHlocal,pCO2local,       U          pHlocal,pCO2local,carbonate,
118       U          carbonate )       I          i,j,k,bi,bj,myIter,myThid )
119  c........................................................  c........................................................
120  c               if(i .eq. 76 .and. j .eq. 36  .and. k .eq. 15) then  c               if(i .eq. 76 .and. j .eq. 36  .and. k .eq. 15) then
121  c                 write(6,*)'Iteration, pH = ',CO3iter,pHlocal  c                 write(6,*)'Iteration, pH = ',CO3iter,pHlocal
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22