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

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

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

revision 1.23 by jmc, Fri Aug 17 19:37:48 2007 UTC revision 1.24 by jmc, Fri Aug 17 21:19:26 2007 UTC
# Line 59  c    & _EXCH_XY_R8( etaN , myThid ) Line 59  c    & _EXCH_XY_R8( etaN , myThid )
59  #endif  #endif
60    
61  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
62    # ifdef ALLOW_AUTODIFF_TAMC
63          CALL EXCH_3D_RL( uVelD, Nr, myThid )
64          CALL EXCH_3D_RL( vVelD, Nr, myThid )
65    # else
66        CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid )        CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid )
67    # endif
68  #endif  #endif
69        IF ( useDynP_inEos_Zc )        IF ( useDynP_inEos_Zc )
70       & _EXCH_XYZ_RL( totPhiHyd , myThid )       & _EXCH_XYZ_RL( totPhiHyd , myThid )
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22