forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
CUMULSUM.h
24 lines (22 loc) · 927 Bytes
/
CUMULSUM.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
C $Header: /u/gcmpack/MITgcm/eesupp/inc/CUMULSUM.h,v 1.1 2011/07/09 21:56:55 jmc Exp $
C $Name: $
CBOP
C !ROUTINE: CUMULSUM.h
C !INTERFACE:
C include "CUMULSUM.h"
C !DESCRIPTION:
C *==========================================================*
C | CUMULSUM.h
C | o Globals used by Fortran CUMULSUM\_TILE routine.
C *==========================================================*
C *==========================================================*
CEOP
C shareBufCS2_R8 :: holds tile increment along X direction (1rst index=1)
C and along Y direction (1rst index=2) (CUMULSUM input)
C shareBufCS1_R8 :: holds tile cumulated sum at tile origin (i,j)=1,1
COMMON / CUMULSUM_R8 / shareBufCS1_R8, shareBufCS2_R8
Real*8 shareBufCS1_R8 (nSx,nSy)
Real*8 shareBufCS2_R8(2,nSx,nSy)
CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***