| 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 |