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

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

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

revision 1.10 by heimbach, Mon Jun 12 13:38:50 2000 UTC revision 1.11 by heimbach, Mon Sep 11 20:50:39 2000 UTC
# Line 61  C--    Beginning of forward sweep (top l Line 61  C--    Beginning of forward sweep (top l
61        ENDIF        ENDIF
62    
63  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
64  CADJ store bet   = comlev1_impl3d, key = idkey  CADJ store bet                 = comlev1_impl, key = idkey
65  CADJ store gXNm1 = comlev1_impl2d, key = idkey  CADJ store gXNm1(:,:,:,bi,bj)  = comlev1_impl, key = idkey
66  #endif  #endif
67    
68         DO j=jMin,jMax         DO j=jMin,jMax
# Line 92  C--   Middle of forward sweep Line 92  C--   Middle of forward sweep
92          ENDDO          ENDDO
93    
94  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
95  CADJ store ckm1 = comlev1_impl3d, key = kkey  CADJ store ckm1, bet = comlev1_impl_k, key = kkey
 CADJ store bet  = comlev1_impl3d, key = kkey  
96  #endif  #endif
97    
98          DO j=jMin,jMax          DO j=jMin,jMax
# Line 110  CADJ store bet  = comlev1_impl3d, key = Line 109  CADJ store bet  = comlev1_impl3d, key =
109          ENDDO          ENDDO
110    
111  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
112  CADJ store bet = comlev1_impl3d, key = kkey  CADJ store bet                    = comlev1_impl_k, key = kkey
113  CADJ store gXNm1(:,:,k-1:k,bi,bj) = comlev1_impl3d, key = kkey  CADJ store gXNm1(:,:,k-1:k,bi,bj) = comlev1_impl_k, key = kkey
114  #endif  #endif
115    
116          DO j=jMin,jMax          DO j=jMin,jMax
# Line 125  CADJ store gXNm1(:,:,k-1:k,bi,bj) = coml Line 124  CADJ store gXNm1(:,:,k-1:k,bi,bj) = coml
124    
125        ENDIF        ENDIF
126    
127    
128        IF (Nr.GT.1) THEN        IF (Nr.GT.1) THEN
129    
130  C--    End of forward sweep (bottom level)  C--    End of forward sweep (bottom level)
131         DO j=jMin,jMax         DO j=jMin,jMax
132          DO i=iMin,iMax          DO i=iMin,iMax
# Line 137  C--    End of forward sweep (bottom leve Line 138  C--    End of forward sweep (bottom leve
138         ENDDO         ENDDO
139    
140  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
141  CADJ store ckm1 = comlev1_impl2d, key = idkey  CADJ store ckm1 = comlev1_impl, key = idkey
142  CADJ store a,b  = comlev1_impl2d, key = idkey  CADJ store a,b  = comlev1_impl, key = idkey
143  CADJ store bet  = comlev1_impl2d, key = idkey  CADJ store bet  = comlev1_impl, key = idkey
144  #endif  #endif
145    
146         DO j=jMin,jMax         DO j=jMin,jMax
# Line 155  CADJ store bet  = comlev1_impl2d, key = Line 156  CADJ store bet  = comlev1_impl2d, key =
156         ENDDO         ENDDO
157    
158  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
159  CADJ store gXnm1 = comlev1_impl2d, key = idkey  CADJ store a,bet              = comlev1_impl, key = idkey
160    CADJ store gXnm1(:,:,:,bi,bj) = comlev1_impl, key = idkey
161  #endif  #endif
162    
163         DO j=jMin,jMax         DO j=jMin,jMax
# Line 166  CADJ store gXnm1 = comlev1_impl2d, key = Line 168  CADJ store gXnm1 = comlev1_impl2d, key =
168         ENDDO         ENDDO
169    
170  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
171  CADJ store gam                = comlev1_impl2d, key = idkey  CADJ store gam   = comlev1_impl, key = idkey
172  #endif  #endif
173    
174  C--    Backward sweep  C--    Backward sweep
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22