/[MITgcm]/MITgcm/pkg/ggl90/ggl90_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_calc.F

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

revision 1.2 by mlosch, Mon Sep 27 08:02:04 2004 UTC revision 1.3 by jmc, Sun Oct 17 23:11:59 2004 UTC
# Line 365  C     Eq. (11), (18) and (21) Line 365  C     Eq. (11), (18) and (21)
365           KappaH = KappaM/TKEPrandtlNumber(I,J,K)           KappaH = KappaM/TKEPrandtlNumber(I,J,K)
366  C     Set a minium (= background) value  C     Set a minium (= background) value
367           KappaM = MAX(KappaM,viscAr)           KappaM = MAX(KappaM,viscAr)
368           KappaH = MAX(KappaH,diffKrT)           KappaH = MAX(KappaH,diffKrNrT(k))
369  C     Set a maximum and mask land point  C     Set a maximum and mask land point
370           GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax)           GGL90viscAr(I,J,K,bi,bj) = MIN(KappaM,GGL90viscMax)
371       &        * maskC(I,J,K,bi,bj)       &        * maskC(I,J,K,bi,bj)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22