/[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.8 by dfer, Mon Apr 7 20:31:16 2008 UTC revision 1.9 by jmc, Wed Apr 9 22:13:15 2008 UTC
# Line 75  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 114  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          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.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22