18 |
C \ev |
C \ev |
19 |
CEOP |
CEOP |
20 |
|
|
21 |
C ptracertave :: tracer values |
C ptracerFluxtave: surface ptracer flux (mol/m2/s, >0 for increase in ptracer) |
22 |
|
C ptracertave : tracer values (mol/m-3) |
23 |
|
|
24 |
COMMON /TAVE_PTRACER/ |
COMMON /TAVE_PTRACER/ |
25 |
& ptracertave, ptracer_half |
& ptracerFluxtave, ptracertave, |
26 |
_RL ptracertave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
& ptracer_half , ptracer_full |
27 |
& PTRACERS_num) |
_RL ptracerFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy, |
28 |
_RL ptracer_half(Nr,nSx,nSy) |
& PTRACERS_num) |
29 |
|
_RL ptracertave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
30 |
|
& PTRACERS_num) |
31 |
|
_RL ptracer_half(Nr,nSx,nSy), ptracer_full(Nr,nSx,nSy) |
32 |
|
|
33 |
#endif /* ALLOW_TIMEAVE */ |
#endif /* ALLOW_TIMEAVE */ |
34 |
#endif |
#endif |