/[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.11 by heimbach, Sat Jul 13 03:12:30 2002 UTC revision 1.12 by mlosch, Wed Sep 25 19:36:50 2002 UTC
# Line 359  cph) Line 359  cph)
359       &       ) *       &       ) *
360       &       drF(1) / work2(I,J)       &       drF(1) / work2(I,J)
361          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) *
362       &       recip_Cp*recip_rhoNil*recip_dRf(1) *       &       recip_Cp*recip_rhoConst*recip_dRf(1) *
363       &       drF(1) / work2(I,J)       &       drF(1) / work2(I,J)
364         END DO         END DO
365        END DO        END DO
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22