/[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.93 by heimbach, Thu Sep 16 20:10:22 2010 UTC revision 1.94 by dimitri, Thu Oct 7 00:22:50 2010 UTC
# Line 780  C--     Calculate Downsloping Flow for D Line 780  C--     Calculate Downsloping Flow for D
780          ENDIF          ENDIF
781  #endif /* ALLOW_DOWN_SLOPE */  #endif /* ALLOW_DOWN_SLOPE */
782    
783    #ifdef ALLOW_MYPACKAGE
784            IF ( useMYPACKAGE ) THEN
785             CALL MYPACKAGE_CALC_RHS(
786         I        bi, bj, myTime, myIter, myThid )
787            ENDIF
788    #endif /* ALLOW_MYPACKAGE */
789    
790  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
791  C---  if fluid Is Water: end  C---  if fluid Is Water: end
792          ENDIF          ENDIF
Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94
  ViewVC Help
Powered by ViewVC 1.1.22