/[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.26 by dimitri, Wed May 5 22:50:54 2004 UTC revision 1.27 by heimbach, Tue May 11 20:57:08 2004 UTC
# Line 250  c--------------------------------------- Line 250  c---------------------------------------
250    
251        CALL TIMER_START('STATEKPP      [KPP_CALC]', myThid)        CALL TIMER_START('STATEKPP      [KPP_CALC]', myThid)
252        CALL STATEKPP(        CALL STATEKPP(
253       I       bi, bj, myThid       I       ikppkey, bi, bj, myThid
254       O     , work2, dbloc, Ritop       O     , work2, dbloc, Ritop
255       O     , vddiff(ibot,jbot,1,1), vddiff(ibot,jbot,1,2)       O     , vddiff(ibot,jbot,1,1), vddiff(ibot,jbot,1,2)
256       &     )       &     )
# Line 326  c     so that the subroutine "bldepth" w Line 326  c     so that the subroutine "bldepth" w
326  cph(  cph(
327  cph  this avoids a single or double recomp./call of statekpp  cph  this avoids a single or double recomp./call of statekpp
328  CADJ store work2              = comlev1_kpp, key = ikppkey  CADJ store work2              = comlev1_kpp, key = ikppkey
329  #ifdef ALLOW_AUTODIFF_KPP_EXTENSIVE_STORE  #ifdef KPP_AUTODIFF_EXCESSIVE_STORE
330  CADJ store dbloc, Ritop, ghat = comlev1_kpp, key = ikppkey  CADJ store dbloc, Ritop, ghat = comlev1_kpp, key = ikppkey
331  CADJ store vddiff             = comlev1_kpp, key = ikppkey  CADJ store vddiff             = comlev1_kpp, key = ikppkey
332  #endif  #endif
# Line 631  c     shsq computation Line 631  c     shsq computation
631        END DO        END DO
632    
633  cph(  cph(
634  #ifdef ALLOW_AUTODIFF_KPP_EXTENSIVE_STORE  #ifdef KPP_AUTODIFF_EXCESSIVE_STORE
635  CADJ store dvsq, shsq = comlev1_kpp, key = ikppkey  CADJ store dvsq, shsq = comlev1_kpp, key = ikppkey
636  #endif  #endif
637  cph)  cph)
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22