Symbol Description Uses
d1 Temp. for hold difference 58


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3843 TRBLEN 
      _RL rf1,rf2,e5,d4,d1,rfc,ricr,alpha,dzcnv,xl0cnv,xl0min
./pkg/fizhi/fizhi_turb.F 4170 TRBITP 
      _RL rf1,rf2,e5,d4,d1,rfc,ricr
./pkg/fizhi/fizhi_turb.F 4289 TRBL20 
      _RL b1,b2,d3,rf1,rf2,d3b2,d2,e5,d4,d1,d1half,d2half
./pkg/fizhi/fizhi_utils.F 222 QSAT 
      _RL d0, d1, d2, d3, d4, d5, d6
./pkg/fizhi/fizhi_utils.F 278 QSAT 
      parameter ( d1 = 0.401390832e+00 * esfac )
./pkg/fizhi/fizhi_utils.F 347 QSAT 
       qx = d0+T*(d1+T*(d2+T*(d3+T*(d4+T*(d5+T*d6)))))
./pkg/generic_advdiff/gad_dst3_adv_r.F 104 GAD_DST3_ADV_R 
         psiM=d0+d1*thetaM
./pkg/generic_advdiff/gad_dst3_adv_r.F 114 GAD_DST3_ADV_R 
     &       *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_r.F 116 GAD_DST3_ADV_R 
     &       *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_r.F 59 GAD_DST3_ADV_R 
      _RL Rjm,Rj,Rjp,cfl,d0,d1
./pkg/generic_advdiff/gad_dst3_adv_r.F 88 GAD_DST3_ADV_R 
        d1=(1.-cfl*cfl)*oneSixth
./pkg/generic_advdiff/gad_dst3_adv_r.F 96 GAD_DST3_ADV_R 
         psiP=d0+d1*thetaP
./pkg/generic_advdiff/gad_dst3_adv_x.F 103 GAD_DST3_ADV_X 
         psiM=d0+d1*thetaM
./pkg/generic_advdiff/gad_dst3_adv_x.F 113 GAD_DST3_ADV_X 
     &      *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_x.F 115 GAD_DST3_ADV_X 
     &      *( Tracer( i ,j) - (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_x.F 59 GAD_DST3_ADV_X 
      _RL Rjm,Rj,Rjp,uCFL,d0,d1
./pkg/generic_advdiff/gad_dst3_adv_x.F 87 GAD_DST3_ADV_X 
        d1=(1.-uCFL*uCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3_adv_x.F 95 GAD_DST3_ADV_X 
         psiP=d0+d1*thetaP
./pkg/generic_advdiff/gad_dst3_adv_y.F 102 GAD_DST3_ADV_Y 
         psiM=d0+d1*thetaM
./pkg/generic_advdiff/gad_dst3_adv_y.F 112 GAD_DST3_ADV_Y 
     &      *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 114 GAD_DST3_ADV_Y 
     &      *( Tracer(i, j ) - (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 58 GAD_DST3_ADV_Y 
      _RL Rjm,Rj,Rjp,vCFL,d0,d1
./pkg/generic_advdiff/gad_dst3_adv_y.F 86 GAD_DST3_ADV_Y 
        d1=(1.-vCFL*vCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3_adv_y.F 94 GAD_DST3_ADV_Y 
         psiP=d0+d1*thetaP
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 101 GAD_DST3FL_ADV_R 
        psiP=d0+d1*thetaP
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 104 GAD_DST3FL_ADV_R 
        psiM=d0+d1*thetaM
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 56 GAD_DST3FL_ADV_R 
      _RL Rjm,Rj,Rjp,wCFL,d0,d1
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 78 GAD_DST3FL_ADV_R 
        d1=(1. _d 0 -wCFL*wCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 37 GAD_DST3FL_ADV_X 
      _RL Rjm,Rj,Rjp,uCFL,d0,d1,psiP,psiM,thetaP,thetaM
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 60 GAD_DST3FL_ADV_X 
        d1=(1. _d 0 -uCFL*uCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 83 GAD_DST3FL_ADV_X 
        psiP=d0+d1*thetaP
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 86 GAD_DST3FL_ADV_X 
        psiM=d0+d1*thetaM
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 37 GAD_DST3FL_ADV_Y 
      _RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 56 GAD_DST3FL_ADV_Y 
        d1=(1. _d 0 -vCFL*vCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 79 GAD_DST3FL_ADV_Y 
        psiP=d0+d1*thetaP
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 82 GAD_DST3FL_ADV_Y 
        psiM=d0+d1*thetaM
./model/src/convective_weights.F 54 CONVECTIVE_WEIGHTS 
      _RL dS,d1,d2
./model/src/convective_weights.F 65 CONVECTIVE_WEIGHTS 
          d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convective_weights.F 67 CONVECTIVE_WEIGHTS 
          dS = d1+d2
./model/src/convective_weights.F 69 CONVECTIVE_WEIGHTS 
          weightB(i,j) = d1/dS
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F 37 OAD_S_DIFFERENT_MULTIPLE 
      _RL  v1, v2, v3, v4, d1, d2, d3
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F 55 OAD_S_DIFFERENT_MULTIPLE 
          d1 = v1-v4
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F 58 OAD_S_DIFFERENT_MULTIPLE 
          IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) )
./verification/OpenAD/code_oad_all/seawater.F 173 SW_ADTG 
      _RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2
./verification/OpenAD/code_oad_all/seawater.F 193 SW_ADTG 
      d1 =  2.7759 _d -12
./verification/OpenAD/code_oad_all/seawater.F 201 SW_ADTG 
     &     + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P
./eesupp/src/diff_phase_multiple.F 41 NO PROCEDURE 
      _RL  v1, v2, v3, v4, d1, d2, d3
./eesupp/src/diff_phase_multiple.F 62 NO PROCEDURE 
          d1 = v1-v4
./eesupp/src/diff_phase_multiple.F 65 NO PROCEDURE 
          IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) )
./eesupp/src/different_multiple.F 40 NO PROCEDURE 
      _RL  v1, v2, v3, v4, d1, d2, d3
./eesupp/src/different_multiple.F 58 NO PROCEDURE 
          d1 = v1-v4
./eesupp/src/different_multiple.F 61 NO PROCEDURE 
          IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) )
./model/src/seawater.F 169 NO PROCEDURE 
      _RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2
./model/src/seawater.F 188 NO PROCEDURE 
      d1 =  2.7759 _d -12
./model/src/seawater.F 196 NO PROCEDURE 
     &     + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P