/[MITgcm]/MITgcm/pkg/gmredi/gmredi_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_calc_diff.F

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

revision 1.10 by jahn, Fri Jun 26 23:10:09 2009 UTC revision 1.11 by mlosch, Mon Dec 12 15:34:08 2011 UTC
# Line 56  C-    do all levels : Line 56  C-    do all levels :
56            DO i=iMin,iMax            DO i=iMin,iMax
57             IF (tracerIdentity .LT. GAD_TR1) THEN             IF (tracerIdentity .LT. GAD_TR1) THEN
58              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
59         &           *maskInC(i,j,bi,bj)
60             ELSE             ELSE
61  #ifdef ALLOW_LONGSTEP  #ifdef ALLOW_LONGSTEP
62              KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj)              KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj)
63  #else  #else
64              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
65  #endif  #endif
66         &           *maskInC(i,j,bi,bj)
67             ENDIF             ENDIF
68            ENDDO            ENDDO
69           ENDDO           ENDDO
# Line 73  C-    do level k=kArg only : Line 75  C-    do level k=kArg only :
75            DO i=iMin,iMax            DO i=iMin,iMax
76             IF (tracerIdentity .LT. GAD_TR1) THEN             IF (tracerIdentity .LT. GAD_TR1) THEN
77              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
78         &           *maskInC(i,j,bi,bj)
79             ELSE             ELSE
80  #ifdef ALLOW_LONGSTEP  #ifdef ALLOW_LONGSTEP
81              KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj)              KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj)
82  #else  #else
83              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)              KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
84  #endif  #endif
85         &           *maskInC(i,j,bi,bj)
86             ENDIF             ENDIF
87            ENDDO            ENDDO
88           ENDDO           ENDDO
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22