52 |
& PTRACERS_diffK4, |
& PTRACERS_diffK4, |
53 |
& PTRACERS_diffKr, |
& PTRACERS_diffKr, |
54 |
& PTRACERS_diffKrNr, |
& PTRACERS_diffKrNr, |
55 |
|
& PTRACERS_ref, |
56 |
& PTRACERS_useGMRedi, |
& PTRACERS_useGMRedi, |
57 |
& PTRACERS_useKPP, |
& PTRACERS_useKPP, |
58 |
& PTRACERS_Iter0, |
& PTRACERS_Iter0, |
86 |
PTRACERS_diffKr(iTracer)=UNSET_RL |
PTRACERS_diffKr(iTracer)=UNSET_RL |
87 |
DO k=1,Nr |
DO k=1,Nr |
88 |
PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k) |
PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k) |
89 |
|
PTRACERS_ref (k,iTracer)=0. _d 0 |
90 |
ENDDO |
ENDDO |
91 |
PTRACERS_useGMRedi(iTracer)=useGMRedi |
PTRACERS_useGMRedi(iTracer)=useGMRedi |
92 |
PTRACERS_useKPP(iTracer)=useKPP |
PTRACERS_useKPP(iTracer)=useKPP |