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

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

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

revision 1.8 by adcroft, Tue May 18 18:01:12 1999 UTC revision 1.9 by adcroft, Thu Aug 26 17:47:37 1999 UTC
# Line 51  C     I, J, K - Loop counters Line 51  C     I, J, K - Loop counters
51         DO i=iMin,iMax         DO i=iMin,iMax
52          KappaRT(i,j,k) = maskC(i,j)*maskUp(i,j)*          KappaRT(i,j,k) = maskC(i,j)*maskUp(i,j)*
53       &      (       &      (
54         &         KappaRT(i,j,k)
55  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
56       &         KPPdiffKzT(i,j,k,bi,bj)       &       + KPPdiffKzT(i,j,k,bi,bj)
57  #else  #else
58       &         diffKrT       &       + diffKrT
59  #endif  #endif
60       &       + KapGM(i,j)*K33(i,j,k)       &       + KapGM(i,j)*K33(i,j,k)
61       &      )       &      )
# Line 65  C     I, J, K - Loop counters Line 66  C     I, J, K - Loop counters
66         DO i=iMin,iMax         DO i=iMin,iMax
67          KappaRS(i,j,k) = maskC(i,j)*maskUp(i,j)*          KappaRS(i,j,k) = maskC(i,j)*maskUp(i,j)*
68       &      (       &      (
69         &         KappaRS(i,j,k)
70  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
71       &         KPPdiffKzS(i,j,k,bi,bj)       &       + KPPdiffKzS(i,j,k,bi,bj)
72  #else  #else
73       &         diffKrS       &       + diffKrS
74  #endif  #endif
75       &       + KapGM(i,j)*K33(i,j,k)       &       + KapGM(i,j)*K33(i,j,k)
76       &      )       &      )
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22