/[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.98 by jmc, Wed Jan 26 03:46:01 2011 UTC revision 1.99 by jmc, Thu Jan 27 20:34:53 2011 UTC
# Line 788  C--   end bi,bj loops. Line 788  C--   end bi,bj loops.
788         ENDDO         ENDDO
789        ENDDO        ENDDO
790    
791    #ifdef ALLOW_GMREDI
792          IF ( useGMRedi ) THEN
793            CALL GMREDI_DO_EXCH( myTime, myIter, myThid )
794          ENDIF
795    #endif /* ALLOW_GMREDI */
796    
797  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
798        IF (useKPP) THEN        IF (useKPP) THEN
799          CALL KPP_DO_EXCH( myThid )          CALL KPP_DO_EXCH( myThid )
Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99
  ViewVC Help
Powered by ViewVC 1.1.22