pkg/dic/DIC_LOAD.h

63d67d9eeb Jean*0001 C--   COMMON /DIC_LOAD/
                0002 C     DIC_ldRec     :: time-record currently loaded (in temp arrays *[1])
9e77a98ea8 Jean*0003 C     chlinput      :: chlorophyll climatology input field [mg/m3]
63d67d9eeb Jean*0004
                0005       COMMON /DIC_LOAD_I/ DIC_ldRec
                0006       COMMON /DIC_LOAD_RS/
a1d0e455fd Hann*0007      &    dicwind0, dicwind1, ice0, ice1, atmosp0, atmosp1,
2e3e8c330d Jona*0008      &    silicaSurf0, silicaSurf1
                0009 #ifdef DIC_CALCITE_SAT
                0010      &  , silicaDeep0, silicaDeep1
                0011 #endif
9b8a71f139 Step*0012 #ifdef READ_PAR
a1d0e455fd Hann*0013      &  , par0, par1
9b8a71f139 Step*0014 #endif
29ad036528 Step*0015 #ifdef ALLOW_FE
a1d0e455fd Hann*0016      &  , feinput0, feinput1
29ad036528 Step*0017 #endif
9e77a98ea8 Jean*0018 #ifdef LIGHT_CHL
a1d0e455fd Hann*0019      &  , chlinput
9e77a98ea8 Jean*0020 #endif
63d67d9eeb Jean*0021
                0022       INTEGER DIC_ldRec(nSx,nSy)
a1d0e455fd Hann*0023       _RS dicwind0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       _RS dicwind1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0025       _RS ice0       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0026       _RS ice1       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0027       _RS atmosp0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0028       _RS atmosp1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0029       _RS silicaSurf0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0030       _RS silicaSurf1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
2e3e8c330d Jona*0031 #ifdef DIC_CALCITE_SAT
a1d0e455fd Hann*0032       _RS silicaDeep0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0033       _RS silicaDeep1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
2e3e8c330d Jona*0034 #endif
9b8a71f139 Step*0035 #ifdef READ_PAR
a1d0e455fd Hann*0036       _RS par0       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0037       _RS par1       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
9b8a71f139 Step*0038 #endif
29ad036528 Step*0039 #ifdef ALLOW_FE
a1d0e455fd Hann*0040       _RS feinput0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0041       _RS feinput1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29ad036528 Step*0042 #endif
9e77a98ea8 Jean*0043 #ifdef LIGHT_CHL
a1d0e455fd Hann*0044       _RS chlinput   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
9e77a98ea8 Jean*0045 #endif
29ad036528 Step*0046
3e96773d2a Ed H*0047 CEH3 ;;; Local Variables: ***
                0048 CEH3 ;;; mode:fortran ***
                0049 CEH3 ;;; End: ***