/[lmdze]/trunk/phylmd/phytrac.f
ViewVC logotype

Diff of /trunk/phylmd/phytrac.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 6 by guez, Tue Mar 4 14:00:42 2008 UTC
# Line 243  contains Line 243  contains
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)
# Line 401  contains Line 403  contains
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    
Legend:
Removed from v.3  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.21