/[MITgcm]/MITgcm/model/src/calc_3d_diffusivity.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_3d_diffusivity.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.19 by jmc, Thu Nov 2 18:00:52 2017 UTC revision 1.20 by jmc, Thu Dec 7 19:41:22 2017 UTC
# Line 324  C-    Increase KappaRTr below surface le Line 324  C-    Increase KappaRTr below surface le
324               tmpFac(i,j) = 0. _d 0               tmpFac(i,j) = 0. _d 0
325               IF ( km.EQ.kSurfC(i,j,bi,bj) .AND.               IF ( km.EQ.kSurfC(i,j,bi,bj) .AND.
326       &            km.LT.kLowC(i,j,bi,bj) ) THEN       &            km.LT.kLowC(i,j,bi,bj) ) THEN
327                 tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,km,bi,bj)                 tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,km,bi,bj)
328               ENDIF               ENDIF
329             ENDDO             ENDDO
330            ENDDO            ENDDO
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22