| 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 |
77 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (tRef(kp1) - tRef(k))*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 |
93 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (sRef(kp1) - sRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
95 |
TRACERS_IIGW_CORRECTION |
& (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN |