/[MITgcm]/MITgcm/pkg/exf/exf_getffields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_getffields.F

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

revision 1.2.6.5 by dimitri, Sun Feb 23 01:42:40 2003 UTC revision 1.2.6.6 by dimitri, Fri Feb 28 09:34:05 2003 UTC
# Line 324  cdm? can olx, oly be eliminated? Line 324  cdm? can olx, oly be eliminated?
324                 max3 = nTx*nTy                 max3 = nTx*nTy
325                 act4 = ikey_dynamics - 1                 act4 = ikey_dynamics - 1
326    
327                 ikey_1 = i                 ikey_1 = i+olx
328       &              + sNx*(j-1)       &              + sNx*(j+oly-1)
329       &              + sNx*sNy*act1       &              + sNx*sNy*act1
330       &              + sNx*sNy*max1*act2       &              + sNx*sNy*max1*act2
331       &              + sNx*sNy*max1*max2*act3       &              + sNx*sNy*max1*max2*act3
# Line 451  CADJ STORE sh     = comlev1_exf_1, key = Line 451  CADJ STORE sh     = comlev1_exf_1, key =
451    
452  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
453                     ikey_2 = iter                     ikey_2 = iter
454       &                  + niter_bulk*(i-1)       &                  + niter_bulk*(i+olx-1)
455       &                  + sNx*niter_bulk*(j-1)       &                  + sNx*niter_bulk*(j+oly-1)
456       &                  + sNx*niter_bulk*sNy*act1       &                  + sNx*niter_bulk*sNy*act1
457       &                  + sNx*niter_bulk*sNy*max1*act2       &                  + sNx*niter_bulk*sNy*max1*act2
458       &                  + sNx*niter_bulk*sNy*max1*max2*act3       &                  + sNx*niter_bulk*sNy*max1*max2*act3
Legend:
Removed from v.1.2.6.5  
changed lines
  Added in v.1.2.6.6
  ViewVC Help
Powered by ViewVC 1.1.22