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

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

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

revision 1.21 by dfer, Mon Apr 7 20:31:16 2008 UTC revision 1.22 by jmc, Wed Apr 9 22:13:15 2008 UTC
# Line 100  C FOR NON-INTERACTIVE Si Line 100  C FOR NON-INTERACTIVE Si
100    
101           CALL CARBON_COEFFS(           CALL CARBON_COEFFS(
102       I                       theta,salt,       I                       theta,salt,
103       I                       bi,bj,iMin,iMax,jMin,jMax)       I                       bi,bj,iMin,iMax,jMin,jMax,myThid)
104  C====================================================================  C====================================================================
105    
106         DO j=jmin,jmax         DO j=jmin,jmax
# Line 141  C$TAF LOOP = parallel Line 141  C$TAF LOOP = parallel
141       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),
142       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),
143       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),
144       U        pH(i,j,bi,bj),pCO2(i,j,bi,bj) )       U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),
145         I        myThid )
146            ELSE            ELSE
147              pCO2(i,j,bi,bj)=0. _d 0              pCO2(i,j,bi,bj)=0. _d 0
148            ENDIF            ENDIF
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22