243 |
clsol(it) = .FALSE. ! Par defaut couche limite avec flux prescrit |
clsol(it) = .FALSE. ! Par defaut couche limite avec flux prescrit |
244 |
ENDDO |
ENDDO |
245 |
|
|
246 |
! Get the parameters for ozone chemistry: |
if (nqmax >= 3) then |
247 |
call read_coefoz |
! Get the parameters for ozone chemistry: |
248 |
|
call read_coefoz |
249 |
|
end if |
250 |
ENDIF |
ENDIF |
251 |
|
|
252 |
! Initialisation du traceur dans le sol (couche limite radonique) |
! Initialisation du traceur dans le sol (couche limite radonique) |
403 |
ENDDO |
ENDDO |
404 |
endif ! rnpb decroissance radioactive |
endif ! rnpb decroissance radioactive |
405 |
|
|
406 |
! Ozone as a tracer: |
if (nqmax >= 3) then |
407 |
call o3_chem(julien, gmtime, t_seri, zmasse, pdtphys, tr_seri(:, :, 3)) |
! Ozone as a tracer: |
408 |
|
call o3_chem(julien, gmtime, t_seri, zmasse, pdtphys, tr_seri(:, :, 3)) |
409 |
|
end if |
410 |
|
|
411 |
! Calcul de l'effet de la precipitation |
! Calcul de l'effet de la precipitation |
412 |
|
|