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

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

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

revision 1.16 by heimbach, Fri Mar 21 23:18:28 2003 UTC revision 1.17 by edhill, Mon Sep 29 19:24:31 2003 UTC
# Line 203  cph) Line 203  cph)
203  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
204  c combine interior and boundary layer coefficients and nonlocal term  c combine interior and boundary layer coefficients and nonlocal term
205  c !!!NOTE!!! In shallow (2-level) regions and for shallow mixed layers  c !!!NOTE!!! In shallow (2-level) regions and for shallow mixed layers
206  c (< 1 level), diffusivity blmc can become negative.  The max's below  c (< 1 level), diffusivity blmc can become negative.  The max-s below
207  c are a hack until this problem is properly diagnosed and fixed.  c are a hack until this problem is properly diagnosed and fixed.
208  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
209        do k = 1, Nr        do k = 1, Nr
# Line 408  c Line 408  c
408        end do        end do
409    
410  cph(  cph(
411  cph  without this store, there's a recomputation error for  cph  without this store, there is a recomputation error for
412  cph  rib in adbldepth (probably partial recomputation problem)      cph  rib in adbldepth (probably partial recomputation problem)    
413  CADJ store Rib = comlev1_kpp  CADJ store Rib = comlev1_kpp
414  CADJ &   , key = ikppkey, shape = (/ (sNx+2*OLx)*(sNy+2*OLy),Nr /)  CADJ &   , key = ikppkey, shape = (/ (sNx+2*OLx)*(sNy+2*OLy),Nr /)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22