/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

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

revision 1.39 by heimbach, Thu Dec 8 15:44:34 2005 UTC revision 1.40 by heimbach, Tue Feb 21 17:20:12 2006 UTC
# Line 325  C-     Advective flux in X Line 325  C-     Advective flux in X
325          ENDDO          ENDDO
326  C  C
327  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
328  cph-test  # ifndef DISABLE_MULTIDIM_ADVECTION
329  CADJ STORE localTij(:,:)  =  CADJ STORE localTij(:,:)  =
330  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte
331  CADJ STORE af(:,:)  =  CADJ STORE af(:,:)  =
332  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte
333    # endif
334  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
335  C  C
336        IF (calc_fluxes_X) THEN        IF (calc_fluxes_X) THEN
# Line 481  C-     Advective flux in Y Line 482  C-     Advective flux in Y
482          ENDDO          ENDDO
483  C  C
484  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
485  cph-test  # ifndef DISABLE_MULTIDIM_ADVECTION
486  CADJ STORE localTij(:,:)  =  CADJ STORE localTij(:,:)  =
487  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte
488  CADJ STORE af(:,:)  =  CADJ STORE af(:,:)  =
489  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte  CADJ &     comlev1_bibj_k_gad_pass, key=passkey, byte=isbyte
490    # endif
491  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
492  C  C
493        IF (calc_fluxes_Y) THEN        IF (calc_fluxes_Y) THEN
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22