Symbol Description Uses
ft 37


File Line number Procedure Code
./pkg/dic/dic_surfforcing_init.F 181 DIC_SURFFORCING_INIT 
     I        bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/dic_abiotic_param.F 84 DIC_ABIOTIC_PARAM 
          ft(i,j,bi,bj)=0.d0
./pkg/dic/dic_surfforcing.F 117 DIC_SURFFORCING 
     I        bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/carbon_chem.F 659 CARBON_COEFFS 
           ft(i,j,bi,bj) = 0.000067 * scl/18.9984
./pkg/dic/carbon_chem.F 676 CARBON_COEFFS 
            ft(i,j,bi,bj) = 0.d0
./pkg/dic/DIC_ABIOTIC.h 24 NO PROCEDURE 
     &                     ff,ft,st,bt
./pkg/dic/DIC_ABIOTIC.h 37 NO PROCEDURE 
      _RL  ft(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1006 CLDSCALE 
      _RL   fm,ft,fa,xai,taux
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1090 CLDSCALE 
           ft=(log10(taux)-t1)/dt
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1094 CLDSCALE 
           it=int(ft+1.5)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1106 CLDSCALE 
           ft=ft-float(it-1)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1116 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1117 CLDSCALE 
     *      caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1131 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1132 CLDSCALE 
     *      caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
./pkg/fizhi/fizhi_swrad.F 1005 CLDSCALE 
      _RL   fm,ft,fa,xai,taux
./pkg/fizhi/fizhi_swrad.F 1089 CLDSCALE 
           ft=(log10(taux)-t1)/dt
./pkg/fizhi/fizhi_swrad.F 1093 CLDSCALE 
           it=int(ft+1.5)
./pkg/fizhi/fizhi_swrad.F 1105 CLDSCALE 
           ft=ft-float(it-1)
./pkg/fizhi/fizhi_swrad.F 1115 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1116 CLDSCALE 
     *      caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
./pkg/fizhi/fizhi_swrad.F 1130 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1131 CLDSCALE 
     *      caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)