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

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

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

revision 1.6 by jmc, Tue Jul 13 18:03:31 2004 UTC revision 1.7 by stephd, Thu Aug 25 22:32:44 2005 UTC
# Line 89  C exchange coeff, accounting for ice cov Line 89  C exchange coeff, accounting for ice cov
89       &             pisvel(i,j,bi,bj)       &             pisvel(i,j,bi,bj)
90       &             / sqrt(SchmidtNoO2(i,j)/660.0)       &             / sqrt(SchmidtNoO2(i,j)/660.0)
91  c ice influence  c ice influence
92  cQQ           Kwexch(i,j)  =(1.d0-Fice(i,j,bi,bj))*Kwexch(i,j)                Kwexch(i,j)  =(1.d0-Fice(i,j,bi,bj))*Kwexch(i,j)
93    
94                ttemp = theta(i,j,k,bi,bj)                ttemp = theta(i,j,k,bi,bj)
95                stemp = salt(i,j,k,bi,bj)                stemp = salt(i,j,k,bi,bj)
# Line 129  cQQ PTR_O2? Line 129  cQQ PTR_O2?
129  C update surface tendencies        C update surface tendencies      
130          DO j=jMin,jMax          DO j=jMin,jMax
131            DO i=iMin,iMax            DO i=iMin,iMax
132             SGO2(i,j)= maskC(i,j,1,bi,bj)*FluxO2(i,j)*recip_drF(1)             SGO2(i,j)= maskC(i,j,1,bi,bj)*FluxO2(i,j)
133         &         *recip_drF(1) * recip_hFacC(i,j,1,bi,bj)
134            ENDDO            ENDDO
135           ENDDO           ENDDO
136  #endif  #endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22