/[MITgcm]/MITgcm/model/src/thermodynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/thermodynamics.F

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

revision 1.13 by adcroft, Fri Sep 28 03:36:16 2001 UTC revision 1.14 by jmc, Fri Nov 16 03:25:41 2001 UTC
# Line 151  C     This is currently used by IVDC and Line 151  C     This is currently used by IVDC and
151        INTEGER i, j        INTEGER i, j
152        INTEGER k, km1, kup, kDown        INTEGER k, km1, kup, kDown
153    
 Cjmc : add for phiHyd output <- but not working if multi tile per CPU  
 c     CHARACTER*(MAX_LEN_MBUF) suff  
 c     LOGICAL  DIFFERENT_MULTIPLE  
 c     EXTERNAL DIFFERENT_MULTIPLE  
 Cjmc(end)  
154  CEOP  CEOP
155    
156  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
# Line 445  C note(jmc) : phiHyd=0 at this point but Line 440  C note(jmc) : phiHyd=0 at this point but
440          ENDIF          ENDIF
441  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
442    
443    #ifdef ALLOW_TIMEAVE
444            IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN
445              CALL TIMEAVE_CUMULATE(ConvectCountTave, ConvectCount, Nr,
446         I                               deltaTclock, bi, bj, myThid)
447            ENDIF
448    #endif /* ALLOW_TIMEAVE */
449    
450  #ifndef DISABLE_MULTIDIM_ADVECTION  #ifndef DISABLE_MULTIDIM_ADVECTION
451  C--     Some advection schemes are better calculated using a multi-dimensional  C--     Some advection schemes are better calculated using a multi-dimensional
452  C       method in the absence of any other terms and, if used, is done here.  C       method in the absence of any other terms and, if used, is done here.
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22