Symbol Description Uses
D 33


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 318 QSAT 
      _RL T, D, W, QX, DQX
./pkg/fizhi/fizhi_utils.F 364 QSAT 
      D = (P-ERFAC*QX)
./pkg/fizhi/fizhi_utils.F 365 QSAT 
      IF(D.LT.0.) THEN
./pkg/fizhi/fizhi_utils.F 369 QSAT 
       D = 1.0 / D
./pkg/fizhi/fizhi_utils.F 370 QSAT 
       Q = MIN(QX * D,1.0 _d 0)
./pkg/fizhi/fizhi_utils.F 371 QSAT 
       IF (LDQDT)  DQDT = (1.0 + ERFAC*Q) * D * DQX
./pkg/generic_advdiff/gad_os7mp_adv_r.F 178 GAD_OS7MP_ADV_R 
         D = d2p1
./pkg/generic_advdiff/gad_os7mp_adv_r.F 179 GAD_OS7MP_ADV_R 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 183 GAD_OS7MP_ADV_R 
         D = d2
./pkg/generic_advdiff/gad_os7mp_adv_r.F 184 GAD_OS7MP_ADV_R 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 40 GAD_OS7MP_ADV_R 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/generic_advdiff/gad_os7mp_adv_x.F 182 GAD_OS7MP_ADV_X 
         D = d2p1
./pkg/generic_advdiff/gad_os7mp_adv_x.F 183 GAD_OS7MP_ADV_X 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 187 GAD_OS7MP_ADV_X 
         D = d2
./pkg/generic_advdiff/gad_os7mp_adv_x.F 188 GAD_OS7MP_ADV_X 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 42 GAD_OS7MP_ADV_X 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/generic_advdiff/gad_os7mp_adv_y.F 182 GAD_OS7MP_ADV_Y 
         D = d2p1
./pkg/generic_advdiff/gad_os7mp_adv_y.F 183 GAD_OS7MP_ADV_Y 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 187 GAD_OS7MP_ADV_Y 
         D = d2
./pkg/generic_advdiff/gad_os7mp_adv_y.F 188 GAD_OS7MP_ADV_Y 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 42 GAD_OS7MP_ADV_Y 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/opps/opps_calc.F 568 NLOPPS 
      REAL Del,D,dza1,dza2,kd,kd1,Smix,Thmix,PlumeS,PlumeT,PlumeD
./pkg/sbo/sbo_rho.F 25 NO PROCEDURE 
      _RL PLAT,D,C1,P,PR,Q,X,SR,V350P,B
./pkg/sbo/sbo_rho.F 36 NO PROCEDURE 
      D=sin(PLAT)
./pkg/sbo/sbo_rho.F 37 NO PROCEDURE 
      C1=5.92E-3+(D*D)*5.25E-3