/[MITgcm]/MITgcm/pkg/kpp/kpp_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_calc.F

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

revision 1.4 by heimbach, Mon Nov 13 16:37:02 2000 UTC revision 1.5 by adcroft, Wed Nov 29 22:29:23 2000 UTC
# Line 340  c initialize arrays to zero Line 340  c initialize arrays to zero
340       &         vddiff(I,J,1,2) * SurfaceTendencyS(i,j,bi,bj)       &         vddiff(I,J,1,2) * SurfaceTendencyS(i,j,bi,bj)
341       &       ) *       &       ) *
342       &       delZ(1) / work2(I,J)       &       delZ(1) / work2(I,J)
343          bosol(I,J) = - gravity * vddiff(I,J,1,1) * Qsw(i,j,bi,bj) *          bosol(I,J) = gravity * vddiff(I,J,1,1) * Qsw(i,j,bi,bj) *
344         &       recip_Cp*recip_rhoNil*recip_dRf(1) *
345       &       delZ(1) / work2(I,J)       &       delZ(1) / work2(I,J)
346         END DO         END DO
347        END DO        END DO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22