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	mmazloff	1.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: ***