76 |
_EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
_EXCH_XYZ_R8(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
77 |
ENDDO |
ENDDO |
78 |
|
|
79 |
C Read historical tendancies as consecutive records |
C Read historical tendencies as consecutive records |
80 |
DO iTracer=1,PTRACERS_num |
DO iTracer=1,PTRACERS_num |
81 |
iRec = iTracer + PTRACERS_num |
iRec = iTracer + PTRACERS_num |
82 |
CALL READ_REC_3D_RL( fn, prec, Nr, |
CALL READ_REC_3D_RL( fn, prec, Nr, |
93 |
ENDDO |
ENDDO |
94 |
|
|
95 |
ELSE |
ELSE |
96 |
C Read fields & tendancies (needed for AB) as consecutive records, |
C Read fields & tendencies (needed for AB) as consecutive records, |
97 |
C one tracer after the other, only for tracers "InUse". Note: |
C one tracer after the other, only for tracers "InUse". Note: |
98 |
C this allow to restart from a pickup with a different number of |
C this allow to restart from a pickup with a different number of |
99 |
C tracers, with write_pickup dumping all of them (PTRACERS_num). |
C tracers, with write_pickup dumping all of them (PTRACERS_num). |