/[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.48 by dfer, Thu Oct 23 18:13:51 2008 UTC revision 1.49 by heimbach, Fri Feb 13 21:58:36 2009 UTC
# Line 116  C !USES: =============================== Line 116  C !USES: ===============================
116  # include "tamc.h"  # include "tamc.h"
117  # include "tamc_keys.h"  # include "tamc_keys.h"
118  #else /* ALLOW_AUTODIFF_TAMC */  #else /* ALLOW_AUTODIFF_TAMC */
       integer ikppkey  
119  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
120    
121        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 203  cph) Line 202  cph)
202    
203        _RL tempvar2        _RL tempvar2
204        integer i, j, k, kp1, km1, im1, ip1, jm1, jp1        integer i, j, k, kp1, km1, im1, ip1, jm1, jp1
205          integer ikppkey
206    
207  #ifdef KPP_ESTIMATE_UREF  #ifdef KPP_ESTIMATE_UREF
208        _RL tempvar1, dBdz1, dBdz2, ustarX, ustarY        _RL tempvar1, dBdz1, dBdz2, ustarX, ustarY
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22