/[MITgcm]/MITgcm/tools/OAD_support/ad_inline.F
ViewVC logotype

Diff of /MITgcm/tools/OAD_support/ad_inline.F

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

revision 1.3 by utke, Fri Dec 21 16:18:40 2012 UTC revision 1.4 by jahn, Wed Apr 24 14:55:24 2013 UTC
# Line 811  C $OpenAD$ INLINE DECLS Line 811  C $OpenAD$ INLINE DECLS
811          implicit none          implicit none
812          logical, dimension(:,:) :: b          logical, dimension(:,:) :: b
813  C $OpenAD$ END DECLS  C $OpenAD$ END DECLS
814  u#ifdef OAD_DEBUG_CP  #ifdef OAD_DEBUG_CP
815          write(standardmessageunit,*)'OAD: cp write b ', b(1,1)          write(standardmessageunit,*)'OAD: cp write b ', b(1,1)
816  #endif  #endif
817          write(unit=cp_io_unit) b          write(unit=cp_io_unit) b
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22