Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |