/[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.13 by heimbach, Tue Nov 12 20:45:41 2002 UTC revision 1.14 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 184  c     vRef   (nx,ny)       - Reference m Line 184  c     vRef   (nx,ny)       - Reference m
184        _KPP_RL vRef  ( ibot:itop    , jbot:jtop                    )        _KPP_RL vRef  ( ibot:itop    , jbot:jtop                    )
185  #endif /* KPP_ESTIMATE_UREF */  #endif /* KPP_ESTIMATE_UREF */
186                
187        _KPP_RL tempvar1, tempvar2        _KPP_RL tempvar2
188        integer i, j, k, kp1, im1, ip1, jm1, jp1        integer i, j, k, kp1, im1, ip1, jm1, jp1
189    
190  #ifdef KPP_ESTIMATE_UREF  #ifdef KPP_ESTIMATE_UREF
191        _KPP_RL dBdz1, dBdz2, ustarX, ustarY        _KPP_RL tempvar1, dBdz1, dBdz2, ustarX, ustarY
192  #endif  #endif
193    
194  c     Check to see if new vertical mixing coefficient should be computed now?  c     Check to see if new vertical mixing coefficient should be computed now?
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22