C $Header: /u/gcmpack/MITgcm/pkg/bling/BLING_LOAD.h,v 1.1 2016/05/19 20:29:26 mmazloff Exp $ 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: ***