/[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.8 by jmc, Wed Sep 8 01:50:24 2004 UTC revision 1.9 by mlosch, Thu Sep 16 09:35:11 2004 UTC
# Line 456  C--     Compute MY82 mixing coefficients Line 456  C--     Compute MY82 mixing coefficients
456          ENDIF          ENDIF
457  #endif /* ALLOW_MY82 */  #endif /* ALLOW_MY82 */
458    
459    #ifdef  ALLOW_GGL90
460    C--     Compute GGL90 mixing coefficients
461            IF (useGGL90) THEN
462    #ifdef ALLOW_DEBUG
463              IF ( debugLevel .GE. debLevB )
464         &     CALL DEBUG_CALL('GGL90_CALC',myThid)
465    #endif
466              CALL GGL90_CALC(
467         I                  bi, bj, myTime, myThid )
468            ENDIF
469    #endif /* ALLOW_GGL90 */
470    
471  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
472  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
473  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.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22