MODULE vlz_mod REAL,POINTER,SAVE :: wq(:,:,:) REAL,POINTER,SAVE :: dzq(:,:) REAL,POINTER,SAVE :: dzqw(:,:) REAL,POINTER,SAVE :: adzqw(:,:) ! CRisi: pour les traceurs: !REAL,POINTER,SAVE :: masseq(:,:,:) REAL,POINTER,SAVE :: Ratio(:,:,:) CONTAINS SUBROUTINE vlz_allocate USE bands USE allocate_field_mod USE parallel_lmdz USE infotrac, ONLY: nqtot, tracers USE dimensions_mod IMPLICIT NONE TYPE(distrib),POINTER :: d d=>distrib_vanleer CALL allocate_u(wq,llm+1,nqtot,d) CALL allocate_u(dzq,llm,d) CALL allocate_u(dzqw,llm,d) CALL allocate_u(adzqw,llm,d) IF(ANY(tracers(:)%ndesc > 0)) THEN !CALL allocate_u(masseq,llm,nqtot,d) CALL allocate_u(Ratio,llm,nqtot,d) END IF END SUBROUTINE vlz_allocate SUBROUTINE vlz_switch_vanleer(dist) USE allocate_field_mod USE bands USE parallel_lmdz USE infotrac IMPLICIT NONE TYPE(distrib),INTENT(IN) :: dist CALL switch_u(wq,distrib_vanleer,dist) CALL switch_u(dzq,distrib_vanleer,dist) CALL switch_u(dzqw,distrib_vanleer,dist) CALL switch_u(adzqw,distrib_vanleer,dist) ! CRisi: IF(ANY(tracers(:)%ndesc > 0)) then !CALL switch_u(masseq,distrib_vanleer,dist) CALL switch_u(Ratio,distrib_vanleer,dist) endif !if (nqdesc_tot.gt.0) then END SUBROUTINE vlz_switch_vanleer END MODULE vlz_mod