eesupp/inc/CUMULSUM.h

ddae77e83e Jean*0001 CBOP
                0002 C     !ROUTINE: CUMULSUM.h
                0003 C     !INTERFACE:
                0004 C     include "CUMULSUM.h"
                0005 C     !DESCRIPTION:
                0006 C     *==========================================================*
                0007 C     | CUMULSUM.h
                0008 C     | o Globals used by Fortran CUMULSUM\_TILE routine.
                0009 C     *==========================================================*
                0010 C     *==========================================================*
                0011 CEOP
                0012
                0013 C     shareBufCS2_R8 :: holds tile increment along X direction (1rst index=1)
                0014 C                       and along Y direction (1rst index=2) (CUMULSUM input)
                0015 C     shareBufCS1_R8 :: holds tile cumulated sum at tile origin (i,j)=1,1
                0016       COMMON  / CUMULSUM_R8 /  shareBufCS1_R8, shareBufCS2_R8
                0017       Real*8  shareBufCS1_R8  (nSx,nSy)
                0018       Real*8  shareBufCS2_R8(2,nSx,nSy)
                0019
                0020 CEH3 ;;; Local Variables: ***
                0021 CEH3 ;;; mode:fortran ***
                0022 CEH3 ;;; End: ***