/[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.20 by dfer, Fri Apr 4 21:37:06 2008 UTC revision 1.22 by jmc, Wed Apr 9 22:13:15 2008 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
5  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
 #include "GCHEM_OPTIONS.h"  
6    
7  CBOP  CBOP
8  C !ROUTINE: DIC_SURFFORCING  C !ROUTINE: DIC_SURFFORCING
# Line 101  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 142  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.20  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22