Symbol Description Uses
fugf 22



File Line number Procedure Code
./pkg/bling/BLING_VARS.h 34 NO PROCEDURE
     &                     ak1p,ak2p,ak3p,aksi, fugf,
./pkg/bling/BLING_VARS.h 49 NO PROCEDURE
      _RL  fugf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/bling/bling_airseaflux.F 171 BLING_AIRSEAFLUX
     I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/bling/bling_airseaflux.F 221 BLING_AIRSEAFLUX
     &            pCO2(i,j,bi,bj)*fugf(i,j,bi,bj)
./pkg/bling/bling_carbon_chem.F 1077 CARBON_COEFFS_PRESSURE_DEP
            fugf(i,j,bi,bj)=0.d0
./pkg/bling/bling_carbon_chem.F 605 CARBON_COEFFS
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) *
./pkg/bling/bling_carbon_chem.F 609 CARBON_COEFFS
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/bling/bling_carbon_chem.F 704 CARBON_COEFFS
            fugf(i,j,bi,bj)=0. _d 0
./pkg/bling/bling_carbon_chem.F 902 CARBON_COEFFS_PRESSURE_DEP
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * 
./pkg/bling/bling_carbon_chem.F 906 CARBON_COEFFS_PRESSURE_DEP
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/bling/bling_carbonate_init.F 138 BLING_CARBONATE_INIT
          fugf(i,j,bi,bj)=0. _d 0
./pkg/bling/bling_carbonate_init.F 206 BLING_CARBONATE_INIT
     I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/bling/bling_carbonate_sys.F 138 BLING_CARBONATE_SYS
     I          ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj),
./pkg/dic/DIC_VARS.h 26 NO PROCEDURE
     &                     ak1p,ak2p,ak3p,aksi, fugf,
./pkg/dic/DIC_VARS.h 41 NO PROCEDURE
      _RL  fugf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/dic/calcite_saturation.F 116 CALCITE_SATURATION
     I          ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj),
./pkg/dic/carbon_chem.F 615 CARBON_COEFFS
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/dic/carbon_chem.F 708 CARBON_COEFFS
            fugf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing.F 167 DIC_SURFFORCING
     I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 218 DIC_SURFFORCING
     &            pCO2(i,j,bi,bj)*fugf(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F 145 DIC_SURFFORCING_INIT
          fugf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 237 DIC_SURFFORCING_INIT
     I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),