Symbol Description Uses
parfrac fraction of Qsw avail for photosynthesis 13



File Line number Procedure Code
./pkg/bling/BLING_VARS.h 264 NO PROCEDURE
     &                     parfrac,
./pkg/bling/BLING_VARS.h 340 NO PROCEDURE
      _RL parfrac
./pkg/bling/bling_light.F 138 BLING_LIGHT
         fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac
./pkg/bling/bling_light.F 155 BLING_LIGHT
     &                 -parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj))
./pkg/bling/bling_readparms.F 114 BLING_READPARMS
     &                     parfrac,
./pkg/bling/bling_readparms.F 279 BLING_READPARMS
      parfrac              = 0.4 _d 0
./pkg/dic/DIC_VARS.h 132 NO PROCEDURE
     &     parfrac, k0, kchl, lit0,
./pkg/dic/DIC_VARS.h 187 NO PROCEDURE
      _RL k0, kchl, parfrac, lit0
./pkg/dic/bio_export.F 86 BIO_EXPORT
        lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/dic/dic_readparms.F 120 DIC_READPARMS
       parfrac     = 0.4 _d 0
./pkg/dic/dic_readparms.F 240 DIC_READPARMS
       CALL WRITE_0D_RL( parfrac, INDEX_NONE,'parfrac =',
./pkg/dic/dic_readparms.F 90 DIC_READPARMS
     & parfrac, k0, lit0, KPO4, KFE, kchl,
./pkg/dic/insol.F 82 INSOL
          fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac