/[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.17 by dimitri, Wed Apr 30 07:04:08 2003 UTC revision 1.18 by adcroft, Thu Oct 2 14:38:37 2003 UTC
# Line 102  c     to OLx=1, OLy=1. Line 102  c     to OLx=1, OLy=1.
102    
103  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
104  #include "SEAICE_EXTERNAL.h"  #include "SEAICE_EXTERNAL.h"
105  #endif ALLOW_SEAICE  #endif /* ALLOW_SEAICE */
106    
107  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
108  #include "tamc.h"  #include "tamc.h"
# Line 387  cph) Line 387  cph)
387       &         vddiff(I,J,1,2) * SurfaceTendencyS(i,j,bi,bj)       &         vddiff(I,J,1,2) * SurfaceTendencyS(i,j,bi,bj)
388       &       ) *       &       ) *
389       &       drF(1) / work2(I,J)       &       drF(1) / work2(I,J)
390  #endif ALLOW_SEAICE  #endif /* ALLOW_SEAICE */
391    
392          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) *
393       &       recip_Cp*recip_rhoConst*recip_dRf(1) *       &       recip_Cp*recip_rhoConst*recip_dRf(1) *
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22