/[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.44 by jmc, Thu May 3 21:40:48 2007 UTC revision 1.45 by jmc, Fri May 4 18:27:14 2007 UTC
# Line 597  C--   end bi,bj loops. Line 597  C--   end bi,bj loops.
597         ENDDO         ENDDO
598        ENDDO        ENDDO
599    
600    #ifdef  ALLOW_KPP
601          IF (useKPP) THEN
602            CALL KPP_DO_EXCH( myThid )
603          ENDIF
604    #endif  /* ALLOW_KPP */
605    
606  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
607        IF ( fluidIsWater .AND. useDiagnostics ) THEN        IF ( fluidIsWater .AND. useDiagnostics ) THEN
608          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22