/[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.30 by jmc, Sun Oct 17 23:05:09 2004 UTC revision 1.31 by jmc, Wed Apr 6 18:41:31 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 DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
118        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_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 ( DIFFERENT_MULTIPLE(kpp_freq,myTime,myTime-deltaTClock) .OR.        IF ( DIFF_BASE_MULTIPLE(baseTime,kpp_freq,myTime,deltaTClock)
215       1     myTime .EQ. startTime ) THEN       1     .OR. myTime .EQ. startTime ) THEN
216                    
217  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
218  c     prepare input arrays for subroutine "kppmix" to compute  c     prepare input arrays for subroutine "kppmix" to compute
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22