/[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.31 by jmc, Wed Apr 6 18:41:31 2005 UTC revision 1.32 by jmc, Sun May 15 03:04:56 2005 UTC
# Line 114  C !USES: =============================== Line 114  C !USES: ===============================
114        integer ikppkey        integer ikppkey
115  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
116    
117        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
118        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
119    
120  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
121  c Routine arguments  c Routine arguments
# Line 211  c     vRef   (nx,ny)       - Reference m Line 211  c     vRef   (nx,ny)       - Reference m
211  CEOP  CEOP
212    
213  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?
214        IF ( DIFF_BASE_MULTIPLE(baseTime,kpp_freq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(kpp_freq,myTime,deltaTClock)
215       1     .OR. myTime .EQ. startTime ) THEN       1     .OR. myTime .EQ. startTime ) THEN
216                    
217  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22