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

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

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

revision 1.2 by jmc, Thu Nov 21 00:16:55 2013 UTC revision 1.3 by jmc, Wed Nov 27 23:58:25 2013 UTC
# Line 132  C---+----1----+----2----+----3----+----4 Line 132  C---+----1----+----2----+----3----+----4
132         DO i=1-OLx,sNx+OLx         DO i=1-OLx,sNx+OLx
133           fVerT(i,j,1) = 0. _d 0           fVerT(i,j,1) = 0. _d 0
134           fVerT(i,j,2) = 0. _d 0           fVerT(i,j,2) = 0. _d 0
 #ifdef ALLOW_AUTODIFF  
          rTrans(i,j) = 0. _d 0  
 #endif /* ALLOW_AUTODIFF */  
135         ENDDO         ENDDO
136        ENDDO        ENDDO
137    
# Line 147  C---+----1----+----2----+----3----+----4 Line 144  C---+----1----+----2----+----3----+----4
144          kDown= 1+MOD(k,2)          kDown= 1+MOD(k,2)
145    
146  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
 CADJ STORE rtrans(:,:) = comlev1_bibj_k, key=kkey,  
 CADJ &     byte=isbyte,  kind = isbyte  
147  CADJ STORE fVerT(:,:,:) = comlev1_bibj_k, key=kkey,  CADJ STORE fVerT(:,:,:) = comlev1_bibj_k, key=kkey,
148  CADJ &     byte=isbyte,  kind = isbyte  CADJ &     byte=isbyte,  kind = isbyte
149  CADJ STORE gT(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey,  CADJ STORE gT(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22