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

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

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

revision 1.14 by heimbach, Fri Sep 17 23:02:01 2004 UTC revision 1.15 by dfer, Tue Jan 30 15:17:52 2007 UTC
# Line 57  C     I, J - Loop counters Line 57  C     I, J - Loop counters
57  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
58        _RL uTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL uTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
59  #endif  #endif
60    #ifdef ALLOW_DIAGNOSTICS
61          LOGICAL  DIAGNOSTICS_IS_ON
62          EXTERNAL DIAGNOSTICS_IS_ON
63          _RL tmp1k(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
64    #endif
65    
66  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
67            act0 = tracerIdentity - 1            act0 = tracerIdentity - 1
# Line 173  CADJ &     comlev1_gmredi_k_gad, key=kke Line 178  CADJ &     comlev1_gmredi_k_gad, key=kke
178          ENDDO          ENDDO
179         ENDDO         ENDDO
180        ENDIF        ENDIF
181    
182    #ifdef ALLOW_DIAGNOSTICS
183    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
184          IF ( useDiagnostics
185         &     .AND. DIAGNOSTICS_IS_ON('GM_ubT  ', myThid )
186         &     .AND. tracerIdentity .EQ. 1) THEN
187           kp1 = MIN(k+1,Nr)
188           maskp1 = 1.
189           IF (k.GE.Nr) maskp1 = 0.
190           DO j=jMin,jMax
191            DO i=iMin,iMax
192             tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
193         &                                -GM_PsiX(i,j,k,bi,bj) )
194         &                               *maskW(i,j,k,bi,bj)
195         &               *op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj))
196            ENDDO
197           ENDDO
198           CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT  ', k,1,2,bi,bj,myThid)
199    
200          ENDIF
201    #endif /* ALLOW_DIAGNOSTICS */
202    
203  #endif /* GM_BOLUS_ADVEC */  #endif /* GM_BOLUS_ADVEC */
204    
205        ENDIF        ENDIF
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22