Symbol Description Uses
dTr_k 9



File Line number Procedure Code
./model/src/tracers_iigw_correction.F 100 TRACERS_IIGW_CORRECTION
     &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )
./model/src/tracers_iigw_correction.F 49 TRACERS_IIGW_CORRECTION
      _RL     dTr_k, dTrp1
./model/src/tracers_iigw_correction.F 75 TRACERS_IIGW_CORRECTION
       dTr_k = 0. _d 0
./model/src/tracers_iigw_correction.F 76 TRACERS_IIGW_CORRECTION
       IF ( k.GT.1 ) dTr_k = (tRef(k) - tRef(k-1))*rkSign
./model/src/tracers_iigw_correction.F 79 TRACERS_IIGW_CORRECTION
     &     (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN
./model/src/tracers_iigw_correction.F 84 TRACERS_IIGW_CORRECTION
     &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )
./model/src/tracers_iigw_correction.F 91 TRACERS_IIGW_CORRECTION
       dTr_k = 0. _d 0
./model/src/tracers_iigw_correction.F 92 TRACERS_IIGW_CORRECTION
       IF ( k.GT.1 ) dTr_k = (sRef(k) - sRef(k-1))*rkSign
./model/src/tracers_iigw_correction.F 95 TRACERS_IIGW_CORRECTION
     &     (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN