bling/pkg/BLING_LOAD.h

C $Header:  $
C $Name:  $

C--   COMMON /BLING_LOAD/
C     BLING_ldRec     :: time-record currently loaded (in temp arrays *[1])

      COMMON /BLING_LOAD_I/ BLING_ldRec
      COMMON /BLING_LOAD_RS/
     &    dicwind0, dicwind1, ice0, ice1, 
     &    atmosp0, atmosp1, silica0, silica1,
     &    feinput0, feinput1

      INTEGER BLING_ldRec(nSx,nSy)
      _RS dicwind0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS dicwind1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS ice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS ice1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS silica0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS silica1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: $
2	C $Name: $
3
4	C-- COMMON /BLING_LOAD/
5	C BLING_ldRec :: time-record currently loaded (in temp arrays *[1])
6
7	COMMON /BLING_LOAD_I/ BLING_ldRec
8	COMMON /BLING_LOAD_RS/
9	& dicwind0, dicwind1, ice0, ice1,
10	& atmosp0, atmosp1, silica0, silica1,
11	& feinput0, feinput1
12
13	INTEGER BLING_ldRec(nSx,nSy)
14	_RS dicwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
15	_RS dicwind1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
16	_RS ice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
17	_RS ice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18	_RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19	_RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20	_RS silica0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21	_RS silica1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22	_RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23	_RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24
25	CEH3 ;;; Local Variables: ***
26	CEH3 ;;; mode:fortran ***
27	CEH3 ;;; End: ***