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

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

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

revision 1.29 by heimbach, Sat Jun 30 14:09:57 2007 UTC revision 1.30 by dfer, Fri Sep 7 14:27:19 2007 UTC
# Line 782  CADJ STORE taperFct(:,:)     = comlev1_b Line 782  CADJ STORE taperFct(:,:)     = comlev1_b
782    
783  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
784         IF (doDiagRediFlx) THEN         IF (doDiagRediFlx) THEN
785  c       km1 = MAX(k-1,1)          km1 = MAX(k-1,1)
786          DO j=1,sNy+1          DO j=1,sNy+1
787           DO i=1,sNx           DO i=1,sNx
788  C         store in tmp1k Kvz_Redi  C         store in tmp1k Kvz_Redi
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22