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

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

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

revision 1.5 by jmc, Mon Jul 26 20:18:14 2004 UTC revision 1.6 by mlosch, Thu Sep 2 09:13:49 2004 UTC
# Line 424  CADJ &                 = comlev1_bibj, k Line 424  CADJ &                 = comlev1_bibj, k
424    
425  #endif  /* ALLOW_KPP */  #endif  /* ALLOW_KPP */
426    
427    #ifdef  ALLOW_PP81
428    C--     Compute PP81 mixing coefficients
429            IF (usePP81) THEN
430    #ifdef ALLOW_DEBUG
431              IF ( debugLevel .GE. debLevB )
432         &     CALL DEBUG_CALL('PP81_CALC',myThid)
433    #endif
434              CALL PP81_CALC(
435         I                  bi, bj, myTime, myThid )
436            ENDIF
437    #endif /* ALLOW_PP81 */
438    
439    #ifdef  ALLOW_MY82
440    C--     Compute MY82 mixing coefficients
441            IF (useMY82) THEN
442    #ifdef ALLOW_DEBUG
443              IF ( debugLevel .GE. debLevB )
444         &     CALL DEBUG_CALL('MY82_CALC',myThid)
445    #endif
446              CALL MY82_CALC(
447         I                  bi, bj, myTime, myThid )
448            ENDIF
449    #endif /* ALLOW_MY82 */
450    
451  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
452  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
453  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22