/[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.41 by heimbach, Wed Apr 18 19:54:06 2007 UTC revision 1.42 by heimbach, Tue Apr 24 18:45:11 2007 UTC
# Line 305  cph although some of these are re-initia Line 305  cph although some of these are re-initia
305             VisbeckK(i,j,bi,bj)   = 0. _d 0             VisbeckK(i,j,bi,bj)   = 0. _d 0
306  #  endif  #  endif
307  # endif /* ALLOW_GMREDI */  # endif /* ALLOW_GMREDI */
308    # ifdef ALLOW_KPP
309               KPPdiffKzS(i,j,k,bi,bj)  = 0. _d 0
310               KPPdiffKzT(i,j,k,bi,bj)  = 0. _d 0
311    # endif /* ALLOW_KPP */
312  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
313            ENDDO            ENDDO
314           ENDDO           ENDDO
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22